Formulir Pengguna Excel - Tips Excel

Daftar Isi

Excel 97 memperkenalkan Formulir Pengguna baru. Dalam bahasa Inggris, ajari saya cara membuat dan menggunakan kotak daftar.

MrExcel baru saja menyelesaikan aplikasi kustom untuk salah satu pembaca kami. Di Aplikasi Excel ini, pengguna akan memasukkan 150 titik data untuk nomor bagian tertentu pada lembar.

1. Dengan mengklik tombol, nomor bagian ini dan nilai data terkait dimasukkan ke database di Sheet2. Ini bagus, tapi kemudian kami membutuhkan cara bagi pengguna untuk memanggil catatan dari lembar 2 sehingga mereka dapat meninjau entri. Saya ingin mengizinkan pengguna untuk membuka formulir dengan kotak drop-down yang menampilkan semua item di lembar

2. Pengguna dapat menggulir, memilih item, dan kemudian saya akan menarik nilai-nilai tersebut dari lembar 2 hingga lembar 1.

Seperti kebanyakan dari Anda, saya mulai menulis makro Excel di Excel 5.0. Keseluruhan Editor Makro di Excel 97 ini agak mengintimidasi. Untuk tip minggu ini, saya akan menunjukkan kepada Anda, langkah demi langkah, cara membuat kotak daftar untuk proyek ini. Fokus minggu ini hanya pada kotak kombo. Target audiens adalah seseorang yang mengetahui dasar-dasar makro Excel, tapi tidak pernah menggunakan formulir untuk berinteraksi dengan makro.

Langkah pertama: Saya mengubah makro yang ada sehingga ketika mereka menambahkan catatan ke sheet2, makro akan memberi nama kisaran yang berisi nomor bagian untuk diberi nama "PartList". Ada judul di sel A1, dengan item pertama di sel A2. Saya menggunakan perintah End untuk menemukan baris terakhir:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

Langkah kedua: Tata letak formulir kotak daftar. Ikuti langkah ini:

Mulai Editor Visual Basic dengan menekan alt-F11
Dari menu, pilih Sisipkan> Formulir Pengguna. Editor harus memberi Anda UserForm1 kosong.
Jika Anda tidak melihat kotak Properties-UserForm1 di pojok kiri bawah, tekan ikon "Properties Window" - ini terlihat seperti tangan dengan jari menunjuk ke lembaran putih.
Entri ke-4 di jendela properti adalah Caption. Saat ini, Caption-nya adalah UserForm1. Klik kotak di sebelah kanan Caption di jendela Properties dan ketikkan judul baru untuk formulir. Saya menelepon saya "Pilih Nomor Bagian untuk Ditinjau". Saya meninggalkan semua properti lainnya untuk formulir dalam keadaan default mereka.
Membuat Kotak Daftar Menggunakan Userform
Klik di manapun di dalam userform lagi dan Controls Toolbox akan muncul.
Di kotak alat Kontrol, pilih huruf A. Klik dan seret untuk membuat kotak label di bagian atas formulir. Secara default memiliki teks Label1. Klik lagi di dalam kotak teks dan Anda dapat mengedit keterangannya. Berikan instruksi kepada pengguna di sini: "Pilih item dari daftar di bawah dan klik OK untuk meninjau nilainya".
Klik pada formulir, tetapi di luar kotak label dan Anda akan melihat kotak alat kontrol lagi. Item ke-4 di baris atas adalah alat kotak kombo. Klik ini dan seret dalam bentuk pengguna untuk membuat kotak kombo. Di sinilah daftar nomor bagian akan muncul. Nama defaultnya adalah ComboBox1.
Properti Combobox
Jendela properti sekarang akan menampilkan properti untuk ComboBox1. Gulir ke bawah melalui properti sampai Anda melihat properti RowSource. Untuk properti RowSource, ketik = Sheet2! PartList
Sekarang Anda dapat menjalankan tes cepat untuk memastikan semuanya berfungsi dengan baik. Klik bilah judul formulir pengguna Anda untuk memilih seluruh formulir. Sekarang klik ikon "putar" (terlihat seperti tombol putar di VCR Anda). Anda akan dikembalikan ke buku kerja Excel Anda dan memiliki formulir pengguna sederhana kami. Jika Anda mengklik dropdown nomor bagian, Anda akan melihat daftar nomor bagian yang valid. Pilih satu, dan itu akan tetap berada di kotak kombo. Sejauh ini tidak terlalu seru. Klik X kecil di pojok kanan atas untuk menutup kotak.
Kembali ke editor Visual Basic. Klik formulir pengguna untuk menampilkan Control Toolbox. Klik alat CommandButton dan gambar tombol. Ubah judul menjadi OK menggunakan jendela Properties - CommandButton1.
Gambar tombol kedua dan beri label Batal.
Kami hampir selesai. Mari ikat sedikit kode ke tombol Batal. Klik kanan tombol Batal dan pilih "Lihat Kode". Editor akan menyiapkan pernyataan Sub dan End Sub Anda. Di antara mereka, ketikkan satu baris kode:
```
UserForm1.Hide
```
Ya, hanya itu yang dapat dilakukan untuk menetapkan kode ke sebuah tombol. Untuk kembali ke bentuk pengguna, klik dua kali kata UserForm1 di Jendela Proyek. (Tidak dapat melihat jendela proyek? Tekan ikon Project Explorer, tepat di sebelah kiri ikon Properties.)
Untuk menyelesaikan formulir pengguna1, mari lakukan sesuatu dengan tombol OK. Ketika pengguna mengklik OK, saya ingin nilai dari kotak daftar muncul di sel sheet1 A2 dan kemudian saya ingin memulai makro yang saya tulis sebelumnya yang disebut ReviewItem. Klik kanan tombol OK dan pilih Lihat Kode. Masukkan kode ini untuk Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```