Borang Pengguna Excel - Petua Excel

Isi kandungan

Excel 97 memperkenalkan Borang Pengguna baru. Dalam Bahasa Inggeris, ajar saya cara membuat dan menggunakan kotak senarai.

MrExcel baru-baru ini melengkapkan aplikasi khusus untuk salah satu pembaca kami. Dalam Aplikasi Excel ini, pengguna akan memasukkan 150 titik data untuk nombor bahagian tertentu pada helaian.

1. Dengan mengklik butang, nombor bahagian ini dan nilai data yang berkaitan dimasukkan ke pangkalan data pada Helaian2. Ini baik-baik saja, tetapi kemudian kami memerlukan cara bagi pengguna untuk memanggil rekod dari helaian 2 sehingga mereka dapat menyemak entri. Saya ingin membenarkan pengguna membuka borang dengan kotak lungsur yang menunjukkan semua item dalam helaian

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

Seperti kebanyakan anda, saya mula menulis makro Excel di Excel 5.0. Keseluruhan Editor Makro ini di Excel 97 agak menakutkan. Untuk hujung minggu ini, saya akan menunjukkan kepada anda, langkah demi langkah, cara membuat kotak senarai untuk projek ini. Tumpuan minggu ini hanya pada kotak kombo. Khalayak sasaran adalah seseorang yang mengetahui asas-asas makro Excel, tetapi yang tidak pernah menggunakan borang untuk berinteraksi dengan makro.

Langkah pertama: Saya menukar makro yang ada sehingga ketika mereka menambahkan catatan ke sheet2, makro akan menamakan julat yang mengandungi nombor bahagian yang akan dinamakan "PartList". Terdapat tajuk di sel A1, dengan item pertama di sel A2. Saya menggunakan arahan Tamat untuk mencari baris terakhir:

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

Langkah kedua: Susun atur borang kotak senarai. Ikut langkah-langkah ini:

Mulakan Visual Basic Editor dengan menekan alt-F11
Dari menu, pilih Masukkan> Borang Pengguna. Editor harus memberikan UserForm1 kosong kepada anda.
Sekiranya anda tidak melihat kotak Properties-UserForm1 di sudut kiri bawah, tekan ikon "Window Properties" - ia kelihatan seperti tangan dengan jari yang menunjuk ke lembaran putih.
Entri ke-4 di tetingkap sifat adalah Kapsyen. Sekarang, Kapsyen akan menjadi UserForm1. Klik kotak di sebelah kanan Kapsyen di tetingkap Properties dan taipkan tajuk baru untuk borang. Saya memanggil saya "Pilih Nombor Bahagian untuk Disemak". Saya meninggalkan semua sifat lain untuk borang dalam keadaan lalai.
Membuat Kotak Senarai Menggunakan Borang Pengguna
Klik di mana sahaja di dalam borang pengguna sekali lagi dan Kotak Alat Kawalan akan muncul.
Di kotak alat Kawalan, pilih huruf A. Klik dan seret untuk membuat kotak label di bahagian atas borang. Secara lalai, terdapat kapsyen Label1. Klik di dalam kotak teks sekali lagi dan anda boleh mengedit kapsyen. Masukkan arahan kepada pengguna di sini: "Pilih item dari senarai di bawah dan klik OK untuk mengkaji nilai".
Klik pada borang, tetapi di luar kotak label dan anda akan melihat kotak alat kawalan sekali lagi. Item ke-4 di baris atas adalah alat kotak kombo. Klik ini dan seret dalam bentuk pengguna untuk membuat kotak kombo. Di sinilah senarai nombor bahagian akan muncul. Nama lalai adalah ComboBox1.
Properties Combobox
Tetingkap sifat sekarang akan menunjukkan kepada anda sifat untuk ComboBox1. Tatal ke bawah hartanah sehingga anda melihat harta RowSource. Untuk harta RowSource, ketik = Sheet2! PartList
Anda kini boleh menjalankan ujian pantas untuk memastikan semuanya berjalan dengan baik. Klik bar tajuk borang pengguna anda untuk memilih keseluruhan borang. Sekarang klik ikon "mainkan" (sepertinya butang main pada VCR anda). Anda akan dikembalikan ke buku kerja Excel anda dan mempunyai borang pengguna mudah kami. Sekiranya anda mengklik menu lungsur nombor bahagian, anda akan melihat senarai nombor bahagian yang sah. Pilih satu, dan ia akan kekal di kotak kombo. Setakat ini, tidak terlalu menarik. Klik X kecil di sudut kanan atas untuk mengetepikan kotak.
Kembali ke penyunting Visual Basic. Klik borang pengguna untuk menunjukkan Kotak Alat Kawalan. Klik alat CommandButton dan lukis butang. Tukar kapsyen menjadi OK menggunakan tetingkap Properties - CommandButton1.
Lukis butang kedua dan labelkan Batal.
Kami hampir selesai. Mari ikatkan sedikit kod ke butang Batal. Klik kanan butang Batal dan pilih "Lihat Kod". Editor akan menyediakan pernyataan Sub dan Akhir Sub anda. Di antara mereka, taip satu baris kod:
```
UserForm1.Hide
```
Ya, hanya itu untuk menetapkan kod ke butang. Untuk kembali ke bentuk pengguna, klik dua kali perkataan UserForm1 di Tetingkap Projek. (Tidak dapat melihat tetingkap projek? Tekan ikon Project Explorer, di sebelah kiri ikon Properties.)
Untuk menyelesaikan form1 pengguna, mari lakukan sesuatu dengan butang OK. Apabila pengguna mengklik OK, saya mahu nilai dari kotak senarai muncul di sel sheet2 A2 dan kemudian saya mahu memulakan makro yang saya tulis sebelumnya yang disebut ReviewItem. Klik kanan butang OK dan pilih Lihat Kod. Masukkan kod ini untuk Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```