Excel VBA質問箱 IV

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

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


56193 / 76736 ←次へ | 前へ→

【25301】Re:空白セルの検索
発言  kazu  - 05/5/27(金) 13:24 -

引用なし
パスワード
   ▼kouka さん:

1.アドレスとか無しで空白セルが有るかどうかだけ検索する場合
エクセル関数 COUNTIFで空白の個数を検索したらいいのではないでしょうか。

Sub H()
  A = Application.WorksheetFunction.CountIf(Range("A1:A10"), "")
  MsgBox A = 0
End Sub

2.アドレスとか無しで空白セルが有るかどうかだけ検索する場合
これはFor使ってしまいますが・・・。
エクセル関数 COUNTIFで空白の個数を検索した結果が0でない場合、
SpecialCells(xlCellTypeBlanks) ← 空のセルを取得
見つかった空のセルのアドレスを取得

Sub B()
  A = Application.WorksheetFunction.CountIf(Range("A1:A10"), "")
  If A <> 0 Then
    For Each C In ActiveSheet.Range("A1:A10").SpecialCells(xlCellTypeBlanks)
      MsgBox C.Address
    Next
  End If
End Sub

0 hits

【25299】空白セルの検索 kouka 05/5/27(金) 12:01 質問
【25301】Re:空白セルの検索 kazu 05/5/27(金) 13:24 発言
【25303】Re:空白セルの検索 ichinose 05/5/27(金) 13:47 発言
【25307】Re:空白セルの検索 kouka 05/5/27(金) 14:30 お礼
【25311】Re:空白セルの検索 ichinose 05/5/27(金) 20:05 発言
【25371】Re:空白セルの検索 kouka 05/5/30(月) 10:00 お礼
【25328】Re:空白セルの検索 akiuma 05/5/28(土) 18:37 発言
【25317】Re:空白セルの検索 [名前なし] 05/5/27(金) 22:42 回答
【25329】Re:空白セルの検索 akiuma 05/5/28(土) 18:40 発言
【25372】Re:空白セルの検索 kouka 05/5/30(月) 10:11 お礼

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