Bagaimana cara mengisi kotak kombo dengan data tertentu di Buku Kerja terbuka?
Biasanya, Anda bisa mengisi kotak kombo (Kontrol ActiveX) dengan rentang data sel tertentu dengan memasukkan referensi sel ke bidang ListFillRange dari properti kotak kombo. Jika Anda ingin mengisi kotak kombo dengan data tertentu secara langsung tanpa menentukan propertinya secara manual, metode dalam artikel ini dapat membantu Anda.
Isi kotak kombo dengan data yang ditentukan dengan kode VBA
Isi kotak kombo dengan data yang ditentukan dengan kode VBA
Metode ini dapat membantu Anda mengisi kotak kombo dengan data tertentu secara langsung di buku kerja yang terbuka. Silakan lakukan sebagai berikut.
1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Buku Kerja Ini di panel kiri untuk membuka file Buku Kerja Ini editor kode. Dan kemudian salin kode VBA di bawah ini ke dalamnya. Lihat tangkapan layar:
Kode VBA: mengisi kotak kombo dengan data yang ditentukan di buku kerja terbuka
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Catatan:
3. Simpan buku kerja sebagai Buku Kerja Excel dengan Makro Aktif format dan tutup.
4. Buka kembali buku kerja, Anda akan melihat kotak kombo telah diisi dengan data tertentu seperti gambar di bawah ini:
Artikel terkait:
- Bagaimana cara menyalin nilai Combo Box ke sel aktif di Excel?
- Bagaimana cara menampilkan format tanggal dalam output kotak kombo di Excel?
- Bagaimana cara mencegah atau menonaktifkan mengetik di kotak kombo di Excel?
- Bagaimana cara mengisi Combo Box dengan data Named Range di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!