Excel VBA質問箱 IV

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

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


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

37339 / 76732

←次へ　｜　前へ→


	【44564】Re:複数セルの一括処理について

りん

- 06/11/21(火) 22:07 -


	引用なし

	パスワード

ご教授くださいさん、こんばんわ。

>Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3") の10個のセル全てが空白の際に、Trueの処理を行い、10個のセルのうち一つでもセルが空白でなければElseの処理をしてほしいというものです。

スペースが入っている見た目空白セルではなく、何も入ってないセルだけを数えます。
Sub テスト()
　　Dim CC As Integer, r As Range
　　'COUNTAワークシート関数を使って数える
　　Set r = Application.ActiveSheet.Range("C3,J3,Q3,X3,AE3,AL3,AS3,AZ3,BG3,BN3")
　　CC = Application.WorksheetFunction.CountA(r)
　　'結果
　　If CC = 0 Then
　　　　MsgBox "全て空白", vbInformation
　　Else
　　　　MsgBox "一部埋まっている", vbExclamation
　　End If
End Sub

こんな感じです。

0 hits

▼

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