Jump to content
  • 0
bcd

Insert Multiple Row/Columns in a Worksheet

Question

I would like the ability to add multiple rows in a worksheet not limited by the number of selected rows, or limited by dragging the bottom right handle of the ws.

Currently if I want to add 7 rows in the center or a 4 row ws I need to:

select rows 3&4 >insert rows,

select rows 3-6 >Insert Rows

select any single row from 2 to 7>Insert rows.

 

I would like Insert Rows>selection or count?>7 enter.

Edited by bcd

Share this post


Link to post

1 answer to this question

Recommended Posts

  • 0

Here are scripts to enter a user entered number of rows and columns. These are created Above and the Left of the currently selected cell.

 

You can use the Plugin Editor and paste these into blank menu commands and then add them to your workspace or you can just paste them into blank scripts and use them from a script palette.

 

Procedure Insert_WS_Rows;

{© 2017 Patrick Stanford pat@coviana.com}
{Licensed under the LGPL}
{No warranty expressed or implied. Use at your own risk}
{Possibility of error between keyboard and chair exists}

Var	H1			:Handle;
	CCR, CCC, TRR, LRC, TRS, BRR, RRC, BRS, N1	:Integer;
	
Begin
	H1:=GetTopVisibleWS;
	If GetTypeN(H1) = 18 then
		Begin
			GetWSSelection(H1, CCR, CCC, TRR, LRC, TRS, BRR, RRC, BRS);
			N1:=IntDialog('Number of Rows to Insert','1');
			InsertWSRows(H1, CCR, N1);
		End;
End;

Run(Insert_WS_Rows);

 

Procedure Insert_WS_Columns;

{© 2017 Patrick Stanford pat@coviana.com}
{Licensed under the LGPL}
{No warranty expressed or implied. Use at your own risk}
{Possibility of error between keyboard and chair exists}

Var	H1,H2			:Handle;
	CCR, CCC, TRR, LRC, TRS, BRR, RRC, BRS, N1	:Integer;
	
Begin
	H1:=GetTopVisibleWS;
	If GetTypeN(H1)=18 then
		Begin
			GetWSSelection(H1, CCR, CCC, TRR, LRC, TRS, BRR, RRC, BRS);
			N1:=IntDialog('Number of Columns to Insert','1');
			InsertWSColumns(H1, CCC, N1);
		End;
End;

Run(Insert_WS_Columns);

 

Share this post


Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


 

7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114

 

© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

×
×
  • Create New...