Excel VBA質問箱 IV

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

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


37344 / 76737 ←次へ | 前へ→

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

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