Gizport
1 回答
0
Share (facebook)
56
view
全般

VBA セルの空白の判定について セルの空白の判定について教えてくだ...

VBA セルの空白の判定について セルの空白の判定について教えてください。
以下の様なコードを作成したとします。

Dim Rg As Range
Set Rg=Range("A1:A1000")

この時、Rgがすべて空白であること(未入力)を判定したい場合、どのようなコードを作成したらよいのでしょうか?
ループして一件ずつ判定していく以外に方法はありますでしょうか?

また、空白の概念がまだよくわかっていません。
Range("A1").Value=""とRange("A1").Value=Emptyでは違いますよね?
ウォッチ式で見ると、未入力の状態はEmptyとなりますが、Emptyを設定すると0となってしまいます。
Range("A1").Value=""では長さ0の文字列という意味なので、未入力に設定するのはこの方法が良いのでしょうか?
このあたりの私の解釈が今ひとつなので、教えてもらいたいと思います。

よろしくお願いします。
Yahoo!知恵袋 5467日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
セルの個数と空白セルの個数を比較するとか?

Dim Rg As Range
Set Rg = Range("A1:A1000")

If Rg.Cells.Count = WorksheetFunction.CountBlank(Rg) Then
MsgBox "全て空白"
Else
MsgBox "空白でないセルがある"
End If
Yahoo!知恵袋 5465日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
23
Views
質問者が納得光LINKW200の管理画面にはアクセスできているのでしょうか? 光LINKW200の中にBBiQから指定されている接続用IDと接続用パスワードを設定して保存終了すればOKです。 光LINKW200はどちらの会社の回線をご利用になっても対応しています。 > モデムが検索できませんでした。またはビジー状態ですとエラーが出てから全く進みません・・・ これは、PCで接続用IDと接続用パスワードを入力した時の応答でしょうか? 手順を踏んでセットアップしましょう。 1.BBiQからのレンタル品装置...
3782日前view23
全般
59
Views
質問者が納得多少の加工が必要ですが、クイックルワイパーでも可能 http://www.kao.com/jp/quickle/qkl_quickle_00.html
3830日前view59
全般
38
Views
質問者が納得ふつか前にも同じ質問してましたね。 あれだけ丁寧に回答したけれど、いきなり質問の削除。簡単なミスで解決し、恥ずかしくなって質問を削除されたのかと思ってました。でも、sugurubirdさんは、ご自分の質問の削除をこれまでに6回もされているんですね。 -------------------------------------------------------------- > バッファローの無線lanwhr g301n経由だとidとpwでノートpcは繋がります。 QTNetBBIQ光電話ターミナ...
4591日前view38
全般
44
Views
質問者が納得細かく見る気がないのですが INDIRECT関数を使っている時点で 対象 となるブックを開いてないと 処理されません。 数式で計算したいなら シートはむやみに分けてはいけません。 それか SUMIFの計算式を 全てのシートの決められたセルに入れるように して それを集計するかですね。 INDIRECTは不可です。
4695日前view44
全般
28
Views
質問者が納得チェックボックス挿入マクロ___列バージョン コードが分かりにくかったですね。申し訳ありません。 列方向に4列目から1250列目、すなわち D列からAVB列までのチェックボックス挿入と考えて良いでしょうか。下記コードの4行目から7行目に、それぞれ 開始列数字、終了列数字、チェックボックスのリンク先行数、チェックボックスの挿入先行数を代入して、マクロを開始して下さい。 下記では、D列からAVB列まで、5行目にチェックボックスを挿入し、2行目にリンクさせる前提にしています。適時に変更して下さい。 -...
4820日前view28