Pemilih Tanggal Excel

Bagaimana cara memasukkan pemilih tanggal di Excel?

Untuk memasukkan Drop Down Calendar, kita akan menggunakan ActiveX Control  yaitu 'Microsoft Date and Time Picker Control 6.0 (SP6)' .

Anda dapat mengunduh Template Excel Pemilih Tanggal ini di sini - Template Excel Pemilih Tanggal

Misalkan, kita harus menjaga data karyawan suatu perusahaan. Ada beberapa bidang seperti

  • Kode Emp
  • Nama Emp
  • Tanggal Bergabung Emp
  • Departemen Emp

Untuk memasukkan data di MS Excel, kami telah membuat format berikut.

Untuk memasukkan Emp Joining Date, kita perlu membuat kalender drop-down agar lebih mudah bagi pengguna untuk memasukkan tanggal bergabung.

Untuk membuat kalender drop-down, langkah-langkah diberikan di bawah ini - 

Kita perlu memasukkan 'kendali ActiveX' bernama 'Microsoft Date and Time Picker Control 6.0 (SP6)' . Untuk memasukkan, kita akan menggunakan perintah 'Sisipkan' di bawah grup 'Kontrol' di 'Pengembang'

Jika tab 'Pengembang' tidak terlihat, berikut adalah langkah-langkah yang harus diikuti untuk membuatnya terlihat sama.

  • Langkah 1: Di bawah menu 'File' , pilih 'Options'

  • Langkah 2: Kotak dialog bernama 'Opsi Excel' akan terbuka. Pilih 'Sesuaikan Pita' dari tepi kiri kotak dialog. Kotak centang untuk tab 'Pengembang' dan klik 'OK' .

  • Langkah 3: Sekarang kita dapat melihat tab 'Pengembang' di bagian terakhir pita.

  • Langkah 4: Pilih 'Kontrol Lainnya' dari Kontrol ActiveX.

  • Langkah 5: Pilih 'Microsoft Date and Time Picker Control 6.0 (SP6)' dari daftar dan klik 'OK' .

  • Langkah 6: Klik di manapun pada lembar kerja untuk membuat kalender drop-down.

  • Langkah 7: Klik kanan pada 'Date Picker' dan pilih 'Properties' dari daftar.

  • Langkah 8: Ubah nilai dari 'False' menjadi 'True' untuk properti 'CheckBox' sehingga nilai null juga dapat diterima. Tutup kotak dialog 'Properties' .

  • Langkah 9: Klik kanan pada Date Picker lagi dan pilih 'View Code' dari menu kontekstual.

  • Langkah 10: Di 'Visual Basic Editor' , kita dapat melihat bahwa beberapa kode sudah ditulis. Gantilah kode tersebut dengan kode berikut.

Kode:

 Private Sub Worksheet_SelectionChange (ByVa l Target As Range) Dengan Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect (Target, Range ("C: C")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset (0, 1) .Left .LinkedCell = Target.Address Else .Visible = False End Jika Diakhiri Dengan End Sub

  • Langkah 11: Pernyataan pertama dalam kode memberitahu MS Excel Compiler untuk menjalankan kode setiap kali sel baru dipilih (Pilihan diubah). Sel yang dipilih dikirim ke prosedur Sub sebagai 'Target' .
 Private Sub Worksheet_SelectionChange (ByVal Target As Range)
  • Langkah 12: Pernyataan ini mengatur tinggi dan lebar Date Picker menjadi 20 poin di excel. Dapat diamati bahwa kami telah menggunakan operator 'With' sehingga kami tidak perlu merujuk ke DTPicker1 lagi dan lagi.
 Dengan Sheet1.DTPicker1 .Height = 20 .Width = 20
  • Langkah 13: Klausa 'Jika' berikut menetapkan kriteria bahwa jika ada sel yang dipilih di kolom 'C' , baru kemudian Pemilih Tanggal mendapatkan visibilitas. Kami telah menggunakan fungsi 'Intersect' karena fungsi ini memeriksa apakah kami telah memilih sel apa pun di kolom C maka fungsi ini akan mengembalikan alamat jika tidak nilainya akan menjadi null.
 If Not Intersect (Target, Range ("C: C")) Is Nothing Then. Terlihat = Benar
  • Langkah 14: Properti 'Top' dari Date Picker diatur sama dengan nilai properti 'Top' dari sel yang dipilih. Ini berarti bahwa ini akan mengikuti batas atas sel yang dipilih.
.Top = Target.Top
  • Langkah 15: Pernyataan ini menetapkan properti kiri dari Date Picker sama dengan yang ada di sel kanan berikutnya dari sel yang dipilih (Jarak batas kiri kolom D dari paling kiri lembar kerja). Untuk mendapatkan referensi sel kanan berikutnya, kami telah menggunakan fungsi 'Offset' dengan 0 sebagai argumen baris dan 1 sebagai argumen kolom karena ini akan mendapatkan referensi ke sel di kolom berikutnya.
.Left = Target.Offset (0, 1). Kiri
  • Langkah 16: Pernyataan ini menghubungkan Pemilih Tanggal dengan sel Target sehingga nilai mana pun yang dipilih di kalender drop-down yang ditampilkan di sel.
.LinkedCell = Target.Address
  • Langkah 17: Pernyataan 'Else' memberitahu compiler untuk tidak menampilkan Date Picker ketika ada sel kecuali di kolom C yang dipilih.
Lain .Visible = False
  • Langkah 18: Pada akhirnya, kami menutup 'If'
 Berakhir jika
  • Langkah 19: Akhirnya, kita perlu menutup 'Dengan'
 Berakhir dengan
  • Langkah 20: Sekarang, Sub Prosedur akan berakhir.
 Akhiri Sub

Pastikan kami menyimpan file dengan ekstensi '.xlsm' karena ini menyimpan kode VBA yang telah kami tulis dan kami akan dapat menjalankan kode ini ketika ada sel yang dipilih di kolom C.

Sekarang setiap kali kita memilih sel mana pun di kolom 'C', kita dapat melihat kalender drop-down di sudut kanan atas sel yang dipilih. Kita dapat membuka kalender drop-down dengan mengklik simbol panah bawah.

Kita perlu mengklik tanggal mana pun di kalender di bulan yang dipilih untuk memasukkan tanggal itu di sel yang dipilih.

Kita dapat mengubah bulan ke sebelumnya atau berikutnya dengan menggunakan tombol panah yang ditempatkan di sisi kiri dan kanan kalender.

Kami juga dapat mengklik bulan untuk memilih bulan dari drop-down.

Kita juga dapat mengubah tahun dengan mengklik tahun lalu menggunakan panah atas dan bawah untuk memilih yang diinginkan.

Hal-hal untuk diingat

  • 'Microsoft Date and Time Picker Control 6.0 (SP6)' tidak tersedia untuk MS Excel versi 64-bit.
  • Setelah menulis kode VBA, kita perlu menyimpan file dengan ekstensi '.xlsm' (Buku Kerja Excel Macro-Enabled) jika kode VBA tidak akan berjalan.