Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana hendak muncul kalendar apabila mengklik sel tertentu dalam Excel?

Supaya terdapat julat lajur dalam lembaran kerja yang anda perlu kerap masuk dan menukar tarikh di dalam, tetapi ia bosan untuk memasukkan atau menukar tarikh secara manual setiap kali. Bagaimana untuk cepat memasukkan tarikh tanpa menaip secara manual ke julat lajur? Artikel ini bercakap mengenai muncul kalendar apabila mengklik pada sel dalam julat tertentu, kemudian memasukkan tarikh ke dalam sel yang dipilih secara automatik selepas memilih tarikh dalam kalendar.

Pop timbul kalendar apabila mengklik sel khusus dengan kod VBA

Buat UserForm dengan kalendar

Aktifkan Kalendar apabila mengklik pada sel


Pemilih tarikh (dengan mudah pilih tarikh dengan format tarikh tertentu dari kalendar dan masukkan ke sel terpilih):

Klik Kutools > Memasukkan > Masukkan Tarikh, dan dalam kotak dialog Isi Isi, tentukan format tarikh, klik dua kali pada tarikh tertentu untuk memasukkan tarikh ini ke dalam sel yang dipilih secara immeidately. Lihat tangkapan skrin di bawah:

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma Sekarang!


Pop timbul kalendar apabila mengklik sel khusus dengan kod VBA


Sila selesaikan masalah ini seperti langkah demi langkah.

Nota: Kaedah ini hanya boleh berfungsi pada Microsoft Excel 32-bit.

Buat UserForm dengan kalendar

Sila buat UserForm yang mengandungi kalendar yang anda akan muncul dengan mengklik pada sel.

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > UserForm.

3. Kemudian a UserForm dan Toolbox tingkap muncul, di Toolbox, klik mana-mana satu kawalan dan klik kanan, kemudian pilih Kawalan Tambahan dari menu klik kanan. Lihat tangkapan skrin:

4. Di dalam Kawalan Tambahan kotak dialog, tatal ke bawah untuk menyemak Kawalan Bulanan Microsoft pilihan dalam Kawalan yang tersedia kotak, dan kemudian klik OK butang.

5. Kemudian anda boleh melihat MonthView butang ditambah pada Toolbox tingkap. Sila klik butang BulanView ini, dan kemudian klik pada tetingkap UserForm1 untuk membuat Kalendar di Userform.

Nota: Anda boleh menyesuaikan saiz tetingkap UserForm agar sesuai dengan kalendar yang dimasukkan dengan menyeret sempadan UserForm.

6. Klik dua kali kalendar yang dimasukkan dalam UserForm1, dan dalam Kod tetingkap, sila ganti kod asal dengan skrip VBA berikut.

Kod VBA: buat borang pengguna dengan kalendar

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

Nota: Kod ini boleh membantu memasukkan tarikh ke sel terpilih selepas memilih tarikh dari kalendar.

Aktifkan Kalendar apabila mengklik pada sel

Sekarang anda perlu menentukan sel tertentu untuk muncul kalendar apabila mengklik. Sila buat seperti berikut.

7. Klik ganda nama kunci yang mengandungi sel yang anda akan klik untuk muncul kalendar di sebelah kiri Projek pane, kemudian salin dan tampal kod VBA di bawah ke dalam tetingkap Kod. Lihat tangkapan skrin:

Kod VBA: Klik sel untuk memaparkan kalendar

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

Nota: dalam kod, A2: A10 adalah sel yang akan anda klik untuk muncul kalendar. Sila tukar julat sel yang anda perlukan.

8. Akhbar Alt + Q kunci pada masa yang sama untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

Mulai sekarang, apabila mengklik pada mana-mana sel di dalam julat yang dinyatakan dalam lembaran kerja semasa, kalendar akan muncul seperti gambar di bawah yang ditunjukkan. Dan tarikh akan dimasukkan secara automatik ke dalam sel yang dipilih selepas memilih tarikh dari kalendar.


Related articles:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MG · 1 years ago
    Hello everyone,

    Can anyone tell me how to popup a calendar in a range of cells, but starting only from the cell right bellow a table header and down bellow in an excel column.


    Thank you in advance.
    • To post as a guest, your comment is unpublished.
      Chris · 5 months ago
      Use i.e: Range("B6:C30")
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good Day,
      Sorry I didn't got your question. Would be nice if you could provide screenshot of what you are trying to do.
  • To post as a guest, your comment is unpublished.
    George · 1 years ago
    i used these VBA codes and everthing's fine so far. The range is A2:A10 and calendar pops up when you select a cell into it. But if you mark row from 2 to 10 again the calendar pops again. It's the same with column "A" if you mark it, again the calendar pops. How should i proceed, in order to get the calendar only in the range i've defined?
  • To post as a guest, your comment is unpublished.
    Sirimon · 2 years ago
    I want to show pop up calendar under the cell selected.How should I do?
G|translate Your license is inactive or expired, please subscribe again!