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 (配列変数)
ではいけないのでしょうか？

多次元配列については以下も参照してみてください。
ｈｔｔｐ://www6.plala.or.jp/MilkHouse/practical/contents302/contents30203.html
（先頭４文字は、全角文字ですので、半角にしてください。）
【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