第７講 配列

第６話 ２次元配列をローカル変数に変更する

をローカル２次元配列を利用して実現するプログラム例
Private Sub CommandButton1_Click()
　　
　　Dim i As Integer
　　Dim h(10, 10) As Integer

　　Call f(h())　'データ入力関数
　　Call g(h())　'データ表示関数
　　
End Sub
Sub f(h() As Integer)

　　Dim i As Integer, j As Integer
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　h(i, j) = 10 * i + j + 1
　　　　Next
　　Next
　　
End Sub
Sub g(h() As Integer)

　　Dim i As Integer, j As Integer
　　For i = 0 To 9
　　　　For j = 0 To 9
　　　　　　Cells(4 + i, 1 + j) = h(i, j)
　　　　Next
　　Next
　　
End Sub

Private Sub CommandButton2_Click()
　　
　　Rows("4:20000").Select
　　Selection.ClearContents
　　Cells(1, 1).Select
　　
End Sub

参考ダウンロード添付ファイル

すでに、２次元ループを使ってしまいましたが、
次講においては、多次元ループ＝多次元For文をテーマとして、
多次元配列をいろいろと利用していきます。
次話の課題として、
今回のマクロを改良して、

を実現するマクロを考えます。
左と右の違いは、列（縦）と行（横）反対になっていることです。
列と行を反対にすることを転置といいます。
転置サブプロシージャを用いて、
配列h(10, 10)のデータを転置して、表示して下さい。
　　Call g(h())　'データ表示関数
は
　　Call g(1, h()) 'データ表示関数
　　Call g(12, h()) 'データ表示関数
表示位置情報を与えて、２回利用することにします。




第５話へ　第８講第１話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ第２部へ
小学生からエンジニアまでのRuby入門へ
小学生からエンジニアまでのC言語入門 基礎から応用まで
本サイトトップへ