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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
-
4
関数の引数でrangeを指定したとき
Visual Basic(VBA)
-
5
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
構造体をコレクションに入れて扱いたいのですが…
コレクション
-
8
Excelの入力規則で2列表示したい
Excel(エクセル)
-
9
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
動的配列が存在(要素が有る)か否かを判定できますか?
Visual Basic(VBA)
-
12
VBで引数にDictionaryオブジェクトを使用する方法
Visual Basic(VBA)
-
13
IFステートの中にWithステートメントの始まり
Visual Basic(VBA)
-
14
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
15
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
エクセルでエラーが出て困っています。
Excel(エクセル)
-
18
ExcelのVBAでGoToの代わりに…
Excel(エクセル)
-
19
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
20
エクセルで複数列の検索をマクロで行いたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
subの配列引数をoptionalで使う...
-
配列変数の添字が範囲外ですと...
-
ListViewで、非表示列って作れ...
-
エクセルで最小値から0を除く方法
-
VB6 配列を初期化したい
-
VBのFunctionで、配列を引数...
-
配列の内容に重複をなくすには...
-
順列の作成
-
ArrayListの初期値に二次元配列...
-
for each の現在の配列ポインタ...
-
エクセルマクロで配列の値から...
-
VBAで近似曲線の係数取得
-
MATLABにて場合分け関数を定義...
-
Dim は何の略ですか?
-
特定のセル範囲で4文字以上入力...
-
linest関数に配列を渡す
-
Excel-VBAで内臓のMINVERSE,MM...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列数式の解除
-
2つ以上の変数を比較して最大数...
-
VBA 1次元配列を2次元に追加する
-
特定のセル範囲で4文字以上入力...
-
for each の現在の配列ポインタ...
-
VBのFunctionで、配列を引数...
-
subの配列引数をoptionalで使う...
-
VB6 配列を初期化したい
-
ListViewで、非表示列って作れ...
-
配列変数の添字が範囲外ですと...
-
Excel-VBAの配列「Public Const...
-
2次元動的配列の第一引数のみを...
-
VBAで近似曲線の係数取得
-
VLOOKUP関数で、一番下...
-
配列に同じ値を入れる方法
-
エクセルで最小値から0を除く方法
-
linest関数に配列を渡す
-
配列を任意の数値で埋める方法
-
Dim は何の略ですか?
-
配列内の内容を全て表示する方法
おすすめ情報