Excel VBA質問箱 IV

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

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


17492 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼初心者 さん:

なんか条件が増えているようですが・・・^^;;

とりあえず、

> For Each セル In [A1:CZ1500]
  If セル.Interior.Pattern = 10 Then
>     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
  End If
> Next

こんな感じでいかがでしょう。
1 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 お礼

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