Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50027 / 76732

←次へ　｜　前へ→


	【31601】Re:マクロにおけるMMULT関数追伸

kobasan - 05/11/26(土) 13:05 -


	引用なし

	パスワード

皆さん今日は。

ichinoseさんに刺激されて、
いろんな方法があるということで、また一つ載せてみます。
関数にこだわらなければ、シンプルに、こんな方法もあります。
行列の範囲に悩まなくて住むので、自分としては結構気に入っているのですか。

データ形式は、今まで通りです。

Sub 行列積4()
Dim vntA, vntB, vntC
Dim n As Integer

　　vntA = Range("A2").Resize(3, 3).Value
　　vntB = Range("A12").Resize(3, 3).Value
　　vntC = Application.MMult(vntA, vntB)
　　'
　　'---------------A22から貼り付け
　　Sheets("Sheet1").Range("A22").Resize(3, 3) = vntC
End Sub

1 hits

▼

【31547】マクロにおけるMMULT関数 ちか 05/11/25(金) 13:21