Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37341 / 76732

←次へ　｜　前へ→


	【44562】複数セルの一括処理について

ご教授ください - 06/11/21(火) 21:54 -


	引用なし

	パスワード

色々調べたのですがわからなくて、ここへたどり着きました。どなたかご教授いただけると幸いです。

Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3"）の複数のセルが全て空白の際に
ある一定の処理をするIf構文を作成したいです。
素人である私が考えた構文は以下の通りです。

Sub テスト()
　　Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3").Select
　　
　　If Selection.Cells = Empty Then
　　　　MsgBox ("全て空白")
　　Else
　　　　MsgBox ("一部埋まっている")
　　End If
End Sub

上記の構文を実行すると、Activecellである、Range("C3")のみで判断されてしまうようです。私が求めているのは、
Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3") の10個のセル全てが空白の際に、Trueの処理を行い、10個のセルのうち一つでもセルが空白でなければElseの処理をしてほしいというものです。
このような時はどのような構文をかけばいいのでしょうか？どなたか教えてくださいませ。

1 hits

▼

【44562】複数セルの一括処理について ご教授ください 06/11/21(火) 21:54

≪