配列の走査
「VBA で文字列の配列の初期化」のついでに配列の走査。変数 strAry が文字列の配列だとすると、
Dim idx As Integer
For idx = LBound(strAry) To UBound(strAry)
Debug.Print strAry(idx)
Next
LBound, UBound 関数が記憶の彼方にあって全く思い出せなかった。 (o_ _)ｏ~†
For Each … Next
For Each を使う場合は、
For Each elem In strAry
Debug.Print elem
Next
もし、上記に先立ち、
Dim elem As String
と宣言すると、
For Each の場合、要素を指す変数はバリアント型でないといけなかったかぁ。。 (@_@;)
ヘルプ > Microsoft Visual Basic Documentation > Visual Basic プログラミングのヒント の「For Each...Next ステートメントの使い方」によると、
For Each...Next ステートメントは、コレクションの各オブジェクトまたは配列の各要素に対して、一連のステートメント ブロックを繰り返し実行します。
また、「For Each...Next ステートメント」 には、要素が代入される変数について、
コレクションや配列の各要素を繰り返す変数を指定します。コレクションの場合、引数 element にはバリアント型 (Variant) 変数、総称オブジェクト型変数、または任意の固有オブジェクト型のオブジェクトの変数を指定できます。また、配列の場合は、引数 element にはバリアント型のみ指定できます。
クラスモジュール
For Each … Next と言えば、オブジェクトのコレクションを走査するときによく使った。例えば、プロパティに「名前」を持つ Person クラスを定義し、
Dim mstrName As String
Public Property Let Name(strName As String)
mstrName = strName
End Property
Public Property Get Name() As String
Name = mstrName
End Property
このクラスのオブジェクトをコレクションに追加し、For Each … Next で走査するには、
Dim col As New Collection
Dim p1 As New person
p1.Name = "Tarou"
Dim p2 As New person
p2.Name = "Jirou"
col.Add p1
col.Add p2
Dim person As person
For Each person In col
Debug.Print person.Name
Next
バリアント型
ところで、バリアント型はあまり使ってなかったので、For Each で使えることを知らなかった。上記でも For Each で使っている要素を代入する変数 person の型宣言をせずにバリアント型としても使用できる。
ヘルプの「バリアント型 (Variant)」を見ると、
バリアント型は特殊なデータ型で、固定長の文字列型 (String) データとユーザー定義型を除く、あらゆる種類のデータを格納することができます。
(太字は引用者による)
バリアント型というと、文脈に応じて適用する演算子の意味が変化し、メモリを結構使うということしか頭に残っていない。 ^^;
バリアント型には、特殊な値 Empty 値、Null 値、およびエラー値や Nothing なども格納することができます。
(同上より)
あぁ～、なんかややこしいなぁ。。 (+_+)
Empty 値 とはヘルプによると、
その変数が初期化されていないことを示し
Null 値とは、
その変数に有効なデータが格納されていないことを示します。
確認しておく。
Dim hoge As Variant
Debug.Print IsNull(hoge) ' False
Debug.Print IsEmpty(hoge) ' True
hoge = Null
Debug.Print IsNull(hoge) ' True
Debug.Print IsEmpty(hoge) ' False
hoge = 0
Debug.Print IsEmpty(hoge) ' False
Set hoge = Nothing
Debug.Print IsNull(hoge) ' False
Debug.Print IsEmpty(hoge) ' False
