Input nomor urut tanggal dan jam secara otomatis dengagn excel - Bagi anda yang bergelut dibidang administrasi perkantoran, apapun bagian anda pasti tidak akan lepas dari input data, baik itu input data renovasi gedung, input inventaris, input hasil produksi perbulan dan lain lain . Biasanya untuk membuat satu tabel pasti pada kolom pertama diawali dengan nomor urut, nomor ini berguna untuk memberikan identitas masing masing baris, kemudian pada kolom berikutnya diikuti dengan tanggal dan seterusnya

Untuk membuat entri data dengan VBA silahkan baa artikelnya disini

Ada cara untuk membuat nomor otomatis dan tanggal otomatis, cara ini akan mempermudah pekerjaan anda sehingga anda bisa menyelesaikan pekerjaan dengan lebih cepat, lalu bagaimana caranya silahkan ikuti langkah langkahnya berikut ini :

Buka microsoft excel, save as enabled macro kemudian hapus semua sheet yang tidak diperlukan

Buatlah tabel dengan kolom Nomor Tanggal dan keterangan seperti gambar dibawah ini


Pada kolom Tanggal yaitu kolom B rubah format kolomnya menjadi format tanggal (DD-MMM-YYYY)


Buka jendela VBE, lalu letakan kode acro dibawah ini pada area Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
Baris = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row - 1
If Target.Column = 3 Then
If Target.Cells.Count = 1 Then
If Len(Target.Value) > 0 Then
Target(1, -1) = Baris
Target(1, 0) = Format(Now, "dd-mmm-yyyy")
Else
Target(1, 0).ClearContents
Target(1, -1).ClearContents
End If
End If
End If
End Sub

Lihat hasilnya seperti ini


Untuk mengaktifkan tanggal silahkan rubah format tanggal yang ada pada kolom B menjadi (DD-MMM-YYYY HH:MM)

Atau anda bisa merubah pada kode maronya menjadi seperti ini

Private Sub Worksheet_Change(ByVal Target As Range)
Baris = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row - 1
If Target.Column = 3 Then
If Target.Cells.Count = 1 Then
If Len(Target.Value) > 0 Then
Target(1, -1) = Baris
Target(1, 0) = Format(Now, "dd-mmm-yyyy HH:MM")
Else
Target(1, 0).ClearContents
Target(1, -1).ClearContents
End If
End If
End If
End Sub

Simpan dan silahkan bekerja dengan riang gembira

Keterangan
Target.Column = 3 : Sel pertama ketika diisi nilai
Target(1, -1) : Kolom pertama adalah kolom A atau nomor 2 kekiri dari sel target
Target(1, 0) : Kolom kedua adalah kolom B atau nomor 1 kekiri dari sel target


Demikianlah cara membuat Input nomor urut tanggal dan jam secara otomatis dengagn excel, lihat ulasan lainnya membuat nomor urut dengan For Next semoga bermanfaat
No comments