第8講 多次元ループ=多次元For文の学習

第1話 2次元For文を利用して転置を行う
7
を実現するプログラム例
Private Sub CommandButton1_Click()
  
  Dim i As Integer
  Dim h(10, 10) As Integer

  Call f(h()) 'データ入力関数
  Call g(1, h()) 'データ表示関数
  Call t(h()) 'データ転置関数
  Call g(12, 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(a As Integer, h() As Integer)

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

  Dim i As Integer, j As Integer
  Dim h1(10, 10) As Integer
  For i = 0 To 9
    For j = 0 To 9
      h1(i, j) = h(i, j)
    Next
  Next
  For i = 0 To 9
    For j = 0 To 9
      h(i, j) = h1(j, i)
    Next
  Next
  
End Sub

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


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

では、左右に反転させるサブプロシージャを付け加えて、
mh
es
元のデータを転置してしまっていますから、
再転置してから、左右に反転させることを忘れないようにしましょう。

第8講第6話へ 第2話へ

004

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