>  > 18インチ サマータイヤ セット【適応車種:ヴァンガード(30系 350S、240S Sパッケージ)】WEDS レオニス グレイラ アルファ ハイパーシルバー/ミラーカット 8.0Jx18PARADA Spec-X PA02 235/55R18

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Excel VBAで配列の行列・縦横を入れ替える

18インチ サマータイヤ セット【適応車種:ヴァンガード(30系 350S、240S Sパッケージ)】WEDS レオニス グレイラ アルファ ハイパーシルバー/ミラーカット 8.0Jx18PARADA Spec-X PA02 235/55R18

対象:Excel2007, Excel2010, Excel2013

「excel vba 配列の行列を入れ替える」
「excel vba 配列の縦横入替え」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBA(Visual Basic for Applications)で、配列の KYB(カヤバ) New SR SPECIAL リア[R] ハイエース/レジアスエース(TRH228B / KDH227B) 全グレード NSF2085、縦横・行列を入れ替える方法を探している方による検索です。

Excel VBAでは、Excelのワークシート関数・TRANSPOSE関数を、VBAから利用することで、配列の縦横・行列入れ替えが、とても簡単にできてしまいます。

[スポンサードリンク]

350S、240S Spec-X アルファ セット【適応車種:ヴァンガード(30系 235/55R18 235/55R18 サマータイヤ グレイラ PA02 セット【適応車種:ヴァンガード(30系 Sパッケージ)】WEDS 18インチ 8.0Jx18PARADA レオニス ハイパーシルバー/ミラーカット

以下ようなのマクロで 【メーカー在庫あり】 ユーカナヤ U-KANAYA ビレットレバーセット GPタイプ ロング ZZR600、ZZR400 緑 KA035-005-0507 JP店 【メーカー在庫あり】 スウェッジライン SWAGE-LINE フロント ブレーキホースキット 87年-97年 イントルーダー VS1400 メッキ/黒 クリア NAF484 JP店、TRANSPOSE関数を使うことで、配列の縦横・行列を簡単に入れ替えられることが確認できるでしょう。


Sub 配列の行列入れ替え()

 Dim arr_1 As Variant
 Dim arr_2 As Variant

 arr_1 = Selection.Value
 arr_2 = WorksheetFunction.Transpose(arr_1)

 Stop

End Sub

サンプルマクロの解説

配列の縦横・行列の入れ替えを行っているのは、
 arr_2 = WorksheetFunction.Transpose(arr_1)
の部分です。

配列・arr_1の縦横・行列を入れ替えて、配列・arr_2に格納しています。

WorksheetFunctionプロパティでWorksheetFunctionオブジェクトを取得して、そのTransposeメソッド(TRANSPOSE関数)を呼んでいます。

上図のように、配列に格納したいデータをワークシート上に入力しておいて、そのセル範囲を選択しておいてから 2輪 デイトナ BRAKING ディスクローター/WAVE WK001L フロント(左側) 品番:76497 JAN:4909449409411 ドゥカティ モンスターS2R 1000 2006年~2007年、サンプルマクロを実行すると、

Stop文の位置でステップ実行に入ります。

このステップ実行に入っている状態で、VBE(Visual Basic Editor)のメニュー[表示]-[ローカルウィンドウ]から 17インチ サマータイヤ セット【適応車種:レガシィ アウトバック(BP系)】A-TECH シュナイダー スタッグ メタリックグレー 7.0Jx17NANOエナジー 3プラス 215/55R17、ローカルウィンドウを表示してやれば、

上図のように、配列の縦横・行列が入れ替わっていることをご確認いただけるはずです。

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Excel VBAで配列の行列・縦横を入れ替える

TrackBack:1
TrackBack URL
1次元配列のデータを縦方向に入力-WorksheetFunction.Transpose from インストラクターのネタ帳
Excel VBAでは 、WorksheetFunction.Transposeメソッドで、要素数65536までの1次元配列データを縦方向に入力できます。

Home » エクセルマクロ・Excel VBAの使い方 » 配列 » Excel VBAで配列の行列・縦横を入れ替える

{yahoojp}jpprem01-zenjp40-wl-zd-21955