0

作業指示書内の複数の項目を確認できるチェックリスト ワークブックがあります。項目の最大数は 15 です。必要のない列を右端から非表示にするコードがありますが、非表示になる列内の範囲をクリアする方法がわかりません。非表示になる列の行 7、10、および 13:28 からデータをクリアする必要があります。

ここに私が持っているものがあります:

Sub RemoveItem()
Dim i As Long
For i = 20 To 7 Step -1
    If Columns(i).Hidden = False Then
        bfirst = True
        Columns(i).Hidden = True
        Exit For
    End If
Next
End Sub

どんな助けでも大歓迎です、ありがとう!

4

1 に答える 1