Cara Membuat Nomor Urut Otomatis Dengan VBA Excel yang Mudah dan Benar

Nomor urut sudah menjadi kebutuhan pokok dari suatu data dalam bentuk tabel. Hampir semua data tabel pasti ada nomor urutnya. Nomor urut ini bisa di buat secara manual, menggunakan rumus dan juga menggunakan VBA Excel.

Kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara membuat nomor urut dengan menggunakan VBA Excel.

Ada tiga langkah untuk membuat nomor otomatis dengan bantuan VBA Excel diantaranya adalah :

Gunakan rumus atau formula Row;
Gunakan script method VBA AutoFill;
Jalankan script atau macro.

Untuk lebih jelasnya kita langsung fahami penjelasan mengenai ketiga langkah di atas secara satu-persatu.

1. Gunakan Rumus atau Formula Row

Untuk langkah yang pertama kalian harus menuliskan rumus atau formula =Row(B1) di dalam cell tepat di bawah judul kolom Nomor Urut. Misalkan kita mempunyai tabel sebagai berikut :

Isikan rumus di cell A2 :

Maka hasilnya :

2. Gunakan Script Method VBA AutoFill

Pada langkah yang ke dua ini kita mulai gunakan coding macro. Coding atau script macro yang kita gunakan adalah script method AutoFill dengan dikombinasikan dengan Function CountA VBA Excel. Berikut coding atau script hasil kombinasinya :

Sub SerialNumberAutoFill()

Dim x As Integer

x = WorksheetFunction.CountA(Sheets(1).Range("B:B"))

Sheets(1).Range("A2").AutoFill Destination:=Sheets(1).Range("A" & "2" & ":" & "A" & x)

End Sub

3. Jalankan script atau macro

Untuk menjalan script macro maka kalian harus lakukan langkah berikut ini:

Pilih menu Developer pada jendela Excel - pilih View Code;
Setelah jendela VBA Excel muncul pilih menu Insert - Module pada jendela VBA Excel - copy script VBA yang telah dikombinasikan sesuai dengan point 2;
Dan terakhir pilih menu Run - Run Sub/User Form.