Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17494 / 76732 ←次へ | 前へ→

【64691】Re:シート内の特定のセル(条件が一致)の値とコメントをクリアする方法
質問  初心者  - 10/3/8(月) 16:04 -

引用なし
パスワード
   掲題の件、以下のコードを書きました。

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))だけで
上記マクロが実行されるようにしたいのですが、よい方法ありますでしょうか?
アドバイスありましたらお願いします。

0 hits

【64651】シート内の特定のセル(条件が一致)の値とコメントをクリアする方法 初心者 10/3/1(月) 19:39 質問
【64653】Re:シート内の特定のセル(条件が一致)の... 超初心者 10/3/2(火) 9:08 発言
【64691】Re:シート内の特定のセル(条件が一致)の... 初心者 10/3/8(月) 16:04 質問
【64693】Re:シート内の特定のセル(条件が一致)の... 超初心者 10/3/8(月) 16:49 発言
【64696】Re:シート内の特定のセル(条件が一致)の... 初心者 10/3/8(月) 17:43 発言
【64699】Re:シート内の特定のセル(条件が一致)の... 超初心者 10/3/8(月) 21:23 発言
【64716】Re:シート内の特定のセル(条件が一致)の... 初心者 10/3/10(水) 9:44 質問
【64718】Re:シート内の特定のセル(条件が一致)の... 初心者 10/3/10(水) 12:12 お礼

17494 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free