Jawaban:
Anda bisa memecat suatu peristiwa menggunakan form_activate handler acara. Klik kanan pada formulir pengguna Anda di jendela proyek dan klik "Lihat Kode"
Rekatkan sesuatu seperti ini ke jendela kode:
Private Sub UserForm_Activate()
ComboBox1.AddItem ("1")
ComboBox1.AddItem ("2")
ComboBox1.AddItem ("3")
End Sub
Ini akan memuat item ke kotak kombo. Anda juga dapat mengubahnya menjadi seperti ini:
Private Sub UserForm_Activate()
ComboBox1.AddItem (range("'Sheet1'!A1").value)
ComboBox1.AddItem (range("'Sheet1'!A2").value)
End Sub
jika item combobox Anda ada di lembar excel di suatu tempat.
Setelah acara Aktifkan dibuat, Anda perlu sesuatu yang membuka formulir di tempat pertama (yang saya yakin Anda sudah tahu). Jadi sesuatu seperti ini:
Public Sub show_form()
UserForm1.Show
End Sub
maka Anda akan memanggil acara show_form dengan tombol atau sesuatu di lembar excel.
Contoh Lengkap
Ini adalah contoh lengkapnya:
Buat buku kerja baru. Masukkan beberapa data dalam A1 dan A2. Simpan nama sheet default "Sheet1"
Tekan Alt F11 untuk membuka sisi VBA. klik Sisipkan> UserForm
UserForm1 muncul. Klik kanan padanya dan klik Lihat Kode. Tempel ini:
Private Sub UserForm_Activate()
ComboBox1.AddItem (Range("'Sheet1'!A1").Value)
ComboBox1.AddItem (Range("'Sheet1'!A2").Value)
End Sub
Klik dua kali ThisWorkBook di pohon. Klik Sisipkan> Modul. Tempel ini:
Public Sub show_form()
UserForm1.Show
End Sub
Pohon Anda akan terlihat seperti ini:
Sekarang di buku kerja excel, tambahkan bentuk seperti kotak. Klik kanan pada bentuk Anda dan klik Tetapkan Makro. Pilih show_form.
Sekarang coba jalankan. Klik bentuk yang Anda punya. Ini harus menunjukkan formulir. Ketika Anda mengklik dropdown itu seharusnya memiliki dua item yang terisi.
Ini adalah contoh lengkapnya:
Buat buku kerja baru. Masukkan beberapa data dalam A1 dan A2. Simpan nama sheet default "Sheet1"
Tekan Alt F11 untuk membuka sisi VBA. klik Sisipkan> UserForm
UserForm1 muncul. Klik kanan padanya dan klik Lihat Kode. Tempel ini:
Sub Pribadi PrivateForm_Activate () ComboBox1.AddItem (Range ("'Sheet1'! A1"). Nilai) ComboBox1.AddItem (Range ("'Sheet1'! A2"). Nilai) End Sub Klik dua kali ThisWorkBook di pohon. Klik Sisipkan> Modul. Tempel ini:
Sub Publik show_form () UserForm1.Show End Sub