Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara memunculkan kalender saat mengklik sel tertentu di Excel?

Misalkan ada rentang kolom di lembar kerja Anda harus sering memasukkan dan mengubah tanggal di dalamnya, tetapi bosan untuk memasukkan atau mengubah tanggal secara manual setiap kali. Bagaimana cara memasukkan tanggal dengan cepat tanpa mengetik secara manual ke dalam rentang kolom? Artikel ini berbicara tentang memunculkan kalender ketika mengklik sel dalam rentang tertentu, lalu memasukkan tanggal ke dalam sel yang dipilih secara otomatis setelah memilih tanggal di kalender.


Munculkan kalender saat mengklik sel tertentu dengan kode VBA

Harap selesaikan masalah ini sebagai berikut langkah demi langkah.

Note: Metode ini hanya dapat berfungsi di Microsoft Excel 32-bit.

Langkah 1: Buat UserForm dengan kalender

Harap buat UserForm yang berisi kalender yang akan Anda pop up dengan mengklik sebuah sel.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Formulir Pengguna.

3. Kemudian a Formulir Pengguna dan Toolbox jendela muncul, di Toolbox, klik salah satu kontrol dan klik kanan, lalu pilih Kontrol Tambahan dari menu klik kanan. Lihat tangkapan layar:

4. Dalam Kontrol Tambahan kotak dialog, gulir ke bawah untuk memeriksa Kontrol Microsoft MonthView pilihan dalam Kontrol yang Tersedia kotak, dan kemudian klik OK .

5. Kemudian Anda dapat melihat file Tampilan Bulan tombol ditambahkan di Toolbox jendela. Silakan klik tombol MonthView ini, dan kemudian klik pada jendela UserForm1 untuk membuat Kalender di Userform.

Note: Anda dapat menyesuaikan ukuran jendela UserForm agar sesuai dengan kalender yang disisipkan dengan menyeret batas UserForm.

6. Klik dua kali kalender yang disisipkan di UserForm1, dan di Kode jendela, harap ganti kode asli dengan skrip VBA berikut.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Note: Kode ini dapat membantu memasukkan tanggal ke dalam sel yang dipilih setelah memilih tanggal dari kalender.

Langkah 2: Aktifkan Kalender saat mengklik sel

Sekarang Anda perlu menentukan sel tertentu untuk memunculkan kalender saat mengklik. Silakan lakukan sebagai berikut.

7. Klik dua kali nama lembar yang berisi sel yang akan Anda klik untuk memunculkan kalender di sebelah kiri Project panel, lalu salin dan tempel kode VBA di bawah ini ke jendela Kode. Lihat tangkapan layar:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Note: dalam kode, A2: A10 adalah sel yang akan Anda klik untuk memunculkan kalender. Harap ubah rentang sel sesuai kebutuhan Anda.

8. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Mulai sekarang, ketika mengklik sel mana pun di dalam rentang yang ditentukan di lembar kerja saat ini, kalender akan muncul seperti gambar di bawah ini. Dan tanggal akan dimasukkan secara otomatis ke dalam sel yang dipilih setelah memilih tanggal dari kalender.


Munculkan kalender saat mengklik sel tertentu dengan kode VBA

Bagian ini memperkenalkan Pemetik tanggal kegunaan Kutools untuk Excel. Setelah mengaktifkan fitur ini, klik sel tanggal akan memunculkan kalender, Anda dapat dengan mudah mengganti tanggal yang ada dengan tanggal baru dengannya. Ikuti langkah-langkah di bawah ini untuk menerapkan fitur ini.

1. klik Kutools > Content > Aktifkan Pemilih Tanggal.

2. Setelah mengaktifkan fitur ini, klik pada sel tanggal, dan ikon kalender akan muncul langsung ke sel tersebut.

3. Klik ikon kalender untuk membuka Pemetik tanggal kotak dialog, lalu klik tanggal baru untuk mengganti tanggal di sel yang dipilih.

Catatan:

  • Tombol Urungkan: Klik tombol ini untuk membatalkan tanggal penggantian;
  • Tombol Tutup: Klik tombol ini untuk menutup kotak dialog Pemilih Tanggal;
  • Fitur ini hanya dapat diterapkan pada sel yang berisi tanggal.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Terkait artikel:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (18)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menampilkan kalender pop up di bawah sel yang dipilih. Bagaimana caranya?
Komentar ini diminimalkan oleh moderator di situs
saya menggunakan kode VBA ini dan sejauh ini baik-baik saja. Rentangnya adalah A2:A10 dan kalender muncul saat Anda memilih sel ke dalamnya. Tetapi jika Anda menandai baris dari 2 hingga 10 lagi, kalender akan muncul lagi. Sama halnya dengan kolom "A" jika Anda menandainya, kalender muncul lagi. Bagaimana saya harus melanjutkan, untuk mendapatkan kalender hanya dalam rentang yang telah saya tetapkan?
Komentar ini diminimalkan oleh moderator di situs
Halo semua,

Adakah yang bisa memberi tahu saya cara memunculkan kalender dalam rentang sel, tetapi hanya mulai dari sel tepat di bawah header tabel dan di bawah di kolom excel.


Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Maaf saya tidak mendapatkan pertanyaan Anda. Akan lebih baik jika Anda dapat memberikan tangkapan layar dari apa yang Anda coba lakukan.
Komentar ini diminimalkan oleh moderator di situs
Gunakan yaitu: Range("B6:C30")
Komentar ini diminimalkan oleh moderator di situs
Gunakan yaitu: Range("B6:C30")
Komentar ini diminimalkan oleh moderator di situs
tarihi seçebiliyorum a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Komentar ini diminimalkan oleh moderator di situs
jika saya mencoba memilih satu baris, pop up akan aktif dan tanggal muncul di setiap sel di baris itu


bagaimana saya bisa menghindari ini?
Komentar ini diminimalkan oleh moderator di situs
Hai Sam,
Kode telah diperbarui dalam artikel dengan pemecahan masalah. Silahkan dicoba dan terima kasih atas komentarnya.
Komentar ini diminimalkan oleh moderator di situs
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su a altro foglio
Komentar ini diminimalkan oleh moderator di situs
Hai, Apakah mungkin untuk menempatkan pop-up pemilih tanggal untuk beberapa kolom, seperti di lembar saya, saya memiliki "tanggal mulai", "tanggal akhir" dan "tanggal perjanjian". jika ya lalu bagaimana?
Komentar ini diminimalkan oleh moderator di situs
hai jeet,
Ikuti langkah-langkahnya dan ganti rentang "A2:A10" di kode VBA kedua dengan rentang kolom Anda (seperti C2:E2).
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak! Petunjuk ini sangat berguna :)
Komentar ini diminimalkan oleh moderator di situs
Kalender akan muncul tetapi ketika saya mengklik tanggal, sel tidak terisi
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode berfungsi dengan baik dalam kasus saya. Versi Excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Tidak ada Kontrol Microsoft MonthView yang terdaftar (Office 365), dan petunjuk di sini tidak menjelaskan bagaimana seseorang akan mendapatkan kontrol itu, jadi ini sangat tidak berguna kecuali Anda menggunakan versi Excel yang lebih lama.
Komentar ini diminimalkan oleh moderator di situs
Saya tidak melihat Kontrol Microsoft MonthView dalam daftar, tetapi mungkin seperti yang disebutkan Pete (#32847) bahwa ini tidak akan berfungsi di Office 365 atau Microsoft Office 64-bit.
Komentar ini diminimalkan oleh moderator di situs
Hai Teagan Caudle,
Saya mencari dan mencoba metode yang disarankan di google, tetapi akhirnya tidak dapat mendaftarkan kontrol MonthView di Microsoft 365.
Maaf untuk ketidaknyamanannya. Mungkin Anda bisa memeriksa ini.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan