|
今日は。
簡単にしか考えてないのですが、表示したくない行のA列に1を入れて、下記マクロを実行するボタンをシートに配置してやってみてください。(他の列にしたかったら、変更してください)
Sub test()
Dim r As Range
For Each r In Range("A1", Range("A65536").End(xlUp))
If r.Value = 1 Then r.EntireRow.Hidden = True
Next
End Sub
>
>■工事種目の明細行の一例(単純化してあります)
>_A____B_____C______D_____E__
>___|_1__|__数__|__単価_|_金額__←明細行
>___|_2__|__数__|__単価_|_金額__←明細行
>___|_3__|__数__|__単価_|_金額__←記入しない非表示行
>_ボ_|____|_____|_____|_小計__
>
>
>■上記のマクロ記録
>Sub 増行()
>'
>' 増行 Macro
>' マクロ記録日 : ユーザー名 :
>'
>
>'
> ActiveCell.Select
> ActiveSheet.Unprotect
> ActiveCell.Offset(-2, 0).Rows("1:3").EntireRow.Select
> Selection.EntireRow.Hidden = False
> ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
> Selection.Copy
> Selection.Insert Shift:=xlDown
> ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
> Selection.EntireRow.Hidden = True
> ActiveCell.Offset(1, 0).Range("A1").Select
> Application.CutCopyMode = False
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
>End Sub
>
>上記どうぞよろしく。
|
|