Excel VBA質問箱 IV

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

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


36025 / 76732 ←次へ | 前へ→

【45893】Re:セルが空白なら空白と表示したい
回答  りん E-MAIL  - 07/1/17(水) 12:27 -

引用なし
パスワード
   さや さん、こんにちわ。

>そうすると、例えば、該当のセルが100個とすると、「Range("A1").Value = ""」を100個、作らないとダメですか?
>Range("A1:A100")のような形で簡単にする方法は、ないでしょうか?

おなじみのCOUNTAワークシート関数です。
Sub TEST()
  Dim r1 As Range
  Set r1 = Application.ActiveSheet.Range("A1:A100")
  '
  If Application.WorksheetFunction.CountA(r1) = 0 Then
   MsgBox "空白です"
  Else
   MsgBox "何かあります"
  End If
End Sub

こんな感じです。

0 hits

【45881】セルが空白なら空白と表示したい さや 07/1/16(火) 23:10 質問
【45882】Re:セルが空白なら空白と表示したい へっぽこ 07/1/16(火) 23:21 回答
【45883】Re:セルが空白なら空白と表示したい さや 07/1/16(火) 23:40 質問
【45884】Re:セルが空白なら空白と表示したい ichinose 07/1/16(火) 23:50 発言
【45885】Re:セルが空白なら空白と表示したい ichinose 07/1/17(水) 0:09 発言
【45886】Re:セルが空白なら空白と表示したい さや 07/1/17(水) 0:18 お礼
【45890】Re:セルが空白なら空白と表示したい ichinose 07/1/17(水) 7:59 発言
【45893】Re:セルが空白なら空白と表示したい りん 07/1/17(水) 12:27 回答
【45911】Re:セルが空白なら空白と表示したい さや 07/1/17(水) 19:07 お礼

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