3 JENIS KODE MACRO MEMBUAT NOMOR URUT OTOMATIS DI EXCEL

VBA MACRO CARA MEMBUAT NOMOR URUT OTOMATIS DI EXCEL
Anda juga dapat mengunduh Aplikasi Kartu Ujian sebagai contoh

Kode Macro Membuat Nomor Urut Otomatis sangat banyak caranya tinggal kita mau yang gimana, tapi disini kami selaku penulis setidaknya akan memberikan 3 contoh kode macro membuat nomor urut otomatis dibawah ini.

Oke sekarang kita mulai dari yang pertama yaitu kode macro membuat nomor urut otomatis.

1. Kode Macro Nomor Urut otomatis Versi 1 ini akan memberikan nomor urut secara otomatis apabila anda mengetik angkat atau huruf di range B2 di sheet1 (pastekan kode macro dibawah ini di sheet tujuan)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Static oldRange As Range
Dim nRow As Integer, nCol As Integer
If Not oldRange Is Nothing Then
nRow = oldRange.Row
nCol = oldRange.Column
Cells(1, 1).Value = "No"
Cells(1, 2).Value = "Uraian"
If nRow > 1 Then 'Menampilkan nomor urut otomatis.
If Len(Cells(nRow, 2).Value) > 0 Then
Cells(nRow, 1).Formula = "=COUNTA($B$2:B" & nRow & ")"
Else: Cells(nRow, 1).Value = ""
End If
End If
End If
Set oldRange = Target
End Sub

2. Kode Macro Nomor Urut otomatis Versi 2 dengan commandbutton

No = 0
For nomor = 1 To 10
No = No + 1
Cells(No + 1, 1).Value = No
Next nomor

apabila Anda ingin sampai nomor 1 sampai dengan 100 hanya tinggal mengganti nomor diatas 1 To 10 atau sesuai kebutuhan

3. Atau kode macro diatas dapat Anda tambah kode macro sesuai kebutuhan sebagai berikut

If Range("D2") = "no" Then
MsgBox "maaf, data tidak ada", vbCritical, "sistem aplikasi"
Range("nomor").Clear
Exit Sub
End If
If Range("D2") = "yes" Then
Range("nomor").Clear
No = 0
For nomor = 1 To Range("F1")
No = No + 1
Cells(No + 1, 1).Value = No
Next nomor
Exit Sub
End If

KETERANGAN
Sebenarnya masih banyak lagi Kode Macro Membuat Nomor Urut Otomatis Di Excel, Karena ini hanya sampel bersama ini kami lampirkan file yang bisa ANda unduh dibawah ini.

DOWNLOAD FILE

Jadi untuk Memberi Nomor Urut Otomatis di excel sangat banyak dan diatas dapat Anda kembangkan sendiri melalui searching di google. Dan Akhirnya cukup sekian dari kami salam penutup jabata erat.

Share :