Excel VBA質問箱 IV

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

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


37343 / 76737 ←次へ | 前へ→

【44565】Re:複数セルの一括処理について
発言  ToShiYo  - 06/11/21(火) 22:10 -

引用なし
パスワード
   ▼ご教授ください さん:

今晩は。こんな感じでは如何ですか

Sub テスト()
  Dim R As Range
  For Each R In Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3")
 
  If R.Value <> Empty Then
    MsgBox ("一部埋まっている")
   Exit Sub
  End If
  Next
    MsgBox ("全て空白")
End Sub

0 hits

【44562】複数セルの一括処理について ご教授ください 06/11/21(火) 21:54 質問
【44564】Re:複数セルの一括処理について りん 06/11/21(火) 22:07 回答
【44565】Re:複数セルの一括処理について ToShiYo 06/11/21(火) 22:10 発言
【44567】Re:複数セルの一括処理について ご教授ください 06/11/21(火) 22:45 お礼

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