作業指示書内の複数の項目を確認できるチェックリスト ワークブックがあります。項目の最大数は 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
どんな助けでも大歓迎です、ありがとう!