Excel VBAでの行列の繰り返し処理時の出力領域の記述方法

Question

前提・実現したいこと

Excel VBAにおいて、成分にIを含む行列の積の計算結果をI=1~100の場合まで全て書き出すマクロを作ろうとしております。行列の積の計算方法とIの繰り返し処理(For I = 1 To 100...)については分かるのですが、出力先の指定方法が分かりません。2行1列の列ベクトルが出てくるので、I=1のときRange("A5,A6"),I=2のときRange("B5,B6")...という風に表示したいです。

発生している問題・エラーメッセージ

エラーメッセージ

実行時エラー'1004'
'Range'メソッドは失敗しました

該当のソースコード

Excel VBA

Sub 行列の積の書き出し()
    
    Dim I As Integer
    Dim A As Variant, B As Variant, AB As Variant
    A = Range("A2,B3").Value
    B = Range("D2,D3").Value
    AB = Application.MMult(A, B)
    Range("A1") = I
    For I = 1 To 100
    Range().Value = AB ←ここの括弧内の書き方が分かりません。
    Next I
    
End Sub

### 試したこと

Range("(5,I),(6,I)").Value = AB。と範囲を指定しましたがエラーが発生しました。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Sub test()
        Range("A5:A6").Resize(, 100).Value = _
            WorksheetFunction.MMult(Range("A2:B3").Cells, Range("D2:D3").Cells)
End Sub

なんで繰り返したいかわからないし、
そもそもMMult関数がどんな計算をしているかわかってないけど、
ループする必要はないかもです。

あれ？セル範囲は飛び飛びであってるんでしょうか。。。。？

---

あああ。

Range("A1") = I

を見逃してました。

Sub test()
    Dim i As Long
    
    For i = 1 To 100
        Range("A1").Value = i
        Range("A5:A6").Offset(, i - 1).Value = _
            WorksheetFunction.MMult(Range("A2:B3").Cells, Range("D2:D3").Cells)
    Next
End Sub

ループ内で1回1回計算するのなら、
数式を一括で入れた方が処理速度は速いかもです。

Comments

[fibo3]

ありがとうございます。こちらの方法でも意図していたことができました。とても参考になります。

Answer 2

とりあえず質問として挙げられている箇所についてのみ回答です。

Range(Cells(5, I), Cells(6, I)).Value = AB

実行すると全て同じ値になるのでその他の処理も見直さないといけないと思いますが、この質問の趣旨とは異なるので割愛します。

Comments

[fibo3]

ありがとうございます。行列は表示されるようになりました。
A = Range("A2,B3")は式にIを含むので一つのIごとに異なる結果が出力されると思ったのですが確かに全て同じ結果になってしまいます。もしよろしければ、どのようにすれば異なる結果が得られるか教えて頂けますでしょうか。

[ttyp03]

なんでか、というのは計算を一回しかしていないので、全部同じ値になります。
どうすればいいか、というのは質問にある情報だけではなんとも。
もしかしてA2,B3,D2,D3はA1の値を使った数式か何かでしょうか？

[fibo3]

その通りで、2行2列の行列A2:B3はA1の値を使った数式です。
Iが1から100までの場合の行列式ABを羅列して表示したいと思っています。

[ttyp03]

ワークシート側の数式計算とマクロを併用するのはあまりスマートなやり方とは言えませんが、現状のコードを活かすのであれば次のようにループ内で処理させればよいと思います。
For I = 1 To 100
Range("A1") = I
A = Range("A2,B3").Value
B = Range("D2,D3").Value
AB = Application.MMult(A, B)
Range(Cells(5, I), Cells(6, I)).Value = AB
Next I

[fibo3]

ありがとうございます。やろうとしていたことが出来ました。
書く順番が間違っていたんですね。
A = Range("A2,B3").Valueの部分ですが、”A2:B3"としなければ行列の積が正しく計算されませんでした。