|
掲題の件、以下のコードを書きました。
Sub OK_NG_保留_割愛を含むセルをクリア()
Dim セル As Range
For Each セル In [A1:CZ1500]
If セル.Value Like "*OK*" Then
セル.ClearComments
セル.ClearContents
ElseIf セル.Value Like "*NG*" Then
セル.ClearComments
セル.ClearContents
ElseIf セル.Value Like "*保留*" Then
セル.ClearComments
セル.ClearContents
ElseIf セル.Value Like "*割愛*" Then
セル.ClearComments
セル.ClearContents
End If
Next
End Sub
新たな課題が出ました。
上記ではすべてのセルが対象となってしまいます。
特定のセル(パターン:網掛け(Interior.Pattern=10))だけで
上記マクロが実行されるようにしたいのですが、よい方法ありますでしょうか?
アドバイスありましたらお願いします。
|
|