Cara Membuat Combobox Edit Excel

Artikel Pilar: Cara Membuat Combobox Tanggal Di VBA Excel dengan Gambar

Memiliki pengalaman yang baik dalam penggunaan Microsoft Excel akan membawa banyak keuntungan dalam pekerjaan sehari-hari. Salah satu hal yang bisa membuat Anda lebih produktif dalam menggunakan Microsoft Excel adalah dengan memanfaatkan fitur Combobox Tanggal di VBA Excel. Combobox Tanggal memungkinkan Anda untuk memilih tanggal secara efisien dan mudah tanpa harus memasukkan manual tanggal di dalam sel.

Cara Membuat Combobox Tanggal di VBA Excel

Combobox Tanggal di VBA Excel sangat mudah untuk dibuat. Langkah-langkah berikut akan membantu Anda untuk membuat Combobox Tanggal di Excel:

1. Buka aplikasi Microsoft Excel dan klik Developer Tab.
2. Pilih Insert dan pilih Combobox dari ActiveX Control.
3. Setelah memilih Combobox, klik kanan dan pilih View Code.
4. Pada jendela Visual Basic Editor, pilih ThisWorkbook dan masukkan kode berikut:

Private Sub Workbook_Open()

For x = 1 To 31

ComboBox1.AddItem Format(x, "dd")

Next x

End Sub

5. Jangan lupa untuk menyesuaikan nama Combobox yang akan Anda gunakan dengan kode di atas. Di sini, kami menggunakan ComboBox1 sebagai contoh.
6. Setelah selesai, simpan dan keluar dari Visual Basic Editor.
7. Klik kanan Combobox yang telah Anda buat dan pilih View Code.
8. Pada jendela Visual Basic Editor, masukkan kode berikut:

Private Sub ComboBox1_Change()

ActiveSheet.Range("A1").Value = "Tanggal: " & Me.ComboBox1.Value

End Sub

9. Saat Anda menjalankan kode di atas, hasilnya adalah Combobox Tanggal akan menghasilkan pilihan dari 1 hingga 31 sesuai dengan urutan bulan. Saat ini, Combobox hanya menampilkan pada lembar kerja aktif.

Cara Membuat Dropdown Tanggal di Excel

Selain menggunakan Combobox Tanggal di VBA Excel, Anda juga dapat membuat Dropdown Tanggal di Excel. Berikut adalah langkah-langkah untuk membuat Dropdown Tanggal di Excel:

1. Buka aplikasi Microsoft Excel dan buat lembar kerja baru.
2. Pilih sel pertama di mana Anda ingin menambahkan Dropdown Tanggal dan pilih Data Validation option dari menu Data.
3. Pada jendela Data Validation, pilih List pada Allow option dan masukkan tanggal dari 1 hingga 31 dalam Source box.
4. Setelah selesai, klik OK.
5. Berikutnya, pilih sel di samping sel Dropdown Tanggal yang baru saja Anda buat dan masukkan formula di bawah ini:

=DATE(YEAR(NOW()),MONTH(NOW()),B2)

6. Pada bagian formula B2, masukkan koordinat sel Dropdown Tanggal yang baru saja Anda buat.
7. Setelah selesai, simpan dan keluar dari lembar kerja Excel Anda.
8. Anda sekarang dapat memilih tanggal dari Dropdown yang baru dibuat dan lembar kerja Excel akan secara otomatis menghasilkan tanggal yang sesuai.

Mainkan dan Uji Cobalah Kode Anda

Dalam banyak kasus, menguji kode yang dibuat tersebut sangatlah penting. Jangan takut untuk bermain-main dengan kode tersebut dan membuat perubahan yang diperlukan. Di bawah ini adalah contoh kode sederhana yang dapat digunakan untuk membebaskan beberapa kreativitas Anda:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Or Target.Cells.Count > 1 Then Exit Sub

Dim sDate As String
Dim sFormat As String
Dim lDay As Long
On Error Resume Next

If Target.Validation.Type = 3 Then

sFormat = Target.NumberFormat

If InStr(1, sFormat, "dd", vbTextCompare) Then
 sDate = Target.Value
 If Len(sDate) = 1 Then sDate = "0" & sDate
 sDate = Format(DateSerial(Year(Date), Month(Date), sDate), "dd-mm-yyyy")
 Target = sDate
End If

ElseIf Target.Validation.Type = 4 Then

lDay = Target.Value
If lDay <> 0 Then
 sDate = Format(DateSerial(Year(Date), Month(Date), lDay), "dd-mm-yyyy")
 Target.MergeArea.ClearContents
 Target.MergeArea.Value = sDate
End If

End If

Exit Sub

End Sub

FAQ:

Apa itu Combobox Tanggal di VBA Excel?

Combobox Tanggal di VBA Excel adalah salah satu fitur yang memungkinkan pengguna Excel untuk memilih tanggal secara efisien dan mudah tanpa harus memasukkan manual tanggal di dalam sel. Fitur ini memungkinkan pengguna Excel untuk lebih produktif dalam pekerjaan sehari-hari.

Bagaimana cara membuat Combobox Tanggal di VBA Excel?

Untuk membuat Combobox Tanggal di VBA Excel, pertama-tama Anda harus membuka aplikasi Microsoft Excel dan klik Developer Tab. Kemudian, pilih Insert dan pilih Combobox dari ActiveX Control. Setelah itu, masukkan kode pada jendela Visual Basic Editor dan simpan. Klik kanan Combobox dan pilih View Code. Masukkan kode berikut di jendela Visual Basic Editor dan simpan kembali.