
No.1ベストアンサー
- 回答日時:
for each nextの制御には、取り出せるポインタの値はありません。
敢えて言えばfor eachしている変数自体がポインタです。ごく単純な1次元配列なら計算すれば求まりますが、2次元以上ではそれもできません。
たとえば:
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
#もっともこれでは、ループごとにカウンタを+1していくのと変わらないんですけどね。
どーしてもアドレス的な数字が必要なのでしたら、for each next制御はあきらめて、各次元のUboundまでfor to nextでぐるぐる数字を回してください。若しくは、前述したようにカウンタを用意してループした回数を数えて下さい。
お礼を入れ忘れていました、長い間の放置申し訳ありません。
ご助言に従って通常のfor文で処理したことで解決しました
「当然あるものだ」と思っていたせいで探すのに時間をかけてしまい、作業に使える時間が減ってこの時は大変でした
有難うございました
No.3
- 回答日時:
あ、すみません、#2です。
Sub testの
' もしくは Dim matrix()
これ↑は消し忘れなので無視してください。
Dim matrix()では動かない書き方だけのせたので。
No.2
- 回答日時:
こんにちは、お邪魔します。
(配列というのが配列変数のことなのだとして)(非オブジェクトの要素)
ここら辺の書き振りについてはは、ある程度個性に委ねられる部分があってもいいとは思いますが。
基本的に配列変数はFor Nextでインクリメントしながら回すのが一般的ですし扱い易いです。
私個人の決め事としては
配列変数をFor Each Nextで回してもいいとする条件としては
1)配列の要素を上書きする必要がないこと(言わずもがな、ですけど)
2)Variant型の要素(内部型式オブジェクト型以外なら何でも)が収められた
Variant型変数(もしくはVariant()型配列変数)
3)一次元、もしくは、二次元配列
4)二次元の場合は、単行、もしくは、単列、であること
5)ループ目的以外でUBoundを取得する必要がないこと
という風に決めています。
特に4)5)の条件が揃った時ぐらいですね、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
(1オリジン(LBound=1)の場合を例に挙げましたが
0オリジンならi = i + 1の位置を後ろにずらしたりして対応します。)
勿論、For Nextでも良いわけですし、むしろFor Each Nextで配列を回すのは
極限られた少数派だと思います。
ポインタに使えるのはVariant型だけですから、
仮にInteger配列をFor each Nextで回すのは、
例えば、スイカ一個をわざわざトラックの荷台に積む、ぐらいに違和感があるし
コストはかかるけどメリットなく、却って面倒が増えそうですよね。
そういう意味でも用途は限定されると思います。
コレクションオブジェクトやコレクションをループする場合は
堂々とFor Each Nextでまわして良いと思いますが
非オブジェクトの値を要素に持つ配列の場合は素直に
For Nextで回すのが優先ってことだけは頭に入れといてください。
失礼しました。
> コレクションオブジェクトやコレクションをループする場合は
> 堂々とFor Each Nextでまわして良いと思いますが
> 非オブジェクトの値を要素に持つ配列の場合は素直に
> For Nextで回すのが優先ってことだけは頭に入れといてください。
お礼が遅れて申し訳ありません
独学でやっていたため基礎的なことが欠けている部分があるのですが、これもその一端でしょうか…
この時以降気をつけるようにしています
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) 型が一致しませんとエラー 6 2023/07/06 20:14
- その他(プログラミング・Web制作) pandasでまとめてインデックスを削除するにはどうすればいいですか? たとえば、以下のプログラムで 1 2022/07/31 23:09
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
動的配列が存在(要素が有る)か否かを判定できますか?
Visual Basic(VBA)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
7
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
8
CloseとDisposeの違い
Visual Basic(VBA)
-
9
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
10
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
11
Application.Runエラー(1004)
Excel(エクセル)
-
12
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
13
プロシージャからイベントをコールする
Visual Basic(VBA)
-
14
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
-
15
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
16
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
17
split関数で区切り文字がない場合
Visual Basic(VBA)
-
18
クリックイベントなのに、2回クリックしないとフォー
Access(アクセス)
-
19
Excel 1セル当りの文字数が255文字を超える場合のADOからの取
その他(プログラミング・Web制作)
-
20
[Excel]ADODBでNull変換されてしまう
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
ArrayListの初期値に二次元配列...
-
MATLABにて場合分け関数を定義...
-
配列変数の添字が範囲外ですと...
-
2次元動的配列の第一引数のみを...
-
特定のセル範囲で4文字以上入力...
-
VBのコントロール配列を二次元...
-
エクセルマクロで配列の値から...
-
for each の現在の配列ポインタ...
-
VBA 1次元配列を2次元に追加する
-
C言語を使用したプログラミング...
-
VBA 1つの列を3つ以上の条件で...
-
動的配列に値を返す関数
-
配列内の内容を全て表示する方法
-
[Excel2000_VBA] 型が一致しま...
-
リストボックスの値を拾うには
-
subの配列引数をoptionalで使う...
-
友愛数を探すプログラム
-
VB2008: CSV を二次元配列に読...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
ListViewで、非表示列って作れ...
-
配列変数の添字が範囲外ですと...
-
VB6 配列を初期化したい
-
subの配列引数をoptionalで使う...
-
《エクセル2000》A列・B列の商...
-
2次元動的配列の第一引数のみを...
-
ビンゴ
-
for each の現在の配列ポインタ...
-
配列に同じ値を入れる方法
-
配列を任意の数値で埋める方法
-
配列内の内容を全て表示する方法
-
Excel-VBAの配列「Public Const...
-
エクセルVBAの配列二重ループ処...
-
Array配列の末尾に追加したい。
-
MATLABにて場合分け関数を定義...
-
エクセルで最小値から0を除く方法
おすすめ情報