Pemilih Tarikh Excel - Bagaimana Memasukkan Pemilih Tarikh (Kalendar) di Excel?

Bagaimana Memasukkan Pemilih Tarikh di Excel?

Untuk memasukkan Kalendar Turun, kita akan menggunakan Kawalan ActiveX, iaitu 'Microsoft Date and Time Picker Control 6.0 (SP6)' .

Katakan kita harus menyimpan data untuk pekerja syarikat. Terdapat beberapa bidang seperti

  • Kod Emp
  • Nama Emp
  • Tarikh Penyertaan Emp
  • Jabatan Emp

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

Untuk memasukkan Emp Join Date, kita perlu membuat drop-down kalendar agar pengguna lebih mudah memasukkan tarikh join.

Untuk membuat kalendar lungsur, langkah-langkah diberikan di bawah -

Kita perlu memasukkan 'ActiveX control' yang bernama 'Microsoft Date and Time Picker Control 6.0 (SP6)' . Untuk memasukkan, kami akan menggunakan arahan 'Sisipkan' di bawah kumpulan 'Kawalan' di 'Pembangun.'

Sekiranya tab 'Pembangun' tidak kelihatan, berikut adalah langkah-langkah yang harus diikuti untuk menjadikannya sama.

  • Langkah 1: Di bawah menu 'Fail' , pilih 'Pilihan'
  • Langkah 2: Kotak dialog bernama 'Pilihan Excel' akan dibuka. Pilih 'Customize Ribbon' dari tepi kiri kotak dialog. Kotak pilihan untuk tab 'Pembangun' dan klik 'OK.'
  • Langkah 3: Sekarang, kita dapat melihat tab 'Pembangun' di pita terakhir.
  • Langkah 4: Pilih 'Lebih Banyak Kawalan' dari ActiveX Controls.
  • Langkah 5: Pilih 'Microsoft Date and Time Picker Control 6.0 (SP6)' dari senarai dan klik 'OK.'
  • Langkah 6: Klik di mana sahaja pada lembaran kerja untuk membuat kalendar lungsur turun.
  • Langkah 7: Klik kanan pada 'Date Picker' dan pilih 'Properties' dari senarai.
  • Langkah 8: Tukar nilai dari 'False' menjadi 'True' untuk 'CheckBox' sehingga nilai null juga dapat diterima. Tutup kotak dialog 'Properties' .
  • Langkah 9: Klik kanan pada Date Picker sekali lagi dan pilih 'View Code' dari menu kontekstual.
  • Langkah 10: Dalam 'Visual Basic Editor', kita dapat melihat bahawa beberapa kod sudah ditulis. Ganti kod dengan kod berikut.

Kod:

Sub Lembaran Kerja Swasta_SelectionChange (ByVal Target As Range) Dengan Sheet1.DTPicker1 .Hight = 20 .Width = 20 If Not Intersect (Target, Range ("C: C")) Tidak Ada Kemudian .Visible = True .Top = Target.Top. Kiri = Sasaran. Offset (0, 1). Kiri .LinkedCell = Target. Alamat Lain. Kelihatan = Akhir Palsu Jika Berakhir Dengan Sub Akhir
  • Langkah 11: Pernyataan pertama dalam kod memberitahu MS Excel Compiler untuk menjalankan kod setiap kali sel baru dipilih (Pemilihan diubah). Sel yang dipilih dihantar ke Sub prosedur sebagai 'Target.'
Sub Lembaran Kerja Swasta_SeleksiChange (ByVal Target As Range)
  • Langkah 12: Pernyataan ini menetapkan ketinggian dan lebar Pemilih Tarikh hingga 20 mata dalam excel. Dapat diperhatikan bahawa kami telah menggunakan operator 'With' sehingga kami tidak perlu merujuk DTPicker1 berulang -ulang kali.
 Dengan Helaian1.DTPicker1. Tinggi = 20. Lebar = 20
  • Langkah 13: Klausa 'Jika' berikut menetapkan kriteria bahawa jika ada sel yang dipilih dalam lajur 'C' , hanya maka Pemilih Tarikh dapat dilihat Kami telah menggunakan fungsi 'Intersect' kerana fungsi ini memeriksa sama ada kami telah memilih mana-mana sel di lajur C, maka fungsi ini akan mengembalikan alamat; jika tidak, nilainya akan menjadi nol.
Sekiranya Tidak Bersilang (Sasaran, Julat ("C: C")) Tidak Ada Lalu .Visible = Benar
  • Langkah 14: Properti 'Atas' Date Picker ditetapkan sama dengan nilai harta tanah 'Teratas' sel yang Dipilih. Ini bermaksud bahawa ini akan sesuai dengan sempadan atas sel yang dipilih.
.Top = Sasaran.Top
  • Langkah 15: Pernyataan ini menetapkan sifat kiri Pemilih Tarikh sama dengan sel kanan sebelah sel yang dipilih (Jarak sempadan kiri lajur D dari kiri paling kiri lembaran kerja). Untuk mendapatkan rujukan sel kanan seterusnya, kami telah menggunakan fungsi 'Offset' dengan 0 sebagai argumen baris dan 1 sebagai argumen lajur kerana ini akan mendapat rujukan ke sel di lajur berikutnya.
.Left = Target. Offset (0, 1). Kiri
  • Langkah 16: Pernyataan ini menghubungkan Pemilih Tarikh dengan sel Sasaran sehingga nilai mana yang dipilih dalam kalendar lungsur turun yang dipaparkan di dalam sel.
.LinkedCell = Target.Address
  • Langkah 17: Pernyataan 'Else' memberitahu penyusun untuk tidak memaparkan Pemilih Tarikh apabila ada sel kecuali di lajur C dipilih.
Lain. Kelihatan = Salah
  • Langkah 18: Pada akhirnya, kami menutup 'Jika.'
Tamat Sekiranya
  • Langkah 19: Akhirnya, kita perlu menutup 'Dengan.'
Tamat Dengan
  • Langkah 20: Sekarang, Sub Prosedur akan berakhir.
Sub Akhir

Pastikan kita menyimpan fail dengan pelanjutan '.xlsm' kerana menyimpan kod VBA yang telah kita tulis, dan kita akan dapat menjalankan kod ini apabila mana-mana sel dipilih dalam lajur C.

Now, whenever we select any cell in the ‘C’ column, we can see a drop-down calendar at the top right corner of the selected cell. We can open the drop-down calendar by clicking on the down arrow symbol.

We need to click on any date in the calendar in the selected month to enter that date in the selected cell.

We can change month to previous or next using the arrow button placed at the left and right side of the calendar.

We can also click on the month to choose a month from the drop-down.

We can also change year by clicking on year and then using up and down arrows to choose the required one.

Things to Remember

  • ‘Microsoft Date and Time Picker Control 6.0 (SP6)’ is not available for the 64-bit version of MS Excel.
  • Setelah menulis kod VBA, kita perlu menyimpan fail dengan pelanjutan '.xlsm' (Excel Work-Enabled Workbook); jika tidak, kod VBA tidak akan dijalankan.

Artikel menarik...