Excel VBA質問箱 IV

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

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


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

50033 / 76732

←次へ　｜　前へ→


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

ichinose - 05/11/26(土) 9:25 -


	引用なし

	パスワード

>>　　　　A　　　　B　　　　C
>>1つ目の行列　　　　　　　　　　　　
>>2　　　　1　　　　1　　　　1
>>3　　　　2　　　　2　　　　2
>>4　　　　3　　　　3　　　　3
>>　　　　　　　　
>>　　　　　　　　
>>1つ目の行列
>>12　　　　1　　　　1　　　　1
>>13　　　　2　　　　2　　　　2
>>14　　　　3　　　　3　　　　3
>>15　　　　　　　　　　　　
>という入力データとしてのセル範囲に対して
>
>結果として
>
>
>>　　　　　　　　
>>行列積を A22 から貼り付け
>
>>22　　　　 6　　　6　　　 6
>>23　　　　12　　 12　　　12　　　　　
>>24　　　　18　　 18　　　18

尚、Keinさんの

>絶対参照と相対参照の違い

を応用すれば

'==========================================
Sub 行列積3()
　　Dim rrng As Range
　　Dim crng As Range
　　Set rrng = Range("A2").Resize(, 3)
　　Set crng = Range("A12").Resize(3)
　　With Range("a22").Resize(3, 3)
　　　 .Formula = "=mmult(" & rrng.Address(False, True) & "," & _
　　　　　　　　　　　 crng.Address(True, False) & ")"
　　　 End With
End Sub

なんて方法もありますが、ちかさんが提示されたコードからだと

行列積2のコードがなされていたことに近いでしょうか？

0 hits

▼

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