Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengisi kotak kombo dengan data yang ditentukan pada Buku Kerja terbuka?

Biasanya, anda boleh mengisi kotak kombo (Control ActiveX) dengan pelbagai data sel dengan memasukkan rujukan sel ke dalam medan Peti combo ListFillRange. Sekiranya anda ingin mengisi kotak kombo dengan data tertentu secara langsung tanpa menentukan sifatnya secara manual, kaedah dalam artikel ini boleh membantu anda.

Tandakan kotak combo dengan data yang ditentukan dengan kod VBA


Tandakan kotak combo dengan data yang ditentukan dengan kod VBA


Kaedah ini dapat membantu anda mengisi kotak combo dengan data yang ditentukan terus pada buku kerja terbuka. Sila buat seperti berikut.

1. Tekan butang Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tingkap, klik dua kali ThisWorkbook di anak tetingkap kiri untuk membuka ThisWorkbook editor kod. Dan kemudian salin di bawah kod VBA ke dalamnya. Lihat tangkapan skrin:

Kod VBA: mengisi kotak combo dengan data tertentu pada 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

Nota:

1). ComboBox1 adalah nama kotak combo yang anda akan isi data, dan kotak combo ini terletak di Sheet1. Sila ubah seperti yang anda perlukan.

2). Dan gantikan data dalam kod itu dengan keperluan anda.

3. Simpan buku kerja sebagai Buku Kerja Excel Excel-Enabled format dan tutupnya.

4. Buka semula buku kerja, anda akan melihat kotak kombo telah dihuni dengan data yang ditentukan seperti tangkapan di bawah:


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.