第４話 倍加マクロ
コード例
Private Sub CommandButton1_Click()
Dim i As Byte, a(9) As Byte
For i = 0 To 9
a(i) = i + 1
Next
For i = 0 To 9
Cells(5, 2 + i) = a(i)
Next
For i = 0 To 9
Cells(7, 2 + i) = 11 - a(i)
Next
For i = 0 To 9
Cells(9, 2 + i) = 2 * a(i)
Next
End Sub
参考ファイル
では、次の課題です。
２次元配列
Dim a(8, 8) As Byte
を用意して、各変数a(i, j)に１から９の数字をランダムに代入して、
と表示するマクロを考えてください。
２次元For文を使いますが、
１回のFor文の中で入力と表示を行うのではなく、
２次元For文を２回使い、
１回目は代入、２回目は表示と分けてください。
Cellsは最後の段階のみで使う習慣をつけて頂きたいからです。
ただし、罫線はエクセルシートから手動で作ってください。
現時点では、数独になっていませんが、
If文を使って、行(横列、本サイトでは横列を行、縦列を単に列と呼びます。）
の条件については、この講すなわち第８講において解決して、
とします。
さらに、列とブロックの条件につきましては、
第８講の範囲で扱えないことはありませんが、
８１次元For文になってしまいますので現実的ではありません。
ですから、列とブロックの条件は入れません。
列とブロックの条件を入れて完成させるのは、
プロシージャの再帰的使用を主題にする第10講までお待ち頂きます。
