for each の現在の配列ポインタ VBA

Question

for each で配列内の値をいじるマクロを組んでいるのですが

「今 配列内のどこを見ているのか」を取りだすにはどうすればよいのでしょうか
for each c in range(～
の時には「今 range内のどこを見ているのか」は c.address をすればわかったのですが、配列となるとどうすればよいのか…

お分かりになるかたいらっしゃったらよろしくお願いします

keithin · Accepted Answer

for each nextの制御には、取り出せるポインタの値はありません。敢えて言えばfor eachしている変数自体がポインタです。

ごく単純な１次元配列なら計算すれば求まりますが、２次元以上ではそれもできません。
たとえば：
sub macro1()
　dim a, h
　a = array(1,2,"a","b","c")
　for each h in a
　　msgbox h & "," & application.match(h, a, 0)
　next
end sub
＃もっともこれでは、ループごとにカウンタを＋１していくのと変わらないんですけどね。

どーしてもアドレス的な数字が必要なのでしたら、for each next制御はあきらめて、各次元のUboundまでfor to nextでぐるぐる数字を回してください。若しくは、前述したようにカウンタを用意してループした回数を数えて下さい。

cj_mover · Answer

あ、すみません、＃２です。
Sub testの
　　' もしくは　Dim matrix()
これ↑は消し忘れなので無視してください。
Dim matrix()では動かない書き方だけのせたので。

cj_mover · Answer

こんにちは、お邪魔します。

（配列というのが配列変数のことなのだとして）（非オブジェクトの要素）
ここら辺の書き振りについてはは、ある程度個性に委ねられる部分があってもいいとは思いますが。
基本的に配列変数はFor Nextでインクリメントしながら回すのが一般的ですし扱い易いです。

私個人の決め事としては
配列変数をFor Each Nextで回してもいいとする条件としては
１）配列の要素を上書きする必要がないこと（言わずもがな、ですけど）
２）Variant型の要素（内部型式オブジェクト型以外なら何でも）が収められた
　　Variant型変数（もしくはVariant()型配列変数）
３）一次元、もしくは、二次元配列
４）二次元の場合は、単行、もしくは、単列、であること
５）ループ目的以外でUBoundを取得する必要がないこと
という風に決めています。
特に４）５）の条件が揃った時ぐらいですね、For Each Nextで回すメリットがあると思えるのは。

例としては

Sub test()
　　Dim matrix　　' もしくは　Dim matrix()
　　Dim v
　　Dim ret As String
　　Dim i As Long
　　If TypeName(Selection) = "Range" Then matrix = Selection.Columns(1).Value
　　i = 0　　' 省略可
　　If IsArray(matrix) Then
　　　　For Each v In matrix
　　　　　　i = i + 1
　　　　　　ret = ret & vbLf & CStr(i) & v
　　　　Next v
　　　　ret = Mid(ret, 2)
　　Else
　　　　ret = "1" & matrix
　　End If
　　MsgBox ret
End Sub

（１オリジン（LBound=1）の場合を例に挙げましたが
　０オリジンならi = i + 1の位置を後ろにずらしたりして対応します。）
勿論、For Nextでも良いわけですし、むしろFor Each Nextで配列を回すのは
極限られた少数派だと思います。

ポインタに使えるのはVariant型だけですから、
仮にInteger配列をFor each Nextで回すのは、
例えば、スイカ一個をわざわざトラックの荷台に積む、ぐらいに違和感があるし
コストはかかるけどメリットなく、却って面倒が増えそうですよね。
そういう意味でも用途は限定されると思います。

コレクションオブジェクトやコレクションをループする場合は
堂々とFor Each Nextでまわして良いと思いますが
非オブジェクトの値を要素に持つ配列の場合は素直に
For Nextで回すのが優先ってことだけは頭に入れといてください。

失礼しました。

for each の現在の配列ポインタ VBA

for each nextの制御には、取り出せるポインタの値はありません。

あ、すみません、＃２です。

こんにちは、お邪魔します。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング