Menambah Nomor Otomatis

VBA 01.jpg

Dalam menggunakan Excel sangat sering kita akan menggunakan penomoran untuk data kita. Membuat penomoran dalam excel memiliki banyak cara, diantaranya adalah dengan drop ataupun dengan menggunakan rumus fungsi atau bisa juga menggunakan kode vba.


Kali ini kita akan membuat penomoran dengan menggunakan kode vba. Kelebihan membuat penomoran dengan kode vba adalah kita dapat membuat penomoran dengan jumlah berapa pun hingga sampai puluhan ribu hanya dengan satu kali klik. Cara menggunakannya hanya dengan pilih sel awal yang akan kita tambahkan nomor urut pertama lalu berikutnya otomatis membuat nomor hingga urutan terakhir sesuai dengan angka yang kita ketik.

 

Berikut kode yang akan kita gunakan untuk program penomoran otomatis

 

Sub TambahNomorOtomatis()

Dim i As Integer

On Error GoTo Last

i = InputBox(vbNewLine & vbNewLine & "Nomor Maksimal :", "Input Nomor Otomatis")

For i = 1 To i

ActiveCell.Value = i

ActiveCell.Offset(1, 0).Activate

Next i

Last: Exit Sub

End Sub

 

Silakan download contoh file Excel dengan kode VBA untuk penomoran otomatis di:

Download File Contoh 

zip.png   Tambah Nomor Otomatis - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

Tulangan Sidoarjo Jatim

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali, M.Pd.