Excel VBAを始めるには(011)

20X25のセルに連続番号を入れるだけのVBAです。
Renzoku1は、X-Yの連続番号、
Renzoku 2は、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に「1」を加算します、これをインクリメントと言います。

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

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma

People Who Wowed This Post

×
  • If you are a bloguru member, please login.
    Login
  • If you are not a bloguru member, you may request a free account here:
    Request Account