Membuat No Urut Mulai di Cell Aktif - Macro Pemula

Sub test1()

‘Penabahan 1 berulang sampai angka 10

No = 0

For NOMOR = 1 To 10

No = No + 1

‘Mulai Baris ke 5 di kolom 1

Cells(No + 5, 1).Value = No

Next NOMOR

End Sub

Sub test2()

'No_urut_mulai_aktifCell

No = 0

y = ActiveCell.Row - 1

Z = (ActiveCell.Column)

yy = y - y + 1

For x = yy To 10

No = No + 1

Cells(No + y, Z).Value = No

Next x

End Sub

Sub test3()

'No_urut_mulai_aktifCell_1_kolom_kesamping

No = 0

y = ActiveCell.Row - 1

Z = (ActiveCell.Column) + 1

yy = y - y + 1

For x = yy To 10

No = No + 1

Cells(No + y, Z).Value = No

Next x

End Sub

Sub test4()

‘Penabahan 1 berulang sesuai No Baris

For i = 1 To10

Cells(i, 1) = i

Cells(i, 2) = i + 1

Cells(i, 3) = i + 2

Cells(i, 4) = i + 3

Next i

End Sub