Excel VBA質問箱 IV

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

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


5980 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【47887】二次元配列の行列の入れ替え
質問  hiyo  - 07/3/25(日) 17:42 -

引用なし
パスワード
   まいどどうも、今回もご指導よろしくお願いします
二次元配列の行列の入れ替えの方法を教えてください。

セル範囲だとコピー後 .PasteSpecial Transpose:=True
ですが、この二次元配列版を教えてください。

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

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

>二次元配列の行列の入れ替えの方法を教えてください。
>
>セル範囲だとコピー後 .PasteSpecial Transpose:=True
>ですが、この二次元配列版を教えてください。

Application.Transpose (配列変数)
ではいけないのでしょうか?

多次元配列については以下も参照してみてください。
http://www6.plala.or.jp/MilkHouse/practical/contents302/contents30203.html
(先頭4文字は、全角文字ですので、半角にしてください。)

【47889】Re:二次元配列の行列の入れ替え
質問  hiyo  - 07/3/25(日) 18:53 -

引用なし
パスワード
   >Application.Transpose (配列変数)
をやってみましたが行列が入れ替わっていません
何気なくパージョン情報をみたらエクセル2002でした
エクセル2002ではだめなのでしょうか?
あと2002と2003はどんな違いがあるのでしょうか?

【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

【47891】Re:二次元配列の行列の入れ替え
お礼  hiyo  - 07/3/25(日) 19:16 -

引用なし
パスワード
   できました。ありがとうございます
前に出来なかったのは私のミスです。
ただ単に Application.Transpose (配列変数)と書いていました。

47890の投稿をみて気づきました。
配列変数=Application.Transpose (配列変数)
としないといけないことに。

まだまだ素人の未熟者ですのでお許しください。
今後ともよろしくお願いします。

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