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

ワオ!と言っているユーザー

今日の日の出(2022.11.17)😄

かすみがあり、御嶽山が視界にありません。



わかお かずまさ
VegaSystems

📷📷📷📷📷📷
#LAN_PRO
#Bloguru
#kuma_ichinomiya
#VegaSystems
#photography_Ichinomiya
#S1R
#sunrise_ichinomiya
#Sunset_ichinomiya
#日の出_一宮
#夜明け_一宮
#kuma

ワオ!と言っているユーザー

×
  • ブログルメンバーの方は下記のページからログインをお願いいたします。
    ログイン
  • まだブログルのメンバーでない方は下記のページから登録をお願いいたします。
    新規ユーザー登録へ