Trimakasih telah berkunjung di INFO PENDIDIKAN.COM Kami selalu menunggu kunjungan Anda berikutnya! Salaaaaaaam dari Zainal Abidin, S.Pd (Guru SMAN Unggul Pidie Jaya) Untuk mendapatkan informasi terbaru silahkan bergabung dengan cara klik disini: FACEBOOK ZAINAL ABIDIN atau FACEBOOK INFO PENDIDIKAN

Cara menggunakan Visual Basic for Applications (VBA) untuk mengubah UserForms di Excel

PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.

Klik disini untuk melihat versi Inggris dari artikel ini: 829070
Ringkasan
Artikel ini menjelaskan cara mengubah UserForms secara sistematis di Microsoft Excel. Ini meliputi contoh dan Microsoft Visual Basic untuk aplikasi (VBA) makro yang menunjukkan bagaimana cara mengambil keuntungan dari kemampuan UserForms dan cara menggunakan kontrol ActiveX™ yang tersedia untuk UserForms.

Pengenalan dasar UserForms menjelaskan cara menampilkan UserForms, cara sementara menyembunyikan UserForms dan cara menyingkirkan UserForms. Anda juga akan menunjukkan cara menggunakan peristiwa paling umum yang berkaitan dengan UserForms — menginisialisasi peristiwa, Klik peristiwa, dan peristiwa Hentikan .Satu atau lebih dari contoh berikut menunjukkan cara menggunakan masing-masing kontrol ActiveX™ berikut di UserForm:
  • Label kontrol
  • Kontrol Kotak teks
  • Kontrol CommandButton
  • Kontrol ListBox
  • Kontrol ComboBox
  • Bingkai kontrol
  • Kontrol OptionButton
  • Kotak centang kontrol
  • Kontrol ToggleButton
  • Kontrol TabStrip
  • Kontrol multiPage
  • Kontrol Bilah Penggulung
  • Kontrol SpinButton
  • RefEdit kontrol
  • kontrol Gambar
PENDAHULUAN
Artikel ini menjelaskan cara menggunakan VBA untuk membuat perubahan dalam UserForms di Excel.
Informasi lebih lanjut
Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Dasar-dasar UserForm

Cara menampilkan UserForm

Sintaks yang digunakan untuk menampilkan UserForm secara sistematis adalah sebagai berikut:
UserFormNameTampilkan
Untuk menampilkan UserForm yang bernama UserForm1, gunakan kode berikut ini:
UserForm1.Show
Anda dapat memuat UserForm ke memori tanpa benar-benar menampilkannya. Memerlukan UserForm kompleks beberapa detik untuk ditampilkan. Karena Anda dapat memuatkan UserForm ke memori, Anda dapat menentukan kapan menimbulkan beban ini. Untuk memuat UserForm1 ke memori tanpa menampilkannya, gunakan kode berikut ini:
Load UserForm1
Untuk menampilkan UserForm, Anda harus menggunakan metode Tampilkan yang sebelumnya telah ditampilkan.

Cara sementara menyembunyikan UserForm

Jika Anda ingin menyembunyikan sementara UserForm, gunakan metode yang menyembunyikan . Anda mungkin ingin menyembunyikan UserForm jika aplikasi melibatkan beralih antara UserForms. Untuk menyembunyikan UserForm, gunakan kode berikut ini:
UserForm1.Hide
Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213747 XL2000: cara memindahkan antara UserForms kustom dengan tombol perintah

Cara menghapus UserForm dari memori

Untuk menghapus UserForm dari memori, gunakan pernyataan membongkar . Untuk membongkar UserForm yang bernama UserForm1, gunakan kode berikut ini:
Unload UserForm1
Jika Anda membongkar UserForm dalam prosedur peristiwa yang berkaitan dengan UserForm atau yang tidak berkaitan dengan kontrol UserForm (misalnya, Anda mengklik kontrol CommandButton ), Anda dapat menggunakan kata kunci "Me" bukannya nama UserForm. Untuk menggunakan "Me" kunci untuk membongkar UserForm, gunakan kode berikut ini:
Unload Me

Cara menggunakan UserForm peristiwa

UserForms mendukung banyak peristiwa standar yang Anda dapat melampirkan prosedur VBA. Ketika terjadi peristiwa, prosedur yang Anda untuk peristiwa berjalan. Tindakan yang dilakukan oleh pengguna dapat mengawali banyak peristiwa. Antara yang paling sering digunakan peristiwa untuk UserForm adalah menginisialisasi peristiwa, Klikperistiwa, dan peristiwa Hentikan . 

Catatan Modul Visual Basic yang berisi prosedur kejadian dapat dirujuk sebagai modul "di belakang" UserForm. Modul yang berisi peristiwa prosedur ini tidak terlihat di koleksi modul jendela Explorer proyek Microsoft Visual Basic Editor.Anda harus mengklik dua kali badan UserForm untuk melihat kode UserForm modul.

Cara menjebak UserForm peristiwa

Untuk menjebak UserForm peristiwa, ikuti langkah-langkah berikut:
  1. Buat buku kerja baru di Excel.
  2. Pada menu Alat , arahkan ke Makro, lalu klik Editor Visual Basic.
  3. Pada menu Sisipkan, klik UserForm untuk menyisipkan UserForm di buku kerja Anda.
  4. Klik dua kali UserForm untuk menampilkan jendela kode untuk UserForm.
  5. Dalam modul, ketik kode berikut ini:
    Private Sub UserForm_Click()
    
        Me.Height = Int(Rnd * 500)
        Me.Width = Int(Rnd * 750)
    
    End Sub
    
    Private Sub UserForm_Initialize()
    
        Me.Caption = "Events Events Events!"
        Me.BackColor = RGB(10, 25, 100)
    
    End Sub
    
    Private Sub UserForm_Resize()
    
        msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height
        MsgBox prompt:=msg, Title:="Resize Event"
    
    End Sub
    
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
        msg = "Now Unloading " & Me.Caption
        MsgBox prompt:=msg, Title:="QueryClose Event"
    
    End Sub
    
    Private Sub UserForm_Terminate()
    
        msg = "Now Unloading " & Me.Caption
        MsgBox prompt:=msg, Title:="Terminate Event"
    
    End Sub
  6. Di menu menjalankan , klik Jalankan Sub/UserForm.
Saat UserForm pertama yang dimuat, makro menggunakan menginisialisasi peristiwa untuk mengubah properti judulUserForm "Peristiwa peristiwa peristiwa!" dan properti BackColor untuk biru. 

Ketika Anda mengklik UserForm, Anda melakukan Klik peristiwa. Klik peristiwa mengubah ukuran UserForm. Karena Anda membuat prosedur untuk mengubah ukuran peristiwa, Anda akan menerima dua kotak pesan setelah Anda meng-klik UserForm. Peristiwa Resize terjadi dua kali karena kode balik acara Klik mengubah properti UserForm tinggidan lebar properti. 

Menutup UserForm memulai QueryClose peristiwa. Peristiwa QueryClose menampilkan kotak pesan yang berisi judul yang Anda berikan UserForm kode untuk peristiwa menginisialisasi . Anda dapat menggunakan QueryClose kejadian saat Anda ingin melakukan serangkaian tindakan tertentu apabila pengguna menutup UserForm. 

Hentikan peristiwa kemudian menghasilkan kotak pesan yang menyatakan bahwa judul UserForm UserForm1. Hentikanperistiwa terjadi setelah UserForm dihapus dari memori dan judul UserForm kembali ke status aslinya.

Cara mencegah UserForm ditutup dengan menggunakan tombol tekan Tutup

Ketika Anda menjalankan UserForm, tombol tutup ditambahkan ke sudut kanan atas jendela UserForm. Jika Anda ingin mencegah UserForm ditutup dengan menggunakan tombol tutup , Anda harus menjebak QueryClose peristiwa. 

Peristiwa QueryClose terjadi sebelum UserForm dibongkar dari memori. Menggunakan argumen CloseMode peristiwaQueryClose untuk menentukan bagaimana UserForm ditutup. Nilai vbFormControlMenu untuk argumen CloseModemenunjukkan bahwa tombol tutup diklik. Untuk menjaga UserForm aktif, tetapkan membatalkan argumen peristiwaQueryClose ke TrueUntuk menggunakan peristiwa QueryClose untuk mencegah UserForm ditutup dengan menggunakan tombol tutup , ikuti langkah-langkah berikut:
  1. Buat buku kerja baru di Excel.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol CommandButton UserForm.
  5. klik ganda UserForm untuk menampilkan jendela disahkan untuk UserForm.
  6. Di jendela kode, ketik kode berikut ini:
    Private Sub CommandButton1_Click()
    
        Unload Me
    
    End Sub
    
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
        IF CloseMode = vbFormControlMenu Then
            Cancel = True
            Me.Caption = "Click the CommandButton to close Me!"
        End If
    
    End Sub
  7. Pada menu dijalankan , klik RunSub UserForm.
UserForm tidak ditutup ketika Anda mengklik tombol tekan tutup . Anda harus meng-klik kontrol CommandButtonuntuk menutup UserForm.

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
207714 XL2000: Galat run-time menggunakan UserForms koleksi
211527 XL2000: Tidak dapat menyeret UserForm kontrol ke lembar kerja
211868 XL2000: Menjalankan makro yang memasukkan kontrol ke UserForm galat
213582 XL2000: Masalah saat Anda menggunakan makro untuk menambahkan kontrol UserForm
213583 XL2000: Tidak dapat menampilkan UserForms dalam proyek lain
213736 XL2000: Cara menentukan bukti kunci ditekan bersamaan dengan tombol tekan gulir dengan mouse
213744 XL2000: Cara sementara menyembunyikan UserForm
213747 XL2000: Cara memindahkan antara UserForms kustom dengan tombol tekan perintah
213749 XL2000: Cara menggunakan UserForm untuk memasukkan data
213768 XL2000: Cara dinamis resize formulir pengguna
213774 XL2000: Cara membuat layar mulai dengan UserForm

Kode VBA

Excel termasuk 15 kontrol yang berbeda yang dapat Anda gunakan pada UserForms. Bagian ini berisi berbagai contoh yang menggunakan kontrol ini secara programatik.

Catatan Kode VBA yang disertakan dalam artikel ini tidak berisi contoh yang mempengaruhi semua properti dan peristiwa untuk kontrol. Jika Anda memiliki, Anda dapat menggunakan jendela properti untuk melihat daftar properti yang tersedia untuk kontrol. Untuk melihat daftar properti, Tampilan menu, klik Jendela Properti.

Cara menggunakan moda desain mengedit kontrol

Ketika Anda menggunakan Editor Visual Basic untuk desain kotak dialog, Anda menggunakan moda desain. Dalam mode Desain, Anda dapat mengedit kontrol dan Anda dapat mengubah properti kontrol pada UserForm di jendela properti. Untuk menampilkan jendela properti, pada menutampilan , klik Properti jendela.

Catatan Kontrol tidak menanggapi peristiwa saat Anda berada dalam mode desain. Ketika Anda menjalankan kotak dialog untuk menampilkan cara pengguna melihat itu, program ini dalam mode dijalankan. Perubahan yang Anda buat untuk properti kontrol dalam mode Jalankan tidak dipertahankan apabila UserForm dibongkar dari kehabisan memori.

Catatan Kontrol menanggapi peristiwa dalam mode dijalankan.

Cara merujuk ke kontrol pada UserForm

Bagaimana Anda merujuk ke kontrol secara programatik tergantung pada jenis Visual Basic lembar modul mana Anda menjalankan kode. Jika menjalankan kode dari modul umum, sintaks adalah sebagai berikut:
UserFormName.Controlname.Property = Nilai
Sebagai contoh, jika Anda ingin menetapkan propertiteks kontrol teks yang bernama TextBox1 di UserForm yang bernama UserForm1 ke nilai Bob, gunakan kode berikut ini:
UserForm1.TextBox1.Text = "Bob"
Jika kode dalam prosedur yang diawali dengan kejadian kontrol atau UserForm, Anda tidak harus merujuk ke nama UserForm. Sebaliknya, gunakan kode berikut ini:
TextBox1.Text = "Bob"
Ketika Anda melampirkan kode objek, kode yang dilampirkan ke salah satu dari peristiwa objek tersebut. Dalam banyak contoh dalam artikel ini, Anda memasang kode untuk peristiwaKlik objek CommandButton .

Kontrol label

Kontrol label terutama digunakan untuk menjelaskan kontrol lain di UserForm. Kontrol Label tidak dapat diedit oleh pengguna ketika UserForm sedang berjalan. Gunakan properti judul untuk gulung balik teks di kontrol Label . Properti lainnya sering digunakan untuk memformat kontrol Label termasuk Font properti dan properti ForeColor .

Cara menggunakan pernyataan dengan format kontrol Label

Untuk menggunakan pernyataan dengan mengubah properti kontrol Label , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan kontrol Label untuk UserForm.
  5. Menambah kontrol CommandButton UserForm.
  6. klik ganda CommandButton kontrol toopen jendela kode untuk UserForm.
  7. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        With Label1
            ' Set the text of the label.
            .Caption = "This is Label Example 1"
            ' Automatically size the label control.
            .AutoSize = True
            .WordWrap = False
            ' Set the font used by the Label control.
            .Font.Name = "Times New Roman"
            .Font.Size = 14
            .Font.Bold = True
            ' Set the font color to blue.
            .ForeColor = RGB(0, 0, 255)
        End With
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.
  9. Klik CommandButton.
Teks "Ini adalah contoh Label 1" muncul pada kontrol Label di tebal Times New Roman dengan ukuran fon 14.

Kotak teks kontrol

Teks kontrol sering digunakan untuk mengumpulkan masukan dari pengguna. Properti teks berisi entri yang dibuat dikotak teks kontrol.

Cara menggunakan kontrol teks untuk memvalidasi sandi

Jika Anda menetapkan properti PasswordChar kontrol kotak teks , menjadi kontrol "masked-edit". Setiap karakter yang diketik di kotak teks kontrol visual digantikan dengan karakter yang Anda tentukan. Untuk menggunakan kontrol teksuntuk memvalidasi sandi, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan kontrol teks untuk UserForm.
  5. Pada menu tampilan , klikproperti untuk membuat jendela properti terlihat.
  6. Properti PasswordChar kontrol kotak teks , ketik *.

    Catatan Anda mengubah nilai untuk tanda bintang.
  7. Menambah kontrol CommandButton UserForm.
  8. Klik dua kali CommandButton kontrol toopen jendela kode untuk UserForm.
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        If TextBox1.Text <> "userform" Then
            MsgBox "Password is Incorrect. Please reenter."
            TextBox1.Text = ""
            TextBox1.SetFocus
        Else
            MsgBox "Welcome!"
            Unload Me
        End If
    
    End Sub
    
    
  10. Pada menu dijalankan , klik RunSub UserForm.
  11. Ketik sandi UserForm di kotak teks kontrol.
  12. Klik kontrol CommandButton.
Untuk contoh ini, password adalah "userform". Jika Anda mengetik sandi yang salah, Anda menerima kotak pesan yang menyatakan bahwa sandi tidak benar, kontrol teks dihapus, dan kemudian Anda dapat mengetik sandi. Saat Anda mengetik sandi yang benar, Anda menerima pesan yang diterima, dan UserForm ditutup.

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213555 XL2000: Tidak ada validasi Data properti UserForm kotak isian

CommandButton kontrol

Anda dapat menggunakan kontrol CommandButton untuk memulai prosedur VBA. Prosedur VBA biasanya dilampirkan ke acara Klik kontrol CommandButton . Untuk menggunakan kontrol CommandButton yang menjalankan prosedur saatmengklik kejadian, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol CommandButton UserForm.
  5. Klik dua kali CommandButton kontrol todisplay jendela kode untuk UserForm.
  6. Di jendela kode, ketik kode berikut ini:
    Private Sub CommandButton1_Click()
    
        red = Int(Rnd * 255)
        green = Int(Rnd * 255)
        blue = Int(Rnd * 255)
        CommandButton1.BackColor = RGB(red, green, blue)
    
    End Sub 
  7. Pada menu dijalankan , klik RunSub UserForm.
Warna latar belakang kontrol CommandButton1 perubahan setiap kali Anda klik itu.

Untuk informasi tambahan tentang kontrol CommandButton, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213572 XL2000: Mengklik tombol Batalkan tidak dapat mengabaikan UserForm
213743 XL2000: Cara menetapkan tombol perintah default di UserForm

Kontrol ListBox

Tujuan kontrol ListBox adalah untuk menyajikan pengguna dengan daftar item untuk memilih dari. Anda dapat menyimpan daftar item untuk ListBox kontrol di lembar kerja Excel. Untuk mengisi ListBox kontrol dengan kisaran sel pada lembar kerja, gunakan RowSource properti. Ketika Anda menggunakan properti MultiSelect , Anda dapat mengatur ListBox DNS untuk menerima beberapa pilihan.

Cara mendapatkan item yang dipilih dari kontrol ListBox

Gunakan nilai properti kontrol ListBox untuk menghasilkan item yang dipilih. Untuk mengembalikan item yang dipilih di pilih satu ListBox kontrol, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 pada Sheet1, ketik nilai yang ingin touse mengisi ListBox DNS.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambah kontrol ListBox UserForm.
  6. Klik dua kali ListBox kontrol todisplay jendela kode untuk ListBox DNS.
  7. Di jendela kode, ketik kode berikut untuk Klik ListBox1 peristiwa:
    Private Sub ListBox1_Click()
    
        MsgBox ListBox1.Value
    
    End Sub 
  8. Pada menu dijalankan , klik RunSub UserForm.
Ketika mengklik item dalam daftar, kotak pesan ditampilkan dengan item yang dipilih.

Cara mendapatkan item yang dipilih dalam beberapa kontrol ListBox pilihan

Untuk menentukan item yang dipilih dalam memilih banyak kontrol ListBox , Anda harus mengulang semua item dalam daftar, dan kemudian kueri properti dipilih . Untuk mengembalikan item yang dipilih dalam memilih banyak kontrolListBox , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 pada Sheet1, ketik nilai yang ingin touse mengisi ListBox DNS.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambah kontrol ListBox UserForm.
  6. Pada menu tampilan , klikproperti untuk melihat jendela properti.
  7. Ketik nilai yang ditunjukkan untuk properti kontrol ListBox berikut ini:
       Property    Value
       -----------     -----------------------
       MultiSelect    1 - frmMultiSelectMulti
       RowSource    Sheet1!A1:A8
  8. Menambah kontrol CommandButton UserForm.
  9. Klik dua kali CommandButton kontrol todisplay jendela kode untuk UserForm.
  10. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Sub CommandButton1_Click ()
    
           ' Loop through the items in the ListBox.
           For x = 0 to ListBox1.ListCount - 1
    
              ' If the item is selected...
              If ListBox1.Selected(x) = True Then
    
                 ' display the Selected item.
                 MsgBox ListBox1.List(x)
              End If
           Next x
    
        End Sub 
  11. Pada menu dijalankan , klik RunSub UserForm.
  12. Pilih satu atau lebih item dalam daftar.
  13. Klik CommandButton1.
Setelah mengklik CommandButton1, setiap item yang dipilih dalam kontrol ListBox ditampilkan di kotak pesan terpisah. Setelah semua item yang dipilih muncul di kotak pesan, UserForm otomatis ditutup.

Cara menggunakan properti RowSource untuk mengisi ListBox kontrol dengan sel pada lembar kerja

Untuk menggunakan properti RowSource untuk mengisi ListBox DNS dari kisaran sel pada lembar kerja, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 pada Sheet1, ketik nilai yang ingin touse mengisi ListBox DNS.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambah kontrol ListBox UserForm.
  6. Menambah kontrol CommandButton UserForm.
  7. Klik dua kali CommandButton kontrol todisplay jendela kode untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
        ListBox1.RowSource = "=Sheet1!A1:A5"
    End Sub 
  9. Pada menu dijalankan , klik RunSub UserForm.

    CatatanListBox1 tidak berisi nilai apa pun.
  10. Klik CommandButton1.
ListBox1 diisi dengan nilai di sel A1: A5 di lembar1.

Bagaimana cara mengisi ListBox kontrol dengan nilai-nilai dalam array

Contoh ini menunjukkan cara mengisi ListBox kontrol dengan variabel array. Anda harus menetapkan nilai dari arrayListBox kontrol satu item pada satu waktu. Biasanya, proses ini mengharuskan Anda menggunakan struktur looping, seperti untuk... Berikutnya loop. Untuk mengisi ListBox kontrol dengan variabel array, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol ListBox UserForm.
  5. Di menu sisipkan , klikmodul untuk menyisipkan lembar modul.
  6. Di jendela kode, ketik kode berikut ini:
    Sub PopulateListBox()
    
        Dim MyArray As Variant
        Dim Ctr As Integer
        MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
        
        For Ctr = LBound(MyArray) To UBound(MyArray)
            UserForm1.ListBox1.AddItem MyArray(Ctr)
        Next
        
        UserForm1.Show
    
    End Sub 
  7. Pada menu alat , klikmakro, klik PopulateListBox, dan kemudian klikJalankan.
Prosedur PopulateListBox membangun array sederhana, kemudian menambahkan item dalam array ke ListBox control dengan menggunakan metode AddItem . Kemudian, UserForm akan ditampilkan.

Cara menggunakan horizontal kisaran sel pada lembar kerja untuk mengisi kontrol ListBox

Jika Anda menetapkan properti RowSourceListBox DNS untuk horizontal kisaran sel, hanya nilai pertama ditampilkan diListBox kontrol.

Untuk mengisi ListBox DNS dari kisaran horizontal sel dengan menggunakan metode AddItem , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1:E1 pada Sheet1, ketik nilai yang ingin touse mengisi ListBox DNS.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambah kontrol ListBox UserForm.
  6. Di menu sisipkan , klikmodul untuk menyisipkan lembar modul.
  7. Di jendela kode, ketik kode berikut ini:
    Sub PopulateListWithHorizontalRange()
    
        For Each x In Sheet1.Range("A1:E1")
            UserForm1.ListBox1.AddItem x.Value
        Next
        
        UserForm1.Show
    
    End Sub
  8. Pada menu alat , klikmakro, klikPopulateListWithHorizontalRange, dan kemudian klikJalankan.
Prosedur makro loop melalui A1:E5 sel di Sheet1, menambahkan nilai ListBox1 satu per satu.

CatatanListBox1 tidak dibatasi ke sel A1:E5 di lembar1.

Bagaimana cara mengembalikan banyak nilai dari kontrol ListBox yang dibatasi untuk beberapa kolom data

Anda dapat memformat ListBox kontrol untuk menampilkan lebih dari satu kolom data. Ini berarti bahwa kontrolListBox menampilkan lebih dari satu item di setiap baris dari daftar. Untuk mengembalikan banyak nilai dari item yang dipilih dalam daftar, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Jenis data berikut dalam sel yang ditunjukkan onSheet1:
    A1: tahunB1: wilayahC1: penjualan
    A2: 1996B2: UtaraC2: 140
    A3: 1996B3: SelatanC3: 210
    A4: 1997B4: UtaraC4: 190
    J5: 1997B5: SelatanC5: 195
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambahkan kontrol Label untuk UserForm.
  6. Menambah kontrol ListBox UserForm.
  7. Klik kanan ListBox, dan kemudian klikproperti.
  8. Ketik atau pilih nilai yang ditunjukkan untuk properti thefollowing kontrol ListBox seperti yang tercantum dalam tabel berikut ini:
       Property       Value
       ----------------------------
       BoundColumn     1
       ColumnCount     3
       ColumnHeads     True
       RowSource       Sheet1!A2:A5
  9. Klik dua kali ListBox kontrol todisplay jendela kode untuk ListBox DNS.
  10. Di jendela kode, ketik kode berikut ini:
    Private Sub ListBox1_Change()
    
        Dim SourceData As Range
        Dim Val1 As String, Val2 As String, Val3 As String
        
        Set SourceRange = Range(ListBox1.RowSource)
        
        Val1 = ListBox1.Value
        Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
        Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value
        
        Label1.Caption = Val1 & " " & Val2 & " " & Val3
    
    End Sub
  11. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda meng-klik entri pada kontrol ListBox , label perubahan untuk menampilkan semua tiga item dalam entri tersebut.

Cara menghapus semua item dari kontrol ListBox yang dibatasi ke lembar kerja

Untuk menghapus semua item dari kontrol ListBox yang dibatasi ke lembar kerja, Hapus nilai yang disimpan di propertiRowSource . Untuk menghapus item dari kontrol ListBox yang dibatasi ke lembar kerja, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 pada Sheet1, ketik nilai yang ingin touse mengisi ListBox DNS.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambah kontrol ListBox UserForm.
  6. Klik kanan kontrol ListBox , kemudian klik properti.
  7. Properti RowSource , ketik Sheet1! A1: A5.
  8. Menambah kontrol CommandButton UserForm.
  9. Klik dua kali CommandButton kontrol todisplay jendela kode untuk CommandButton kontrol.
  10. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        ListBox1.RowSource = ""
    
    End Sub
  11. Pada menu dijalankan , klik RunSub UserForm.

    Kontrol ListBoxyang ditambahkan ke UserForm diisi dengan thevalues yang Anda masukkan di lembar1.
  12. Klik CommandButton1.
Semua item yang dihapus dari ListBox1.

Cara menghapus semua item dari kontrol ListBox yang tidak dibatasi ke lembar kerja

Ada tidak ada satu VBA perintah yang akan menghapus semua item dari kontrol ListBox jika daftar tidak dibatasi ke lembar kerja. Untuk menghapus semua item dari kontrol ListBox yang diisi dari array Visual Basic, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol ListBox UserForm.
  5. Di menu sisipkan , klikmodul untuk menyisipkan lembar modul.
  6. Di jendela kode, ketik kode berikut ini:
    Sub PopulateListBox()
    
        Dim MyArray As Variant
        Dim Ctr As Integer
        MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
        
        For Ctr = LBound(MyArray) To UBound(MyArray)
            UserForm1.ListBox1.AddItem MyArray(Ctr)
        Next
        
        UserForm1.Show
    
    End Sub 
  7. Menambah kontrol CommandButton UserForm.
  8. Klik dua kali CommandButton kontrol todisplay jendela kode untuk CommandButton kontrol.
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        For i = 1 To ListBox1.ListCount
            ListBox1.RemoveItem 0
        Next I
    
    End Sub
  10. Pada menu alat , klikmakro, klik PopulateListBox, dan kemudian klikJalankan.

    Kontrol ListBox diisi, dan kemudian UserForm muncul.
  11. Klik CommandButton1.
Semua item yang dihapus dari ListBox1.

Untuk informasi tambahan tentang ListBox kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
161598 OFF: Cara menambahkan data ke ComboBox atau ListBox di Excel atau Word
211446 XL2000: TextColumn properti menampilkan hanya kolom pertama
211896 XL2000: Cara menirukan kombinasi Edit daftar kontrol untuk UserForms
211899 XL2000: Masalah pengaturan judul kolom di ListBox kontrol
213721 XL2000: Cara menghapus semua item dari ListBox atau ComboBox
213722 XL2000: Cara menggunakan properti TextColumn
213723 XL2000: Cara mengembalikan nilai dari kotak daftar yang menampilkan beberapa kolom
213746 XL2000: Cara mengisi kotak daftar kontrol dengan beberapa rentang
213748 XL2000: Bagaimana untuk mengisi satu kotak daftar berdasarkan lain kotak Daftar
213752 XL2000: Menggunakan metode AddItem menyebabkan kesalahan saat RowSource data terikat
213756 XL2000: Menggunakan metode RemoveItem dengan ListBox atau ComboBox kontrol
213759 XL2000: Cara menentukan item yang dipilih di kotak Daftar

Kontrol ComboBox

Anda dapat menggunakan kontrol ComboBox sebagai kotak daftar drop-down, atau kotak kombo di mana Anda dapat memilih nilai dalam daftar atau ketik nilai baru. Properti gaya menentukan jika kontrol ComboBox bertindak sebagai sebuah kotak daftar drop-down atau kotak kombo.

Catatan Semua contoh di bagian sebelumnya untuk mengontrol ListBox juga dapat diterapkan ke control ComboBox , kecuali contoh "Cara mendapatkan item yang dipilih dalam memilih banyak kontrol ListBox".

Cara menambahkan item baru ke daftar jika kontrol ComboBox tidak dibatasi ke lembar kerja

Saat Anda mengetik nilai yang sudah tidak dalam daftar di ComboBox kontrol, Anda mungkin ingin menambahkan nilai yang baru ke daftar. Untuk menambahkan nilai yang baru yang Anda ketik dalam kontrol ComboBox jika kontrolComboBox tidak dibatasi ke lembar kerja, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol ComboBox UserForm.
  5. Di menu sisipkan , klikmodul untuk menyisipkan lembar modul.
  6. Di jendela kode, ketik kode berikut ini:
    Sub PopulateComboBox()
    
         Dim MyArray As Variant
         Dim Ctr As Integer
         MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
        
         For Ctr = LBound(MyArray) To Ubound(MyArray)
             UserForm1.ComboBox1.AddItem MyArray(Ctr)
         Next
        
         UserForm1.Show
    
     End Sub
  7. Menambah kontrol CommandButton UserForm.
  8. Klik dua kali CommandButton kontrol todisplay jendela kode untuk CommandButton kontrol.
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
         Dim listvar As Variant
         
         listvar = ComboBox1.List
        
         On Error Resume Next
         ' If the item is not found in the list...
         If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then
             ' add the new value to the list.
             ComboBox1.AddItem ComboBox1.Value
         End If
    
     End Sub
  10. Pada menu alat , klikmakro, klik PopulateListBox, dan kemudian klikJalankan.

    Kontrol ComboBox diisi, dan kemudian UserForm muncul.
  11. Kontrol ComboBox , ketik Mangga (atau salah satu nilai thatis belum dalam daftar).
  12. Klik CommandButton1.
Nilai baru yang Anda ketik sekarang muncul di bagian akhir dari daftar.

Cara menambahkan item baru ke daftar jika kontrol ComboBox dibatasi ke lembar kerja

Ketika pengguna jenis nilai yang sudah tidak dalam daftar di ComboBox kontrol, Anda mungkin ingin menambahkan nilai yang baru ke dalam daftar. Untuk menambahkan nilai yang baru yang Anda ketik dalam kontrol ComboBox ke daftar, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 di Sheet1, ketik nilai yang ingin touse mengisi ComboBox kontrol.
  3. Pilih sel A1: A5 di lembar1.
  4. Pada menu sisipkan , arahkan kenama, dan kemudian klik tetapkan.

    Di kotaknama di buku kerja , ketik ListRange , kemudian klik OK. Ini membuat nama ditetapkan ListRange. Anda dapat menggunakan nama yang ditetapkan ListRange untuk mengikat properti RowSourceComboBox kontrol lembar kerja.
  5. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  6. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  7. Menambahkan kontrol ComboBox untuk UserForm.
  8. Pada properti untuk ComboBox1, ketik Sheet1! ListRange sebagai propertiRowSource .
  9. Menambah kontrol CommandButton UserForm.
  10. Klik dua kali CommandButton kontrol todisplay jendela kode untuk CommandButton kontrol.
  11. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        Dim SourceData As Range
        Dim found As Object
        
        Set SourceData = Range("ListRange")
        Set found = Nothing
        ' Try to find the value on the worksheet.
        Set found = SourceData.Find(ComboBox1.Value)
        
        ' If the item is not found in the list...
        If found Is Nothing Then
            ' redefine ListRange.
            SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "ListRange"
            ' Add the new item to the end of the list on the worksheet.
            SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _
             = ComboBox1.Value
            ' Reset the list displayed in the ComboBox.
            ComboBox1.RowSource = Range("listrange").Address(external:=True)
        End If
    
    End Sub
  12. Pada menu dijalankan , klik RunSub UserForm.

    UserForm akan ditampilkan di Sheet1.
  13. Mengontrol ComboBox , ketik nilai yang sudah tidak dalam daftar.
  14. Klik CommandButton1.
Item baru yang Anda ketik dalam kontrol ComboBox ditambahkan ke daftar, dan daftar yang ComboBox kontrol terikat diperluas untuk mencakup sel-sel A1:A6.

Cara menampilkan daftar kontrol ComboBox saat UserForm ditampilkan

Kadang-kadang, mungkin berguna untuk menampilkan daftar kontrol ComboBox saat UserForm pertama muncul. Contoh berikut menggunakan peristiwa Aktifkan UserForm. Untuk menampilkan daftar kontrol ComboBox , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1: A5 di Sheet1, ketik nilai yang ingin touse mengisi ComboBox kontrol.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  5. Menambahkan kontrol ComboBox untuk UserForm.
  6. Pada properti untuk ComboBox1, ketik Sheet1! A1: A5 sebagai propertiRowSource .
  7. Klik dua kali UserForm untuk menampilkan jendela disahkan untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk Klik CommandButton peristiwa:
    Private Sub UserForm_Activate()
    
               ComboBox1.DropDown
    
           End Sub
  9. Pada menu dijalankan , klik RunSub UserForm.
UserForm muncul di lembar1, dan Anda dapat melihat daftar untuk ComboBox1.

Cara menampilkan daftar satu kontrol ComboBox ketika Anda membuat pilihan dalam kontrol ComboBox lainnya

Untuk secara otomatis menampilkan daftar satu ComboBox kontrol saat pilihan yang dibuat di kontrol ComboBoxlainnya, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Di sel A1:A10 pada Sheet1, ketik nilai yang ingin touse mengisi ComboBox kontrol.
  3. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  4. Masukkan menu, klikmodul.
  5. Di jendela kode untuk modul, ketik kode berikut ini:
    Sub DropDown_ComboBox()
    
        UserForm1.ComboBox2.DropDown
    
    End Sub
  6. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  7. Menambahkan kontrol ComboBox untuk UserForm.
  8. Pada properti untuk ComboBox1, ketik Sheet1! A1: A5 sebagai propertiRowSource .
  9. Klik dua kali kontrol ComboBox openthe jendela kode untuk mengontrol ComboBox .
  10. Di jendela kode untuk mengontrol ComboBox , ketik kode berikut untuk Klik ComboBox peristiwa:
    Private Sub ComboBox1_Click()
    
        Application.OnTime Now, "DropDown_ComboBox"
    
    End Sub
  11. Menambahkan kontrol ComboBox kedua untuk UserForm.
  12. Pada properti untuk ComboBox2, ketik Sheet1! A6:A10 sebagai propertiRowSource .
  13. Pada menu dijalankan , klik RunSub UserForm.
Ketika mengklik item dalam daftar ComboBox1 , daftar untuk ComboBox2 secara otomatis akan ditampilkan.

Untuk informasi tambahan tentang ComboBox kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
161598 OFF: Cara menambahkan data ke ComboBox atau ListBox di Excel atau Word
211446 XL2000: TextColumn properti menampilkan hanya kolom pertama
211899 XL2000: Masalah pengaturan judul kolom di ListBox kontrol
213717 XL2000: Galat Run-time menggunakan metode menurun dengan ComboBox
213718 XL2000: Cara menampilkan daftar ComboBox saat UserForm ditampilkan
213721 XL2000: Cara menghapus semua item dari ListBox atau ComboBox
213722 XL2000: Cara menggunakan properti TextColumn
213752 XL2000: Menggunakan metode AddItem menyebabkan kesalahan saat data RowSource adalah terikat
213756 XL2000: Menggunakan metode RemoveItem dengan ListBox atau ComboBox kontrol

Bingkai kontrol

Menggunakan kontrol Frame untuk grup item Logis terkait di UserForm. Bingkai kontrol seringkali digunakan untuk grup OptionButton kontrol.

Cara loop melalui semua kontrol pada kontrol bingkai

Untuk menggunakan untuk masing-masing... Berikutnya loop untuk mengakses semua kontrol pada kontrol Frame , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol Frame UserForm.
  5. Menambahkan kontrol OptionButton ke Frame control.

    Ulangi langkah ini untuk menambahkan dua lebih OptionButton kontrol pada kontrol Frame .
  6. Klik dua kali kontrol Frame untuk membuka jendela disahkan untuk kontrol Frame .
  7. Di jendela kode, ketik kode berikut untuk Klik Frame peristiwa:
    Private Sub Frame1_Click()
    
        Dim Ctrl As Control
        
        For Each Ctrl In Frame1.Controls
            Ctrl.Enabled = Not Ctrl.Enabled
        Next
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.
  9. Di UserForm, klik kontrol Frame.
Pertama kali Anda meng-klik kontrol Frame , semua kontrol dalam Frame kontrol tidak tersedia. Jika Anda mengklik kontrol Frame lagi, kontrol tersedia lagi.

Kontrol OptionButton

Anda dapat menggunakan grup OptionButton kontrol untuk membuat satu pilihan antara sekelompok opsi. Anda dapat menggunakan salah satu teknik grup OptionButton kontrol berikut ini:
  • Bingkai kontrol
  • Properti GroupName
CatatanPada nilai, nilai ya , dan nilai yang benar menunjukkan bahwa OptionButton dipilih. Nilai dari , tidak adanilai dan nilai False menunjukkan bahwa OptionButton tidak dipilih.

Cara menentukan OptionButton kontrol yang dipilih ketika kontrol OptionButton pada kontrol bingkai

Ketika Anda grup OptionButtons kontrol dengan menggunakan kontrol Frame , Anda dapat menentukan kontrolOptionButton yang dipilih secara looping melalui semua kontrol dalam Frame kontrol dan memeriksa nilai properti setiap kontrol. Untuk menentukan OptionButton kontrol yang dipilih, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol Frame UserForm.
  5. Menambahkan kontrol OptionButton ke Frame control.

    Ulangi langkah ini untuk menambahkan dua lebih OptionButton kontrol pada kontrol Frame .
  6. Menambahkan kontrol CommandButton pada UserForm luar kontrol Frame .
  7. Klik dua kali CommandButton kontrol todisplay jendela kode untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
         For Each x In Frame1.Controls
             If x.Value = True Then
                 MsgBox x.Caption
             End If
         Next
    
     End Sub
  9. Pada menu dijalankan , klik RunSub UserForm.
  10. Di UserForm, klik satu OptionButton kontrol, dan kemudian klikCommandButton1.
Ditampilkan kotak pesan yang berisi judul kontrol OptionButton dipilih.

Cara menentukan OptionButton kontrol yang dipilih

Tujuan dari contoh berikut ini adalah untuk menentukan OptionButton kontrol yang dipilih dalam Group1 mengamati. Untuk membuat UserForm yang memiliki dua kelompok OptionButton kontrol, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol Frame UserForm.
  5. Menambahkan kontrol OptionButton kontrol Frame .

    Ulangi langkah ini untuk menambahkan dua lebih OptionButton kontrol pada kontrol Frame .
  6. Untuk setiap kontrol OptionButton , ketik Group1 mengamati Properti GroupName .
  7. Ulangi langkah 4 dan 5 untuk membuat kontrol Frame kedua yang berisi tiga OptionButton kontrol.
  8. Untuk setiap kontrol OptionButton pada kontrol Frame kedua, ketik Group2 Properti GroupName .
  9. Menambahkan kontrol CommandButton pada UserForm luar kontrol Frame .
  10. Klik dua kali CommandButton kontrol todisplay jendela kode untuk UserForm.
  11. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
         Dim x As Control
         
         ' Loop through ALL the controls on the UserForm.
         For Each x In Me.Controls
             ' Check to see if "Option" is in the Name of each control.
             If InStr(x.Name, "Option") Then
                 ' Check Group name.
                 If x.GroupName = "Group1" Then
                     ' Check the status of the OptionButton.
                     If x.Value = True Then
                         MsgBox x.Caption
                         Exit For
                     End If
                 End If
             End If
         Next
    
     End Sub
  12. Pada menu dijalankan , klik RunSub UserForm.
  13. Di UserForm, klik salah satu kontrol OptionButton Group1 mengamati, dan kemudian klikCommandButton1.
Ditampilkan kotak pesan yang berisi judul OptionButton kontrol yang telah dipilih.

Untuk informasi tambahan tentang OptionButton kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213724 XL2000: Masalah menggunakan properti TripleState untuk tombol opsi

Kotak centang kontrol

Anda dapat menggunakan kontrol kotak centang untuk menunjukkan nilai yang benar atau salah. Kendali kotak centang yang muncul dengan tanda centang di dalamnya menunjukkan nilai yang benarKotak centang yang muncul dengan tanda centang tidak menunjukkan nilai salah. Jika nilai properti TripleStatebenarkotak centang kontrol juga dapat memiliki nilai nol. Kontrol kotak centang yang memiliki nilai Null sepertinya tidak tersedia.

CatatanPada nilai, nilai ya , dan nilai yang benar menunjukkan bahwa kontrol kotak centang yang dipilih. Nilai Off ,tidak ada nilai dan nilai False menunjukkan bahwa kontrol kotak centang dikosongkan.

Cara memeriksa nilai kontrol kotak centang

Untuk menggunakan nilai properti untuk mengembalikan nilai kontrol kotak centang , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan kontrol kotak centang untuk UserForm.
  5. Dalam daftar properti untuk CheckBox1, pilih Benar sebagai properti TripleState .
  6. Klik dua kali kotak centang kontrol todisplay jendela kode untuk kontrol kotak centang .
  7. Di jendela kode, ketik kode berikut untuk Mengubah CheckBox1 peristiwa:
    Private Sub CheckBox1_Change()
    
        Select Case CheckBox1.Value
            Case True
                CheckBox1.Caption = "True"
            Case False
                CheckBox1.Caption = "False"
            Case Else
                CheckBox1.Caption = "Null"
        End Select
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda mengklik kotak centang kontrol, judul perubahan mengontrol kotak centang untuk mencerminkan nilai saat ini.

Kontrol ToggleButton

Kontrol ToggleButton memiliki tampilan yang sama sebagai kontrol CommandButton sebelum Anda meng-klik. Ketika Anda mengklik kontrol ToggleButton , sepertinya ditekan atau ditekan. Nilai properti kontrol ToggleButton adalahpalsu dan benar ketika tombol yang dipilih ketika tombol tidak dipilih. Jika nilai properti TripleStatebenar, kontrolToggleButton juga dapat memiliki nilai nolToggleButton kontrol yang memiliki nilai Null sepertinya tidak tersedia.

CatatanPada nilai, nilai ya , dan nilai yang benar menunjukkan bahwa kontrol ToggleButton dipilih. Nilai dari , tidak ada nilai dan nilai False menunjukkan bahwa kontrol ToggleButton tidak dipilih.

Cara mendapatkan nilai kontrol ToggleButton

Untuk mendapatkan nilai kontrol ToggleButton , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan kontrol ToggleButton di UserForm.
  5. Menambahkan kontrol Label untuk UserForm.
  6. Klik dua kali ToggleButton kontrol toopen jendela kode untuk ToggleButton kontrol.
  7. Di jendela kode, ketik kode berikut untuk ToggleButton1Click peristiwa:
    Private Sub ToggleButton1_Click()
    
        If ToggleButton1.Value = True Then
            ' Set UserForm background to Red.
            Me.BackColor = RGB(255, 0, 0)
        Else
            ' Set UserForm background to Blue.
            Me.BackColor = RGB(0, 0, 255)
        End If
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda mengklik kontrol ToggleButton , warna latar belakang perubahan UserForm.

Cara membuat grup saling eksklusif ToggleButton kontrol

Contoh ini menggunakan peristiwa MouseUp untuk menetapkan variabel dan panggilan prosedurExclusiveToggleButtons . Prosedur ExclusiveToggleButtons menentukan ToggleButton kontrol yang dipilih, dan kemudian membatalkan yang lain. Untuk membuat grup saling eksklusif ToggleButton kontrol, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikmodul.
  4. Di jendela kode untuk modul, ketik kode berikut ini:
    ' Variable that holds the name of the ToggleButton that was clicked.
    Public clicked As String
    
    Sub ExclusiveToggleButtons()
    
       Dim toggle As Control
    
       ' Loop through all the ToggleButtons on Frame1.
       For Each toggle In UserForm1.Frame1.Controls
    
           ' If Name of ToggleButton matches name of ToggleButton
           ' that was clicked...
           If toggle.Name = clicked Then
              '...select the button.
              toggle.Value = True
           Else
              '...otherwise clear the selection of the button.
              toggle.Value = False
           End If
        Next
    
    End Sub
  5. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  6. Menambah kontrol Frame UserForm.
  7. Menambahkan kontrol ToggleButton kontrol Frame .

    Ulangi langkah ini untuk menambahkan dua lebih ToggleButton kontrol pada kontrol Frame .
  8. Klik dua kali kontrol Frame ke jendela kode displaythe untuk UserForm.
  9. Di jendela kode untuk modul, ketik berikut codefor ToggleButton MouseUp peristiwa:
    Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _
                  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
           clicked = ToggleButton1.Name
           Application.OnTime Now, "ExclusiveToggleButtons"
    
        End Sub
    
        Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _
                  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
            clicked = ToggleButton2.Name
            Application.OnTime Now, "ExclusiveToggleButtons"
    
        End Sub
    
        Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _
                  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
            clicked = ToggleButton3.Name
            Application.OnTime Now, "ExclusiveToggleButtons"
    
        End Sub
  10. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda mengklik kontrol ToggleButton , kontrol ToggleButton dipilih sebelumnya dibatalkan.

TabStrip kontrol

Menggunakan kontrol TabStrip untuk melihat set informasi untuk serangkaian kontrol yang berbeda.

Bagaimana kontrol kontrol TabStrip secara programatik

Untuk mengubah properti BackColorgambar kontrol didasarkan pada tab yang dipilih, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Penyunting Visual Basic.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol TabStrip UserForm.
  5. Menambahkan gambar kontrol yang mencakup basis kontrol TabStrip , namun yang tidak mencakup tab.
  6. Di jendela properti untuk Image1, ketik& H000000FF & Properti BackColor .
  7. Klik dua kali kontrol TabStrip openthe jendela kode untuk TabStrip kontrol.
  8. Di jendela kode, ketik kode berikut untuk Mengubah TabStrip1 peristiwa:
    Private Sub TabStrip1_Change()
    
        Dim i As Integer
    
        i = TabStrip1.SelectedItem.Index
        Select Case i
            Case 0
                ' If Tab1 is selected, change the color of Image control to Red.
                Image1.BackColor = RGB(255, 0, 0)
            Case 1
                ' If Tab2 is selected, change the color of Image control to Green.
                Image1.BackColor = RGB(0, 255, 0)
        End Select
    
    End Sub
  9. Pada menu dijalankan , klik RunSub UserForm.
Warna perubahan mengontrol gambar tergantung pada halaman dengan kontrol TabStrip yang aktif.

Untuk informasi tambahan tentang TabStrip kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213254 XL2000: Cara menggunakan kontrol TabStrip pada UserForm

Multi halaman kontrol

Menggunakan kontrol MultiPage untuk bekerja dengan banyak informasi yang dapat disortir ke dalam beberapa kategori. Kontrol MultiPage terdiri dari satu atau lebih halaman objek yang masing-masing berisi serangkaian kontrol yang berbeda. Anda dapat mengatur halaman aktif secara sistematis dengan menyetel nilai properti MultiPage kontrol.

Bagaimana mengontrol kontrol multi halaman secara programatik

Untuk menambahkan kontrol MultiPage dan kontrol dengan menggunakan makro, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol MultiPage UserForm.
  5. Menambahkan kontrol Label untuk Page1 di MultiPage kontrol.
  6. Menambahkan kontrol teks untuk Page1 pada kontrol MultiPage .
  7. Kontrol MultiPage , klik Page2, dan kemudian ulangi langkah-langkah 5and 6 untuk menambahkan kontrol Labeldan kontrol teks .
  8. Klik dua kali kontrol MultiPage openthe jendela kode untuk mengontrol MultiPage .
  9. Di jendela kode, ketik kode berikut untuk Mengubah MultiPage1 peristiwa:
    Private Sub MultiPage1_Change()
    
        Select Case MultiPage1.Value
            ' If activating Page1...
            Case 0
                Label1.Caption = TextBox2.Text
                TextBox1.Text = ""
            ' If activating Page2...
            Case 1
                Label2.Caption = TextBox1.Text
                TextBox2.Text = ""
        End Select
    
    End Sub
  10. Di jendela kode, ketik kode berikut ini untuk Menginisialisasi UserForm peristiwa:
    Private Sub UserForm_Initialize()
    
        ' Force Page1 to be active when UserForm is displayed.
        MultiPage1.Value = 0
        Label1.Caption = ""
    
    End Sub
  11. Pada menu dijalankan , klik RunSub UserForm.

    Di kotak teks kontrol pada Page1, ketik Uji. Ketika youclick Page2 tab, TextBox2 dihapus, dan judul Label2perubahan pada entri yang dibuat di TextBox1 di Page1 ("uji").

Cara membuat antarmuka wizard menggunakan kontrol multi halaman

Saat tugas memerlukan beberapa langkah tambahan, antarmuka wizard dapat sangat efektif. Anda dapat menggunakan kontrol MultiPage untuk membuat antarmuka wizard alih-alih menggunakan banyak UserForms. Contoh ini mengoperasikan MultiPage kontrol yang memiliki tiga halaman. Prosedur yang terpasang untuk menginisialisasiperistiwa UserForm menonaktifkan Page2 dan Page3, dan memaksa Page1 kontrol MultiPage aktif.

Catatan Ketika Anda indeks halaman kontrol MultiPage menggunakan koleksi halaman , halaman pertama dalam koleksi adalah halaman nol. Prosedur ini juga menetapkan judul CommandButton kontrol dan menonaktifkan <>tombol.

Catatan Prosedur yang ditetapkan untuk peristiwa KlikCommandButton1 kontrol fungsionalitas <> tombol. Prosedur yang ditetapkan untuk peristiwa KlikCommandButton2 kontrol fungsionalitas berikutnya > tombol. Untuk membuat antarmuka wizard menggunakan kontrol MultiPage , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol MultiPage UserForm.
  5. Klik kanan pada Page1 tab, dan kemudian klikHalaman baru untuk menambahkan Page3 ke MultiPage control.
  6. Menambahkan kontrol CommandButton pada UserForm yang tidak berada di MultiPage kontrol.

    Ulangi langkah ini untuk menambahkan kontrol CommandButton kedua di UserForm.
  7. Klik dua kali UserForm untuk membuka Codewindow UserForm.
  8. Di jendela kode, ketik kode berikut ini untuk Menginisialisasi UserForm peristiwa:
    Private Sub UserForm_Initialize()
    
        With MultiPage1
            ' The next 2 lines disable Page2 & Page3.
            .Pages(1).Enabled = False
            .Pages(2).Enabled = False
            ' Make Page1 the active page.
            .Value = 0
        End With
        
        ' Set the caption on the CommandButtons.
        CommandButton1.Caption = "<Back"
        CommandButton1.Enabled = False
        CommandButton2.Caption = "Next>"
    
    End Sub
    
    ' Procedure for the "<Back" button
    Private Sub CommandButton1_Click()
        Select Case MultiPage1.Value
            Case 1                                 ' If Page2 is active...
                With MultiPage1
                    .Pages(0).Enabled = True       ' Enable Page1.
                    .Value = MultiPage1.Value - 1  ' Move back 1 page.
                    .Pages(1).Enabled = False      ' Disable Page2.
                End With
                CommandButton1.Enabled = False     ' Disable Back button.
                
            Case 2                                 ' If Page3 is active...
                With MultiPage1
                    .Pages(1).Enabled = True       ' Enable Page2.
                    .Value = MultiPage1.Value - 1  ' Move back 1 page.
                    .Pages(2).Enabled = False      ' Disable Page3.
       CommandButton2.Caption = "Next>"
                End With
        End Select
    
    End Sub
    
    ' Procedure for the "Next>" button
    Private Sub CommandButton2_Click()
    
        Select Case MultiPage1.Value
            Case 0                                  ' If Page1 is active...
                With MultiPage1
                    .Value = MultiPage1.Value + 1   ' Move forward 1 page.
                    .Pages(1).Enabled = True        ' Enable Page2.
                    .Pages(0).Enabled = False       ' Disable Page1.
                End With
                CommandButton1.Enabled = True       ' Enable Back button.
                
            Case 1                                  ' If Page2 is active...
                With MultiPage1
                    .Value = MultiPage1.Value + 1   ' Move forward 1 page.
                    .Pages(2).Enabled = True        ' Enable Page3.
                    .Pages(1).Enabled = False       ' Disable Page2.
                End With
                CommandButton2.Caption = "Finish"   ' Change Next button to Finish.
                
            Case 2                                  ' If Page3 is active...
                MsgBox "Finished!"                  ' User is Finished.
                Unload Me                           ' Unload the UserForm.
        End Select
    
    End Sub
    
  9. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda mengklik berikutnya >, Page2 diaktifkan dan <> tombol tersedia. Ketika Anda mengklik berikutnya >waktu kedua, judul untuk CommandButton2 perubahan ke "Selesai" dan Page3 diaktifkan.

Bilah penggulung kontrol

Anda dapat menggunakan kontrol bilah penggulung ketika Anda ingin mengubah nilai yang ditampilkan oleh kontrol lainnya, seperti kontrol Label .

Cara mengubah kontrol Label yang didasarkan pada nilai bilah penggulung kontrol

Untuk mengubah properti kontrol Labeljudul ke pengaturan saat ini nilai properti bilah penggulung kontrol, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan kontrol bilah penggulung untuk UserForm.
  5. Menambahkan kontrol Label untuk UserForm.
  6. Klik dua kali kontrol bilah penggulung openthe jendela kode untuk mengontrol bilah penggulung .
  7. Di jendela kode, ketik kode berikut untuk Mengubah ScrollBar1 peristiwa:
    Private Sub ScrollBar1_Change()
    
        Label1.Caption = ScrollBar1.Value
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.
Ketika Anda gulir menggunakan bilah penggulung kontrol, Label1 diperbarui dengan nilai bilah penggulung kontrol.

SpinButton kontrol

Kontrol SpinButton , seperti kontrol bilah penggulung yang sering digunakan untuk kenaikan atau menurunkan nilai kontrol lainnya, seperti kontrol Label . Properti SmallChange menentukan berapa banyak nilai kontrol SpinButtonperubahan ketika diklik.

Cara menambahkan kontrol SpinButton yang menambahkan atau usaha tanggal yang disimpan di kotak teks kontrol

Untuk menambahkan kontrol SpinButton yang menambahkan atau usaha tanggal yang disimpan di kotak teks kontrol, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah kontrol SpinButton UserForm.
  5. Menambahkan kontrol teks untuk UserForm.
  6. Klik dua kali SpinButton kontrol toopen jendela kode untuk SpinButton kontrol.
  7. Di jendela kode, ketik kode berikut untuk SpinButton1 SpinUp peristiwa:
    Private Sub SpinButton1_SpinUp()
    
        TextBox1.Text = DateValue(TextBox1.Text) + 1
    
    End Sub
    
  8. Di jendela kode, ketik kode berikut untuk SpinButton1 SpinDown peristiwa:
    Private Sub SpinButton1_SpinDown()
    
        TextBox1.Text = DateValue(TextBox1.Text) - 1
    
    End Sub
    
  9. Di jendela kode, ketik kode berikut ini untuk Menginisialisasi UserForm peristiwa:
    Private Sub UserForm_Initialize()
    
        TextBox1.Text = Date
    
    End Sub
    
  10. Pada menu dijalankan , klik RunSub UserForm.
Ketika muncul UserForm, tanggal saat ini ditampilkan di TextBox1. Ketika Anda mengklik kontrol SpinButton , tanggal incremented atau decremented dengan satu hari.

Dalam contoh ini, jika Anda mengubah properti SmallChangeSpinButton1, Anda tidak mempengaruhi jumlah hari entri di TextBox1 diubah dengan ketika Anda mengklik SpinButton1. Jumlah hari ditentukan hanya dengan prosedur yang Anda untuk peristiwa SpinUp dan peristiwa SpinDownSpinButton1.

Untuk informasi tambahan tentang SpinButton kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213224 XL2000: Visual Basic contoh untuk menggunakan tombol putar dengan tanggal

RefEdit kontrol

RefEdit kontrol meniru perilaku kotak referensi yang dibangun ke dalam Excel. Anda dapat menggunakan nilai properti untuk mendapatkan alamat sel yang disimpan di RefEdit kontrol.

Bagaimana cara mengisi kisaran sel yang didasarkan pada kisaran yang dipilih dengan menggunakan RefEdit kontrol

Untuk menggunakan RefEdit kontrol untuk mengisi sel, ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambah RefEdit kontrol UserForm.
  5. Menambah kontrol CommandButton UserForm.
  6. Klik dua kali CommandButton kontrol toopen jendela kode untuk CommandButton kontrol.
  7. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 peristiwa:
    Private Sub CommandButton1_Click()
    
        Dim MyRange As String
        MyRange = RefEdit1.Value
        Range(MyRange).Value = "test"
        Unload Me
    
    End Sub
  8. Pada menu dijalankan , klik RunSub UserForm.

    UserFormappears.
  9. Klik tombol di RefEdit kontrol.

    Perhatikan bahwa UserForm runtuh.
  10. Memilih kisaran sel seperti A1: A5, dan kemudian klik thebutton di RefEdit kontrol untuk memperluas UserForm.
  11. Klik CommandButton1.
UserForm menutup dan sel yang Anda pilih sekarang berisi kata "uji".

Untuk informasi tambahan tentang RefEdit kontrol, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213776 XL2000: Cara menggunakan RefEdit kontrol dengan UserForm

Gambar kontrol

Tujuan gambar kontrol adalah untuk menampilkan gambar di UserForm. Untuk menetapkan gambar ke control gambarsaat menjalankan, gunakan fungsi LoadPicture .

Cara memuat gambar ke control gambar

Untuk memasukkan gambar kontrol yang meminta Anda memilih gambar untuk memuat saat Anda mengklik kontrolgambar , ikuti langkah-langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  3. Masukkan menu, klikUserForm untuk memasukkan UserForm di buku kerja Anda.
  4. Menambahkan gambar kontrol pada UserForm.
  5. Klik dua kali gambar kontrol untuk membuka jendela disahkan untuk kontrol gambar .
  6. Di jendela kode, ketik kode berikut untuk Klik Image1 peristiwa:
    Private Sub Image1_Click()
    
        Dim fname As String
        
        ' Display the Open dialog box.
        fname = Application.GetOpenFilename(filefilter:= _
                "Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")
        
        ' If you did not click Cancel...
        If fname <> "False" Then
    
            ' Load the bitmap into the Image control.
            Image1.Picture = LoadPicture(fname)
    
            ' Refresh the UserForm.
            Me.Repaint
        End If
    
    End Sub
    
  7. Pada menu dijalankan , klik RunSub UserForm.

    UserForm akan muncul.
  8. Klik kontrol gambar .

    Apabila klik kontrol gambar , boxappears dialog Pilih gambar untuk membuka , dan kemudian Anda dapat memilih file bitmap untuk menyisipkan ke thecontrol.
Untuk informasi tambahan tentang kontrol gambar, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
213732 XL2000: Menggunakan fungsi LoadPicture dengan kontrol gambar

Informasi tambahan

Browser objek

Daftar lengkap semua properti dan metode untuk perintah tertentu tersedia di Browser objek. Untuk menemukan informasi ini di Excel, ikuti langkah-langkah berikut:
  1. Pada menu alat , titikmakro, dan kemudian klik Visual BasicEditor.
  2. Pada menu tampilan , klik ObjectBrowser.
  3. Di kotak Teks pencarian , ketik nama kontrol yang Anda inginkan, dan kemudian klik Cari.
Untuk informasi selengkapnya tentang cara menggunakan Browser objek di Penyunting Visual Basic, klik Bantuan Microsoft Visual Basic pada bantuan menu, jenis Browser objek di bantuan Office atau Wisaya jawaban, kemudian klikpencarian untuk melihat topik. 
Untuk informasi tambahan tentang cara menginstal Microsoft Excel Help pada komputer Anda, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
231946 OFF2000: Cara Tambah/Hapus program Office satu atau komponen

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti
Post a Comment