Makro formulir pengguna Excel 2016, Windows 7

0

Saya telah membuat formulir Pengguna di Excel 2016 yang berisi beberapa kotak kombo, beberapa kotak teks, dua tombol radio, dan tombol kirim. Pertama, bagaimana cara mendapatkan kotak kombo untuk referensi daftar yang sudah saya siapkan?

R.Conklin
sumber

Jawaban:

0

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:

masukkan deskripsi gambar di sini

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.

Eric F
sumber
Komentar bukan untuk diskusi panjang; percakapan ini telah dipindahkan ke obrolan .
DavidPostill
@ DavidPostill Kita harus baik sekarang. Kami dapat menghapus semua komentar. BTW apakah saya sebagai penyedia jawaban dapat memulai obrolan atau apakah seseorang dengan hak istimewa lebih tinggi harus memulainya?
Eric F
Itu terjadi secara otomatis setelah sejumlah komentar antara OP dan pengguna lain - saya tidak yakin berapa banyak - atau mod dapat melakukannya kapan saja.
DavidPostill
0

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

R.Conklin
sumber