Cara Membuat Pop Up Kalender Di Userform Excel

Apakah Anda seringkali kesulitan memanage jadwal atau mengatur tanggal pada software Excel? Jangan khawatir, karena kami akan membantu Anda untuk membuat kalender atau tanggal pada userform VBA Excel

Cara Membuat Kalender pada Userform VBA Excel

Langkah pertama dalam membuat kalender pada userform adalah dengan cara membuka editor VBA Excel. Setelah itu, buat userform baru dan klik gambar kalender. Ketik “nama kalender” pada nama kontrol di dalam Properties. Kemudian, buat tombol di bawah kalender dan tulis “OK” pada tombol tersebut.

Setelah mengetik “nama kalender”, gunakan fungsi kodak sebagai penghubung antara userform dan kalender. Caranya adalah dengan menulis kode berikut ke dalam modul VBA:

Sub kalender()
    nama_kalender.Value = Format(Date, "mm-dd-yyyy")
End Sub

Selanjutnya, klik dua kali tombol “OK” dan masukkan kode berikut:

Sub OK_click()
    Unload Me
End Sub

Sekarang, tambahkan kode berikut di modul VBA:

Private Sub UserForm_Click()
    End Sub

Jadi, kalender sudah siap untuk digunakan. Agar bisa menggunakan kalender, Anda hanya perlu menambahkan tombol “Kalender” di sel Excel. Tulis fungsi berikut ini:

Sub panggil_kalender()
    nama_userform.Show
End Sub

Selesai. Anda sudah berhasil membuat kalender pada userform VBA Excel

Cara Membuat Pop Up Kalender di Userform Excel

Selain membuat kalender pada userform, kita juga bisa membuat pop up kalender di userform Excel. Pop up kalender akan muncul ketika kita meng-klik sel yang berkaitan dengan kalender tersebut. Berikut adalah cara membuat pop up kalender di userform Excel

Langkah pertama adalah dengan mengunjungi situs Extendoffice.com dan mengunduh add-in tersebut. Setelah itu, install add-in tersebut pada komputer Anda

Kemudian, buat userform baru dan tambahkan elemen gambar kalender pada userform tersebut. Beri nama untuk gambar tersebut dengan “nama gambar”. Setelah itu, klik kanan pada userform dan tambahkan module. Tulis kode berikut di dalam module tersebut:

Option Explicit

Private Sub nama_gambar_Click()
    Format_date Me
End Sub

Sub Format_date(ws As Worksheet)
Dim e As Variant, s As String, f As Date
  On Error GoTo leave
    f = ActiveCell.Value
    e = Application.InputBox("Nomer Hari (Dalam format dd/mm/yyyy)", "Kalender", Format(f, "dd\/mm\/yyyy"), Type:=2)
    If e <> False Then
        If e = "" Then
            ws.ActiveCell.Value = ""
        Else
            s = e
            If IsDate(s) Then
                ws.ActiveCell.Value = DateValue(s)
            Else
               If InStr(s, "/") = 3 And InStr(6, s, "/") = 6 And (Len(s) = 8 Or Len(s) = 10) Then
                  ws.ActiveCell.Value = DateValue(s)
               Else
                  MsgBox "Invalid date!", vbCritical, "Kalender"
               End If
            End If
        End If
    End If
leave:
End Sub

Selanjutnya, tambahkan fungsi di bawah ini di level modul VBA

Function pop_up_kalender(c As MSForms.TextBox) As Date
Dim k As Date
On Error Resume Next
   k = Application.InputBox("Pilih tanggal:", "", , , , , , 1)
   c.Value = WorksheetFunction.Text(k, "dd/mm/yyyy")
End Function

Dari sini, kita sudah berhasil membuat pop up kalender di userform Excel.

FAQ

1. Bagaimana cara mengetahui jenis data dari sebuah sel?

Jawab: Untuk mengetahui jenis data dari sebuah sel, Anda dapat memilih sel tersebut dan melihat tipe data pada field Formulas di ribbon Excel.

2. Apakah ada alternatif lain untuk membuat kalender pada Excel selain dengan menggunakan VBA?

Jawab: Ya, Anda dapat menggunakan plug-in atau add-in tambahan seperti Kutools, ASAP Utilities, dan sebagainya untuk membuat kalender pada Excel. Namun, perlu diingat bahwa beberapa add-in tersebut mungkin berbayar dan tidak tersedia secara gratis.