Excel VBA質問箱 IV

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

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


34057 / 76732 ←次へ | 前へ→

【47890】Re:二次元配列の行列の入れ替え
発言  かみちゃん  - 07/3/25(日) 19:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>Application.Transpose (配列変数)
>をやってみましたが行列が入れ替わっていません

どういうコードにしたのかわかりませんから、原因はわかりません。

以下のコードでできることを確認してみてください。
(Excel2002 SP3 で動作確認済みです。)

Sub Sample()
 Dim myInt(1 To 2, 1 To 3) As Integer
 
 myInt(1, 1) = 1
 myInt(1, 2) = 2
 myInt(1, 3) = 3
 myInt(2, 1) = 4
 myInt(2, 2) = 5
 myInt(2, 3) = 6
 Range("A1:C2") = myInt
 
 Range("A4:B6") = Application.Transpose(myInt)
End Sub

0 hits

【47887】二次元配列の行列の入れ替え hiyo 07/3/25(日) 17:42 質問
【47888】Re:二次元配列の行列の入れ替え かみちゃん 07/3/25(日) 17:59 発言
【47889】Re:二次元配列の行列の入れ替え hiyo 07/3/25(日) 18:53 質問
【47890】Re:二次元配列の行列の入れ替え かみちゃん 07/3/25(日) 19:06 発言
【47891】Re:二次元配列の行列の入れ替え hiyo 07/3/25(日) 19:16 お礼

34057 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free