| |
今日は。
簡単にしか考えてないのですが、表示したくない行の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＿＿
>＿＿＿｜＿１＿＿｜＿＿数＿＿｜＿＿単価＿｜＿金額＿＿←明細行
>＿＿＿｜＿２＿＿｜＿＿数＿＿｜＿＿単価＿｜＿金額＿＿←明細行
>＿＿＿｜＿３＿＿｜＿＿数＿＿｜＿＿単価＿｜＿金額＿＿←記入しない非表示行
>＿ボ＿｜＿＿＿＿｜＿＿＿＿＿｜＿＿＿＿＿｜＿小計＿＿
>
>
>■上記のマクロ記録
>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
>
>上記どうぞよろしく。
|
|
kobasan
- 05/11/19(土) 14:33 -
