Excel VBAを始めるには（011）

20X25のセルに連続番号を入れるだけのVBAです。
Renzoku１は、X-Yの連続番号、
Renzoku ２は、Y-Xで連番を振ります。

今回はCellsの理解のためのVBAです。
ExcelのSheetを使うだけではCellsはあまり使いませんが
VBAでは多用します。Range（”A1”）などでは変数での変化
が出来ませんからCellsばかりになってしまいます。

簡単なSourceですが、中身は重要です。

Sub Renzoku1()
'
' Renzoku Macro

'セルに連続の数値を記入するMacro

Dim i, j As Integer
Dim Cnt_n As Integer

Sheets("Sheet1").Select

Cnt_n = 1 'ここで初期値を1とします

For i = 1 To 20
For j = 1 To 25

Cells(i, j) = Cnt_n ' jとiの位置に注意

Cnt_n = Cnt_n + 1　’Cnt_nに「１」を加算します、これをインクリメントと言います。

Next j
Next i

'
End Sub

Sub Renzoku2()
'
' Renzoku Macro

'セルに連続の数値を記入するMacro

Dim i, j As Integer
Dim Cnt_n As Integer

Sheets("Sheet2").Select

Cnt_n = 1

For i = 1 To 20
For j = 1 To 25

Cells(j, i) = Cnt_n ' jとiの位置に注意

Cnt_n = Cnt_n + 1

Next j
Next i

'
End Sub

わかお　かずまさ

VegaSystems