配列の要素がすべてカラかどうかの判断

ある動的配列にエクセルのセルの値を入れ込みデータがあるかないかでプロシージャーを分岐したいのですが、配列の要素がすべて空であるかどうかの判断で困っています。
例えば
　　Dat = Worksheets(wrks).Range(rng).Value
でDatという配列にrngというセル範囲の値を入れて、
　　Datのすべての要素が空("")なら～処理１～
　　Datに１つでもデータがあれば～処理２～
のようにしたいのですが、なにかよい方法はないでしょうか。
アドバイスよろしくお願いいたします。

No.3 ベストアンサー 回答者： ham_kamo 回答日時： 2007/03/28 18:11

If Application.WorksheetFunction.CountA(Dat) = 0 Then

　～処理１～
Else
　～処理２～
End If

みたいな感じでいかがでしょうか。

この回答へのお礼

あ！！！！
そうですね、CountA関数を使えば簡単にできますね。
アドバイスどうもありがとうございました！

お礼日時：2007/03/28 22:37

No.4 回答者： nicotinism 回答日時： 2007/03/28 19:58

Sub test()

　　Dim a As Variant, b As Variant
　　a = Split("1,2,3", " ")
　　b = Split("", " ")　'空っぽ
　　Debug.Print "a=" & (Join(a) <> ""), "b=" & (Join(b) <> "")
　　'Excel2002 で試したので以前のバージョンでは動かないかも？です
End Sub

この回答へのお礼

なるほど～。
ただJoinは一次元配列にしか使えないようで、動的配列ではうまくいきませんでした。
でも考え方は大変参考になりました。
どうもありがとうございました！

お礼日時：2007/03/28 22:40

No.2 回答者： noname#140971 回答日時： 2007/03/28 17:34

Excel は、一度も扱ったことのない門外漢ですが・・・。

次は、Sheets(1)、(2)の２つのセルに値が存在するか否かをチェックするコードです。
ＭｓｇBox の所で分岐すれば宜しいかと思います。

Private Sub CommandButton1_Click()
　　Dim isFound As Boolean
　　Dim I　　　 As Integer
　　Dim J　　　 As Integer
　　
　　For I = 1 To 2
　　　　For J = 1 To 2
　　　　　　If Len(Worksheets(I).Cells(J, 1).Value & "") > 0 Then
　　　　　　　　isFound = True
　　　　　　　　I = 2
　　　　　　　　Exit For
　　　　　　End If
　　　　Next J
　　Next I
　　MsgBox isFound
End Sub

なお、動的配列に取り込む必要があれば、そのように修正して下さい。

この回答へのお礼

アドバイスどうもありがとうございました！
考え方など今後の参考にさせていただきます。

お礼日時：2007/03/28 22:44

No.1 回答者： fallen_angel 回答日時： 2007/03/28 16:58

アルゴリズムとしては、以下の通りでＯＫでは？

（１）セルの対象範囲を得る
（２）範囲内をループさせ各セルの内容をチェックする。
　　　行列ですから２重ループですね。

この回答へのお礼

アドバイスありがとうございました！
参考にさせていただきます。

お礼日時：2007/03/28 22:45