Bagaimana menggunakan Visual Basic for Applications (VBA) untuk mengubah UserForms dalam Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 829070 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

Ringkasan

Artikel ini menjelaskan cara mengubah UserForms pemrograman di Microsoft Excel. Disertakan contoh-contoh dan Microsoft Visual Basic for Applications (VBA) Macro yang menunjukkan kepada Anda bagaimana untuk mengambil keuntungan dari kemampuan UserForms dan bagaimana menggunakan kendali ActiveX ? yang tersedia untuk UserForms.

Pengenalan prinsip-prinsip dasar UserForms menjelaskan bagaimana menampilkan UserForms, bagaimana untuk menyembunyikan UserForms, dan bagaimana untuk mengabaikan UserForms. Anda juga ditampilkan bagaimana menggunakan peristiwa-peristiwa paling umum yang terkait dengan UserForms ? Menginisialisasi acara, Klik acara, dan Mengakhiri acara. Satu atau lebih dari contoh-contoh berikut menunjukkan bagaimana menggunakan setiap kendali ActiveX ? berikut di UserForm:
  • Label kontrol
  • TextBox kontrol
  • CommandButton kontrol
  • ListBox kontrol
  • ComboBox kontrol
  • Bingkai kontrol
  • OptionButton kontrol
  • kotak centang kontrol
  • ToggleButton kontrol
  • TabStrip kontrol
  • MultiPage kontrol
  • ScrollBar kontrol
  • SpinButton kontrol
  • RefEdit kontrol
  • Gambar kontrol

PENGENALAN

Artikel ini menjelaskan cara menggunakan VBA untuk membuat perubahan dalam UserForms dalam Excel.

Informasi lebih lanjut

Microsoft menyediakan pemrograman contoh ilustrasi saja, tanpa jaminan, baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, jaminan tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrogram yang muncul dan dengan alat-alat yang digunakan untuk membuat dan debug prosedur. Microsoft support engineers dapat membantu menjelaskan fungsi dari prosedur tertentu, namun mereka tidak akan mengubah contoh-contoh ini untuk memberikan menambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda.

Dasar-dasar UserForm

Cara menampilkan UserForm

Sintaks yang digunakan untuk menampilkan UserForm pemrograman berikut:
UserFormName.Tampilkan
Untuk menampilkan UserForm yang bernama UserForm1, menggunakan berikut Kode:
UserForm1.Show
Anda dapat memuat UserForm ke kehabisan memori tanpa benar-benar menampilkannya. Mungkin diperlukan UserForm kompleks beberapa detik untuk muncul. Karena Anda dapat preload UserForm ke kehabisan memori, Anda dapat memutuskan kapan harus dikenakan overhead ini. Untuk memuat UserForm1 ke dalam kehabisan memori tanpa menampilkannya, gunakan kode berikut:
Load UserForm1
Untuk menampilkan UserForm, Anda harus menggunakan metode Tampilkan yang sebelumnya ditampilkan.

Bagaimana untuk menyembunyikan UserForm

Jika Anda ingin untuk menyembunyikan UserForm, menggunakan metode menyembunyikan . Anda mungkin ingin menyembunyikan UserForm jika aplikasi Anda melibatkan berpindah-pindah antara UserForms. Untuk menyembunyikan UserForm, gunakan kode berikut:
UserForm1.Hide
Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Microsoft Knowledge Base:
213747XL2000: Bagaimana untuk beralih antara kustom UserForms dengan tombol tekan perintah

Bagaimana menghapus UserForm dari kehabisan memori

Untuk menghapus UserForm dari kehabisan memori, menggunakan pernyataan membongkar . Untuk membongkar UserForm yang bernama UserForm1, menggunakan kode berikut:
Unload UserForm1
Jika Anda membongkar UserForm di prosedur kejadian yang dikaitkan dengan UserForm atau yang berhubungan dengan kontrol pada UserForm (misalnya, Anda klik control CommandButton ke atas ), Anda dapat menggunakan kata bukti kunci "Me" bukan nama UserForm. Untuk menggunakan "Me" kata bukti kunci untuk membongkar UserForm, menggunakan kode berikut:
Unload Me

Bagaimana menggunakan peristiwa-peristiwa UserForm

UserForms mendukung banyak peristiwa standar yang Anda dapat melampirkan VBA prosedur untuk. Ketika acara terjadi, prosedur yang Anda melekat acara berjalan. Tindakan yang dilakukan oleh pengguna dapat memulai beberapa peristiwa-peristiwa. Di antara yang paling sering digunakan peristiwa untuk UserForm adalah acara menginisialisasi , acara Klik dan acara Hentikan .

Catatan Modul Visual Basic yang berisi prosedur kejadian mungkin disebut sebagai modul "behind" UserForm. Modul yang berisi acara prosedur tidak terlihat dalam koleksi modul jendela Microsoft proyek Explorer Visual Dasar Editor. Anda harus mengklik dua kali tubuh UserForm untuk melihat UserForm Modul kode.

Bagaimana untuk menjebak UserForm peristiwa

Untuk menjebak UserForm peristiwa, ikuti langkah berikut:
  1. Membuat buku kerja baru di Excel.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. klik ganda UserForm untuk menampilkan Kode jendela untuk UserForm.
  5. Dalam modul, ketik kode berikut:
    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. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika UserForm pertama yang dimuat, makro menggunakan acara menginisialisasi untuk mengubah properti Caption UserForm untuk "Peristiwa Events Events!" dan properti BackColor menjadi biru tua.

Ketika Anda klik UserForm, Anda memulai acara Klik . Acara Klik mengubah ukuran UserForm. Karena Anda menciptakan sebuah prosedur untuk mengubah ukuran acara, Anda menerima dua kotak pesan setelah Anda mengklik UserForm. Mengubah ukuran acara terjadi dua kali karena kode di belakang acara Klik perubahan lebar properti dan properti tinggi dari UserForm.

Menutup UserForm memulai acara QueryClose . Acara QueryClose menampilkan kotak pesan yang berisi keterangan yang Anda memberikan UserForm dalam kode untuk menginisialisasi acara. Anda dapat menggunakan acara QueryClose bila Anda ingin melakukan serangkaian tindakan tertentu jika pengguna menutup UserForm.

Acara Hentikan kemudian menghasilkan kotak pesan yang menyatakan bahwa keterangan UserForm adalah UserForm1. Hentikan peristiwa terjadi setelah UserForm akan dihapus dari kehabisan memori yang Keterangan dari UserForm kembali ke keadaan semula.

Bagaimana mencegah UserForm ditutup dengan menggunakan tombol tekan Tutup

Ketika Anda menjalankan UserForm, Dekat tombol tekan ditambahkan di sudut kanan-atas atas jendela UserForm. Jika Anda ingin mencegah UserForm dari ditutup dengan menggunakan Dekat tombol tekan, Anda harus perangkap acara QueryClose .

Peristiwa QueryClose terjadi hanya sebelum UserForm diturunkan dari kehabisan memori. Gunakan argumen CloseModeQueryClose acara untuk menentukan bagaimana UserForm ditutup. Nilai vbFormControlMenu untuk argumen CloseMode menunjukkan bahwa Dekattombol tekan diklik. Untuk menjaga UserForm aktif, set argumen membatalkan acara QueryClose ke True. Menggunakan acara QueryClose untuk mencegah UserForm ditutup dengan menggunakan Dekat tombol tekan, ikuti langkah berikut:
  1. Membuat buku kerja baru di Excel.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Tambahkan control CommandButton ke atas untuk UserForm.
  5. klik ganda UserForm untuk menampilkan Kode jendela untuk UserForm.
  6. Di jendela kode, ketik kode berikut:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
UserForm tidak ditutup ketika Anda mengklik Dekat tombol tekan. Anda harus mengklik CommandButton kontrol untuk menutup UserForm.

Untuk informasi tambahan, klik nomor artikel berikut untuk melihat artikel di dalam Pangkalan Pengetahuan Microsoft:
207714XL2000: run-time kesalahan menggunakan UserForms koleksi
211527 XL2000: Tidak dapat menyeret UserForm kontrol ke lembar kerja
211868 XL2000: Kesalahan menjalankan makro yang menyisipkan kontrol ke UserForm
213582 XL2000: Masalah ketika Anda menggunakan makro untuk menambahkan kontrol untuk UserForm
213583 XL2000: Mampu menunjukkan UserForms dalam proyek-proyek lain
213736 XL2000: Bagaimana menentukan tombol tekan ditekan bersama dengan tombol tekan gulir dengan mouse
213744 XL2000: Bagaimana untuk menyembunyikan UserForm
213747 XL2000: Bagaimana untuk beralih antara kustom UserForms dengan tombol tekan perintah
213749 XL2000: Bagaimana untuk menggunakan UserForm untuk memasukkan data
213768 XL2000: Bagaimana untuk secara dinamis mengubah ukuran bentuk pengguna
213774 XL2000: Cara membuat layar Startup dengan UserForm

VBA kode

Excel termasuk lima belas kontrol yang berbeda yang dapat Anda gunakan pada UserForms. Bagian ini berisi berbagai contoh yang menggunakan kontrol ini pemrograman.

Catatan VBA kode yang terdapat dalam artikel ini tidak mengandung contoh yang mempengaruhi semua properti dan event untuk kontrol. Jika Anda perlu, Anda dapat menggunakan jendela Properties untuk melihat daftar properti yang tersedia untuk kontrol. Untuk melihat daftar properti, di Pemandangan Menu, klik Jendela Properties.

Bagaimana menggunakan mode desain untuk mengedit kontrol

Bila Anda menggunakan Editor Visual Basic untuk merancang sebuah kotak dialog, Anda menggunakan mode desain. Dalam mode Desain, Anda dapat mengedit kontrol dan Anda dapat mengubah sifat kontrol pada UserForm dalam jendela properti. Untuk menampilkan jendela Properties, diPemandangan Menu, klik Jendela Properties.

Catatan Kontrol tidak menanggapi peristiwa saat Anda berada dalam mode desain. Ketika Anda menjalankan sebuah kotak dialog untuk menampilkannya cara bahwa pengguna melihat itu, program di jalankan mode. Perubahan yang Anda buat untuk sifat kontrol dalam jangka mode tidak dipertahankan ketika UserForm diturunkan dari kehabisan memori.

Catatan Kontrol menanggapi peristiwa dalam menjalankan mode.

Bagaimana untuk merujuk pada kontrol pada UserForm

Bagaimana Anda merujuk ke kontrol pemrograman tergantung pada jenis Visual Basic modul sheet mana Anda menjalankan kode. Jika kode berjalan dari modul umum, sintaks adalah sebagai berikut:
UserFormName.Controlname.Property = Nilai
Sebagai contoh, jika Anda ingin mengatur properti teks kontrol TextBox yang bernama TextBox1 di UserForm yang bernama UserForm1 dengan nilai Bob, menggunakan kode berikut:
UserForm1.TextBox1.Text = "Bob"
Jika kode dalam prosedur yang dimulai dengan acara kontrol atau dengan UserForm, Anda tidak memiliki untuk merujuk nama UserForm. Sebaliknya, gunakan kode berikut:
TextBox1.Text = "Bob"
Bila Anda memasang kode ke objek, kode melekat ke salah satu peristiwa yang objek. Dalam banyak contoh dalam artikel ini, Anda mencantumkan kode pada acara Klik objek CommandButton .

Kontrol label

Kontrol label terutama digunakan untuk menggambarkan kontrol lain pada UserForm. Sebuah kontrol Label tidak dapat diedit oleh user sementara UserForm berjalan. Menggunakan properti Caption untuk kembali teks dalam sebuah kontrol Label . Properti lainnya sering digunakan untuk memformat sebuah kontrol Label termasuk Font properti dan properti ForeColor .

Bagaimana menggunakan sebuah pernyataan dengan format sebuah kontrol Label

Untuk menggunakan pernyataan dengan mengubah properti sebuah kontrol Label , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol Label untuk UserForm.
  5. Tambahkan control CommandButton ke atas untuk UserForm.
  6. klik ganda CommandButton kontrol Buka jendela kode untuk UserForm.
  7. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
  9. Klik CommandButton.
Teks "ini adalah contoh Label 1" muncul pada Label control di bold Times New Roman dengan ukuran fon 14.

Kontrol TextBox

Kontrol TextBox sering digunakan untuk mengumpulkan masukan dari pengguna. Properti teks berisi entri yang dibuat di kontrol TextBox .

Bagaimana menggunakan kontrol TextBox untuk memvalidasi password

Jika Anda menetapkan properti PasswordChar dari kontrol TextBox , menjadi sebuah kontrol "bertopeng-edit". Setiap karakter yang diketik dalam TextBox kontrol diganti secara visual dengan karakter yang Anda tentukan. Untuk menggunakan kontrol TextBox untuk memvalidasi password, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Menambahkan kontrol TextBox UserForm.
  5. Pada Pemandangan Menu, klikProperti untuk membuat jendela Properties terlihat.
  6. Dalam properti PasswordChar dari kontrol TextBox , ketik *.

    Catatan Anda mengubah nilai ke asterisk.
  7. Tambahkan control CommandButton ke atas untuk UserForm.
  8. klik ganda CommandButton kontrol Buka jendela kode untuk UserForm.
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
  11. Ketik password UserForm dalam kontrol TextBox .
  12. Klik CommandButtonkontrol.
Untuk contoh ini, password adalah "userform". Jika Anda mengetik password salah, Anda menerima sebuah kotak pesan yang menyatakan bahwa password Anda betul, kontrol TextBox dibersihkan, dan kemudian Anda dapat ketik ulang sandi. Kapan Anda mengetik sandi yang benar, Anda menerima pesan pembuka dan UserForm adalah ditutup.

Untuk informasi tambahan, klik nomor artikel berikut ini untuk melihat artikel di Microsoft Knowledge Base:
213555XL2000: Tidak ada validasi data properti untuk UserForm textbox

CommandButton kontrol

Anda dapat menggunakan control CommandButton ke atas untuk memulai prosedur VBA. VBA prosedur ini biasanya melekat pada acara Klik control CommandButton ke atas . Untuk menggunakan control CommandButton ke atas yang menjalankan prosedur ketika acara Klik terjadi, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Tambahkan control CommandButton ke atas untuk UserForm.
  5. klik ganda CommandButton kontrol Menampilkan jendela kode untuk UserForm.
  6. Di jendela kode, ketik kode berikut:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
warna latar belakang CommandButton1kontrol berubah setiap kali bahwa Anda mengkliknya.

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

ListBox kontrol

Tujuan dari ListBox DNS adalah untuk menyajikan pengguna dengan daftar item untuk memilih dari. Anda dapat menyimpan daftar item untuk sebuah ListBox DNS pada Excel worksheet. Untuk mengisi sebuah ListBox DNS dengan serangkaian sel pada lembar kerja, menggunakan properti RowSource . Bila Anda menggunakan properti MultiSelect , Anda dapat mengatur sebuah ListBox DNS untuk menerima seleksi ganda.

Cara mendapatkan item yang saat ini dipilih dari ListBox DNS

Menggunakan properti nilai dari sebuah ListBox DNS untuk gulung balik item yang saat ini dipilih. Untuk kembali item yang saat ini dipilih dalam kontrol ListBox pilih tunggal, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ListBox DNS.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. Menambahkan sebuah ListBox DNS untuk UserForm.
  6. klik ganda ListBox kontrol Menampilkan jendela kode untuk ListBox DNS.
  7. Di jendela kode, ketik kode berikut untuk Klik ListBox1 acara:
    Private Sub ListBox1_Click()
    
        MsgBox ListBox1.Value
    
    End Sub 
  8. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik item dalam daftar, kotak pesan muncul dengan item yang saat ini dipilih.

Cara mendapatkan item yang dipilih dalam beberapa pilih ListBox DNS

Untuk menentukan item yang dipilih dalam beberapa pilih ListBox DNS, Anda harus loop melalui semua item dalam daftar, dan kemudian permintaan properti dipilih . Untuk gulung balik item yang saat ini dipilih dalam beberapa Pilih ListBox DNS, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ListBox DNS.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. Menambahkan sebuah ListBox DNS untuk UserForm.
  6. Pada Pemandangan Menu, klikProperti untuk melihat jendela Properties.
  7. Ketik nilai-nilai yang ditunjukkan untuk sifat kontrol ListBox sebagai berikut:
       Property	   Value
       -----------     -----------------------
       MultiSelect	   1 - frmMultiSelectMulti
       RowSource	   Sheet1!A1:A8
  8. Tambahkan control CommandButton ke atas untuk UserForm.
  9. klik ganda CommandButton kontrol Menampilkan jendela kode untuk UserForm.
  10. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
  12. Pilih satu atau lebih item dalam daftar.
  13. Klik CommandButton1.
Setelah Anda mengklik CommandButton1, setiap item yang Anda memilih dalam ListBox kontrol muncul di kotak pesan terpisah. Setelah semua yang dipilih item yang muncul di kotak pesan, UserForm otomatis ditutup.

Bagaimana menggunakan RowSource properti untuk mengisi sebuah ListBox DNS dengan sel-sel pada lembar kerja

Menggunakan properti RowSource untuk mengisi sebuah ListBox DNS dari berbagai sel pada lembar kerja, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ListBox DNS.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. Menambahkan sebuah ListBox DNS untuk UserForm.
  6. Tambahkan control CommandButton ke atas untuk UserForm.
  7. klik ganda CommandButton kontrol Menampilkan jendela kode untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    Private Sub CommandButton1_Click()
        ListBox1.RowSource = "=Sheet1!A1:A5"
    End Sub 
  9. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.

    CatatanListBox1 tidak mengandung nilai-nilai apapun.
  10. Klik CommandButton1.
ListBox1 diisi dengan nilai-nilai dalam sel-sel A1:A5 pada Sheet1.

Bagaimana untuk mengisi sebuah ListBox DNS dengan nilai-nilai dalam array

Contoh ini menunjukkan Anda bagaimana untuk mengisi sebuah ListBox DNS dengan variabel array. Anda harus menetapkan nilai dari array ke ListBox kontrol satu item pada suatu waktu. Biasanya, proses ini mengharuskan Anda menggunakan struktur perulangan, seperti untuk...Berikutnya loop. Untuk mengisi sebuah ListBox DNS dengan variabel array, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Menambahkan sebuah ListBox DNS untuk UserForm.
  5. Pada Masukkan Menu, klikModul untuk memasukkan sebuah modul lembar.
  6. Di jendela kode, ketik kode berikut:
    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 Alat Menu, klikMacro, klik PopulateListBox, lalu klikMenjalankan.
Prosedur PopulateListBox membangun array sederhana, dan kemudian menambahkan item dalam array ke ListBox kontrol dengan menggunakan metode AddItem . Kemudian, UserForm akan muncul.

Cara menggunakan berbagai horisontal sel pada lembar kerja untuk mengisi sebuah ListBox DNS

Jika Anda mengatur properti RowSource dari sebuah ListBox DNS ke berbagai horisontal sel, hanya nilai pertama muncul dalam ListBox DNS.

Untuk mengisi sebuah ListBox DNS dari berbagai horisontal sel dengan menggunakan metode AddItem , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:E1 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ListBox DNS.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. Menambahkan sebuah ListBox DNS untuk UserForm.
  6. Pada Masukkan Menu, klikModul untuk memasukkan sebuah modul lembar.
  7. Di jendela kode, ketik kode berikut:
    Sub PopulateListWithHorizontalRange()
    
        For Each x In Sheet1.Range("A1:E1")
            UserForm1.ListBox1.AddItem x.Value
        Next
        
        UserForm1.Show
    
    End Sub
  8. Pada Alat Menu, klikMacro, klikPopulateListWithHorizontalRange, lalu klikMenjalankan.
Makro prosedur loop melalui sel-sel A1:E5 pada Sheet1, menambahkan nilai-nilai untuk ListBox1 salah satu pada satu waktu.

CatatanListBox1 tidak terikat untuk A1:E5 sel-sel pada Sheet1.

Bagaimana untuk kembali beberapa nilai dari sebuah ListBox DNS yang terikat untuk beberapa bidang data

Anda dapat memformat ListBox kontrol untuk menampilkan lebih dari satu bidang data. Ini berarti bahwa ListBox DNS menampilkan lebih dari satu item pada setiap baris dari daftar. Untuk kembali beberapa nilai dari item yang dipilih dalam daftar, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Ketik data sebagai berikut dalam sel-sel yang ditunjukkan pada Sheet1:

    Perkecil tabel iniPerbesar tabel ini
    A1: tahunB1: wilayahC1: penjualan
    A2: 1996 B2: UtaraC2: 140
    A3: 1996B3: SelatanC3: 210
    A4: 1997B4: UtaraC4: 190
    A5: 1997B5: SelatanC5: 195
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. / / Tambahkan kontrol Label untuk UserForm.
  6. Menambahkan sebuah ListBox DNS untuk UserForm.
  7. Klik kanan-atas ListBox, lalu klikProperti.
  8. Ketik atau pilih nilai-nilai yang ditunjukkan untuk properti berikut ListBox DNS seperti yang tercantum dalam Daftar Tabel berikut:
       Property       Value
       ----------------------------
       BoundColumn     1
       ColumnCount     3
       ColumnHeads     True
       RowSource       Sheet1!A2:A5
  9. klik ganda ListBox kontrol Menampilkan jendela kode untuk ListBox DNS.
  10. Di jendela kode, ketik kode berikut:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda klik entri dalam ListBox DNS, label perubahan untuk menampilkan semua tiga item di entri.

Bagaimana menghapus semua item dari sebuah ListBox DNS yang terikat ke lembar kerja

Untuk menghapus semua item dari sebuah ListBox DNS yang terikat ke lembar kerja, jelas nilai yang disimpan dalam properti RowSource . Untuk menghapus item dari sebuah ListBox DNS yang terikat ke lembar kerja, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ListBox DNS.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. Menambahkan sebuah ListBox DNS untuk UserForm.
  6. Klik kanan-atas ListBox kontrol, dan kemudian Klik Properti.
  7. Dalam properti RowSource , ketik Sheet1!A1:A5.
  8. Tambahkan control CommandButton ke atas untuk UserForm.
  9. klik ganda CommandButton kontrol Menampilkan jendela kode untuk control CommandButton ke atas .
  10. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    Private Sub CommandButton1_Click()
    
        ListBox1.RowSource = ""
    
    End Sub
  11. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.

    ListBoxDNS yang ditambahkan untuk UserForm diisi dengan nilai-nilai yang Anda masukkan pada Sheet1.
  12. Klik CommandButton1.
Semua item yang dihapus dari ListBox1.

Bagaimana menghapus semua item dari sebuah ListBox DNS yang tidak terikat ke lembar kerja

Ada tidak ada satu perintah VBA yang menghapus semua item dari sebuah ListBox DNS jika daftar tidak terikat pada lembar kerja. Untuk menghapus semua barang-barang dari sebuah ListBox DNS yang diisi dari sebuah array Visual Basic, ikuti langkah-langkah:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Menambahkan sebuah ListBox DNS untuk UserForm.
  5. Pada Masukkan Menu, klikModul untuk memasukkan sebuah modul lembar.
  6. Di jendela kode, ketik kode berikut:
    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. Tambahkan control CommandButton ke atas untuk UserForm.
  8. klik ganda CommandButton kontrol Menampilkan jendela kode untuk control CommandButton ke atas .
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    Private Sub CommandButton1_Click()
    
        For i = 1 To ListBox1.ListCount
            ListBox1.RemoveItem 0
        Next I
    
    End Sub
  10. Pada Alat Menu, klikMacro, klik PopulateListBox, lalu klikMenjalankan.

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

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

ComboBox kontrol

Anda dapat menggunakan kontrol ComboBox sebagai kotak daftar menurun, atau sebagai sebuah kotak combo yang mana Anda dapat Pilih nilai dalam daftar atau ketik nilai baru. Pada property dari Style menentukan jika kontrol ComboBox bertindak sebagai kotak daftar menurun atau kotak kombo.

Catatan Semua contoh di bagian sebelumnya untuk kontrol ListBox juga dapat diterapkan ke kontrol ComboBox , kecuali untuk "cara mendapatkan item yang dipilih dalam contoh beberapa pilih ListBox DNS".

Bagaimana cara menambahkan item baru ke daftar jika kontrol ComboBox tidak terikat ke lembar kerja

Ketika Anda mengetik nilai yang sudah tidak dalam daftar di ComboBox kontrol, Anda mungkin ingin menambahkan nilai baru ke daftar. Untuk menambahkan nilai baru yang diketik dalam pengendalian ComboBox jika kontrol ComboBox tidak terikat pada worksheet, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol ComboBox untuk UserForm.
  5. Pada Masukkan Menu, klikModul untuk memasukkan sebuah modul lembar.
  6. Di jendela kode, ketik kode berikut:
    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. Tambahkan control CommandButton ke atas untuk UserForm.
  8. klik ganda CommandButton kontrol Menampilkan jendela kode untuk control CommandButton ke atas .
  9. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Alat Menu, klikMacro, klik PopulateListBox, lalu klikMenjalankan.

    Kontrol ComboBox diisi, dan kemudian UserForm muncul.
  11. Dalam kontrol ComboBox , ketik Mangga (atau salah satu nilai yang sudah tidak dalam daftar).
  12. Klik CommandButton1.
Nilai baru yang diketik sekarang muncul di akhir daftar.

Bagaimana cara menambahkan item baru ke daftar jika kontrol ComboBox terikat untuk lembar kerja

Ketika pengguna jenis nilai yang sudah tidak dalam daftar di ComboBox kontrol, Anda mungkin ingin menambahkan nilai baru ke daftar. Untuk menambahkan nilai baru yang Anda ketik dalam kontrol ComboBox ke dalam daftar, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ComboBox kontrol.
  3. Pilih sel A1:A5 pada Sheet1.
  4. Pada Masukkan Menu, titik untukNama, lalu klik Mendefinisikan.

    DalamNama-nama di kerja kotak, jenis ListRange , dan kemudian klik Oke. Hal ini menciptakan nama didefinisikan ListRange. Anda dapat menggunakan nama terdefinisi ListRange untuk mengikat properti RowSource dari kontrol ComboBox worksheet.
  5. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  6. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  7. / / Tambahkan kontrol ComboBox untuk UserForm.
  8. Dalam Properti untuk ComboBox1, ketik Sheet1!ListRange sebagaiRowSource properti.
  9. Tambahkan control CommandButton ke atas untuk UserForm.
  10. klik ganda CommandButton kontrol Menampilkan jendela kode untuk control CommandButton ke atas .
  11. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.

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

Bagaimana menampilkan kendali daftar ComboBox ketika UserForm muncul

Kadang-kadang, ini mungkin berguna untuk menampilkan kendali daftar ComboBox ketika UserForm pertama muncul. Contoh berikut menggunakan acara Aktifkan UserForm. Untuk menampilkan kendali daftar ComboBox , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A5 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ComboBox kontrol.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  5. / / Tambahkan kontrol ComboBox untuk UserForm.
  6. Dalam Properti untuk ComboBox1, ketik Sheet1!A1:A5 sebagaiRowSource properti.
  7. klik ganda UserForm untuk menampilkan Kode jendela untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk CommandButton Click acara:
    Private Sub UserForm_Activate()
    
               ComboBox1.DropDown
    
           End Sub
  9. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
UserForm muncul pada Sheet1, dan Anda dapat melihat daftar ComboBox1.

Bagaimana menampilkan daftar satu control ComboBox ketika Anda membuat pilihan lain ComboBox mengendalikan

Untuk secara otomatis menampilkan daftar satu control ComboBox ketika pilihan yang dibuat di lain ComboBox kontrol, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Dalam sel-sel A1:A10 pada Sheet1, ketik nilai-nilai yang ingin Anda Gunakan untuk mengisi ComboBox kontrol.
  3. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  4. Pada Masukkan Menu, klikModul.
  5. Di jendela kode untuk modul, ketik kode berikut:
    Sub DropDown_ComboBox()
    
        UserForm1.ComboBox2.DropDown
    
    End Sub
  6. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  7. / / Tambahkan kontrol ComboBox untuk UserForm.
  8. Dalam Properti untuk ComboBox1, ketik Sheet1!A1:A5 sebagaiRowSource properti.
  9. klik ganda ComboBox Control untuk membuka jendela kode untuk kontrol ComboBox .
  10. Di jendela kode untuk kontrol ComboBox , ketik kode berikut untuk Klik ComboBox acara:
    Private Sub ComboBox1_Click()
    
        Application.OnTime Now, "DropDown_ComboBox"
    
    End Sub
  11. / / Tambahkan kontrol ComboBox kedua untuk UserForm.
  12. Dalam Properti untuk ComboBox2, ketik Sheet1!A6:A10 sebagaiRowSource properti.
  13. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik item dalam daftar ComboBox1 , daftar untuk ComboBox2 secara otomatis akan muncul.

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

Kontrol frame

Gunakan kontrol Frame untuk kelompok Logis terkait item di UserForm. Kontrol bingkai sering digunakan untuk kelompok kontrol OptionButton .

Cara loop melalui semua kontrol pada kontrol Frame

Untuk menggunakan untuk masing-masing...Berikutnya loop untuk mengakses semua kontrol dalam kontrol Frame , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol Frame untuk UserForm.
  5. / / Tambahkan kontrol OptionButton ke kontrol Frame .

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

OptionButton kontrol

Anda dapat menggunakan kelompok kontrol OptionButton untuk membuat satu pilihan antara sekelompok pilihan. Kamu bisa menggunakan salah satu teknik berikut untuk grup OptionButton kontrol:
  • Kontrol frame
  • GroupName properti
CatatanPada nilai, nilai ya dan nilai sebenarnya menunjukkan bahwa OptionButton dipilih. Nilai Off , tidak ada nilai dan nilai False menunjukkan bahwa OptionButton tidak dipilih.

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

Ketika Anda mengelompokkan OptionButtons kontrol dengan menggunakan kontrol bingkai , Anda dapat menentukan kontrol OptionButton yang dipilih oleh perulangan melalui semua kontrol dalam kontrol Frame dan memeriksa nilai properti dari setiap kontrol. Untuk menentukan OptionButton kontrol yang dipilih, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol Frame untuk UserForm.
  5. / / Tambahkan kontrol OptionButton ke kontrol Frame .

    Ulangi langkah ini untuk menambahkan dua lebih OptionButton kontrol dalam kontrol Frame .
  6. Tambahkan control CommandButton ke atas UserForm di luar kendali bingkai .
  7. klik ganda CommandButton kontrol Menampilkan jendela kode untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
  10. Dalam UserForm, klik satu OptionButton control, dan kemudian klikCommandButton1.
Muncul kotak pesan yang berisi keterangan dari saat ini OptionButton kontrol yang dipilih.

Cara menentukan kontrol OptionButton yang dipilih

Tujuan dari contoh berikut adalah untuk menentukan OptionButton kontrol yang dipilih dalam Group1. Untuk membuat UserForm yang memiliki dua kelompok kontrol OptionButton , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol Frame untuk UserForm.
  5. / / Tambahkan kontrol OptionButton dalam kontrol Frame .

    Ulangi langkah ini untuk menambahkan dua lebih OptionButton kontrol dalam kontrol Frame .
  6. Untuk setiap OptionButton kontrol, jenis Group1 dalam properti GroupName .
  7. Ulangi langkah 4 dan 5 untuk membuat kontrol Frame yang kedua yang berisi tiga OptionButton kontrol.
  8. Untuk setiap OptionButton kontrol di kontrol Frame kedua, ketik Group2 dalam properti GroupName .
  9. Tambahkan control CommandButton ke atas UserForm di luar kontrol Frame .
  10. klik ganda CommandButton kontrol Menampilkan jendela kode untuk UserForm.
  11. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
  13. Di UserForm, klik satu OptionButton control di Group1, dan kemudian klikCommandButton1.
Kotak pesan muncul yang berisi keterangan kontrol OptionButton yang saat ini dipilih.

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

kotak centang kontrol

Anda dapat menggunakan kotak centang kontrol untuk menunjukkan nilai true atau false. Kontrol kotak centang yang muncul dengan tanda centang di dalamnya menunjukkan nilai Benar. kotak centang yang muncul dengan tanda centang tidak menunjukkan nilai salah. Jika nilai properti TripleStatebenar, kotak centang kontrol juga dapat memiliki nilai Null. Sebuah kotak centang kontrol yang memiliki nilai Null tampaknya menjadi tidak tersedia.

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

Bagaimana memeriksa nilai kotak centang kontrol

Untuk menggunakan nilai properti untuk gulung balik nilai saat ini kotak centang kontrol, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol kotak centang untuk UserForm.
  5. Dalam daftar properti untuk CheckBox1, pilih Benar sebagai properti TripleState .
  6. klik ganda kotak centang kontrol Menampilkan jendela kode untuk kotak centang kontrol.
  7. Di jendela kode, ketik kode berikut untuk CheckBox1 perubahan acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik kotak centang kontrol, Keterangan dari kotak centang kontrol perubahan untuk merefleksikan nilai saat ini.

ToggleButton kontrol

Kontrol ToggleButton yang memiliki penampilan yang sama sebagai CommandButton control sampai Anda mengkliknya. Ketika Anda mengklik kontrol ToggleButton , tampaknya harus ditekan atau ditekan. Nilai properti kontrol ToggleButton adalah palsu dan benar ketika tombol tekan dipilih ketika tombol tekan tidak dipilih. Jika nilai properti TripleStatebenar, kontrol ToggleButton juga dapat memiliki nilai Null. Kontrol ToggleButton yang memiliki nilai Null tampaknya menjadi tidak tersedia.

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

Cara mendapatkan nilai kontrol ToggleButton

Untuk mendapatkan nilai kontrol ToggleButton , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Tambahkan kontrol ToggleButton pada UserForm.
  5. / / Tambahkan kontrol Label untuk UserForm.
  6. klik ganda ToggleButton kontrol membuka jendela kode untuk ToggleButton kontrol.
  7. Di jendela kode, ketik kode berikut untuk ToggleButton1Click acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik kontrol ToggleButton , warna latar belakang perubahan UserForm.

Cara membuat sekelompok saling eksklusif ToggleButton kontrol

Contoh ini menggunakan acara MouseUp untuk menetapkan variabel dan memanggil prosedur ExclusiveToggleButtons . Prosedur ExclusiveToggleButtons menentukan ToggleButton kontrol yang dipilih, dan kemudian membatalkan yang lain. Untuk membuat kelompok kontrol ToggleButton saling eksklusif, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikModul.
  4. Di jendela kode untuk modul, ketik kode berikut:
    ' 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. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  6. / / Tambahkan kontrol Frame untuk UserForm.
  7. / / Tambahkan kontrol ToggleButton dalam kontrol Frame .

    Ulangi langkah ini untuk menambahkan dua lebih ToggleButton kontrol dalam kontrol Frame .
  8. klik ganda Bingkai kontrol untuk menampilkan jendela kode untuk UserForm.
  9. Di jendela kode untuk modul, ketik kode berikut untuk ToggleButton MouseUp acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik ToggleButton kontrol, pengendalian ToggleButton dipilih sebelumnya dibatalkan.

TabStrip kontrol

Gunakan kontrol TabStrip untuk melihat set yang berbeda informasi untuk satu set kontrol.

Bagaimana mengontrol kontrol TabStrip pemrograman

Untuk mengubah properti BackColorgambar kontrol didasarkan pada tab yang dipilih, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Penyunting Visual Basic.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol TabStrip untuk UserForm.
  5. Tambahkan gambar kontrol yang mencakup dasar kontrol TabStrip , tetapi yang tidak mencakup tab.
  6. Di panel properti untuk Image1, ketik& H000000FF & dalam BackColor properti.
  7. klik ganda TabStrip Control untuk membuka jendela kode untuk TabStrip kontrol.
  8. Di jendela kode, ketik kode berikut untuk TabStrip1 perubahan acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Warna gambar kontrol berubah tergantung pada halaman dalam kontrol TabStrip yang aktif.

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

MultiPage kontrol

Gunakan kontrol MultiPage untuk bekerja dengan banyak informasi yang dapat diurutkan ke beberapa kategori. Kontrol MultiPage yang terdiri dari satu atau lebih halaman benda yang masing-masing berisi kumpulan kontrol. Kamu bisa menyetel halaman aktif pemrograman dengan menyetel nilai properti MultiPage kontrol.

Bagaimana mengontrol kontrol MultiPage pemrograman

Untuk menambahkan kontrol MultiPage dan kontrol dengan menggunakan makro, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol MultiPage untuk UserForm.
  5. Tambahkan sebuah kontrol Label untuk Page1 kontrol MultiPage .
  6. Menambah kontrol TextBox Page1 pada kontrol MultiPage .
  7. Pada kontrol MultiPage , klik Page2, kemudian ulangi langkah 5 dan 6 untuk menambahkan sebuah kontrol Label dan kontrol TextBox .
  8. klik ganda MultiPage Control untuk membuka jendela kode untuk kontrol MultiPage .
  9. Di jendela kode, ketik kode berikut untuk MultiPage1 perubahan acara:
    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 untuk acara UserForm menginisialisasi :
    Private Sub UserForm_Initialize()
    
        ' Force Page1 to be active when UserForm is displayed.
        MultiPage1.Value = 0
        Label1.Caption = ""
    
    End Sub
  11. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.

    Dalam kontrol TextBox di Page1, ketik Tes. Ketika Anda Klik Page2 tab, TextBox2 dibersihkan, dan keterangan dari Label2 perubahan ke entri yang Anda buat di TextBox1 di Page1 ("Test").

Cara membuat antarmuka wizard dengan menggunakan kontrol MultiPage

Ketika tugas yang memerlukan beberapa langkah-langkah bertahap, antarmuka wizard dapat menjadi sangat efektif. Anda dapat menggunakan kontrol MultiPage untuk membuat antarmuka wizard bukan menggunakan beberapa UserForms. Contoh ini memanipulasi kontrol MultiPage yang memiliki tiga halaman. Prosedur yang melekat pada Menginisialisasi acara UserForm menonaktifkan Page2 dan Page3, dan pasukan Page1 kontrol MultiPage aktif.

Catatan Ketika Anda mengindeks halaman MultiPage kontrol dengan menggunakan kumpulan halaman , halaman pertama dalam koleksi adalah halaman nol. Ini prosedur juga menetapkan judul CommandButton kontrol dan menonaktifkan <> tombol tekan.

Catatan Prosedur yang ditetapkan untuk Klik acara CommandButton1 kontrol fungsi <> tombol tekan. Prosedur yang ditetapkan untuk Klik acara CommandButton2 kontrol fungsi berikutnya mengatakan tombol tekan. Untuk membuat antarmuka wizard dengan menggunakan kontrol MultiPage , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol MultiPage untuk UserForm.
  5. Klik kanan-atas Page1 tab, dan kemudian klikHalaman baru untuk menambahkan Page3 ke kontrol MultiPage .
  6. Tambahkan control CommandButton ke atas UserForm yang tidak pada MultiPage control.

    Ulangi langkah ini untuk menambahkan control CommandButton ke atas kedua UserForm.
  7. klik ganda UserForm untuk membuka kode jendela untuk UserForm.
  8. Di jendela kode, ketik kode berikut untuk acara UserForm menginisialisasi :
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika Anda mengklik Berikutnya mengatakanPage2 diaktifkan dan The <> tombol tekan akan tersedia. Ketika Anda mengklik Berikutnya mengatakan kedua kalinya, Page3 diaktifkan dan keterangan untuk CommandButton2 perubahan "Selesai".

Kontrol ScrollBar

Anda dapat menggunakan kontrol ScrollBar ketika Anda ingin mengubah nilai yang ditampilkan oleh kontrol lain, seperti sebuah kontrol Label .

Bagaimana mengubah sebuah kontrol Label yang didasarkan pada nilai kontrol ScrollBar

Untuk mengubah properti CaptionLabel kontrol pengaturan saat ini nilai properti kontrol ScrollBar , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol ScrollBar untuk UserForm.
  5. / / Tambahkan kontrol Label untuk UserForm.
  6. klik ganda ScrollBar Control untuk membuka jendela kode untuk kontrol ScrollBar .
  7. Di jendela kode, ketik kode berikut untuk ScrollBar1 perubahan acara:
    Private Sub ScrollBar1_Change()
    
        Label1.Caption = ScrollBar1.Value
    
    End Sub
  8. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
Bila Anda menggulir dengan menggunakan ScrollBar control, Label1 diperbarui dengan nilai sekarang dari kontrol ScrollBar .

SpinButton kontrol

Kontrol SpinButton , seperti kontrol ScrollBar , sering digunakan untuk kenaikan atau pengurangan nilai kontrol lain, seperti sebuah kontrol Label . Properti SmallChange menentukan nilai berapa banyak kontrol SpinButton perubahan ketika diklik.

Bagaimana cara menambahkan sebuah kontrol SpinButton yang akan menambahkan atau usaha tanggal yang disimpan dalam kontrol TextBox

Untuk menambahkan sebuah kontrol SpinButton yang akan menambahkan atau usaha tanggal yang disimpan dalam kontrol TextBox , ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. / / Tambahkan kontrol SpinButton untuk UserForm.
  5. Menambahkan kontrol TextBox UserForm.
  6. klik ganda SpinButton kontrol membuka jendela kode untuk SpinButton kontrol.
  7. Di jendela kode, ketik kode berikut untuk acara SpinButton1 SpinUp :
    Private Sub SpinButton1_SpinUp()
    
        TextBox1.Text = DateValue(TextBox1.Text) + 1
    
    End Sub
    
  8. Di jendela kode, ketik kode berikut untuk acara SpinButton1 SpinDown :
    Private Sub SpinButton1_SpinDown()
    
        TextBox1.Text = DateValue(TextBox1.Text) - 1
    
    End Sub
    
  9. Di jendela kode, ketik kode berikut untuk acara UserForm menginisialisasi :
    Private Sub UserForm_Initialize()
    
        TextBox1.Text = Date
    
    End Sub
    
  10. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.
Ketika muncul UserForm, tanggal saat ini muncul di TextBox1. Ketika Anda meng-klik kontrol SpinButton , tanggal incremented atau decremented oleh salah satu hari.

Dalam contoh ini, jika Anda mengubah properti SmallChangeSpinButton1, Anda tidak mempengaruhi jumlah hari entri dalam TextBox1 berubah oleh ketika Anda mengklik SpinButton1. Jumlah hari ditentukan hanya dengan prosedur yang Anda melekat pada acara SpinUp dan acara SpinDownSpinButton1.

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

RefEdit kontrol

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

Bagaimana untuk mengisi berbagai sel-sel yang didasarkan pada kisaran yang Anda pilih dengan menggunakan RefEdit kontrol

Untuk menggunakan RefEdit kontrol untuk mengisi sel, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Tambahkan RefEdit kontrol untuk UserForm.
  5. Tambahkan control CommandButton ke atas untuk UserForm.
  6. klik ganda CommandButton kontrol Buka jendela kode untuk control CommandButton ke atas .
  7. Di jendela kode, ketik kode berikut untuk Klik CommandButton1 acara:
    Private Sub CommandButton1_Click()
    
        Dim MyRange As String
        MyRange = RefEdit1.Value
        Range(MyRange).Value = "test"
        Unload Me
    
    End Sub
  8. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.

    UserFormappears.
  9. Klik tombol tekan di RefEdit kontrol.

    Pemberitahuan bahwa UserForm runtuh.
  10. Pilih jenis sel seperti A1:A5, dan kemudian klik tombol tekan di RefEdit kontrol untuk memperluas UserForm.
  11. Klik CommandButton1.
UserForm menutup dan mengandung sel-sel yang Anda pilih sekarang kata "ujian".

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

Gambar kontrol

Tujuan dari gambar kontrol adalah untuk Gambar utama pada UserForm. Untuk menetapkan gambar untuk gambar kontrol saat menjalankan, gunakan fungsi LoadPicture .

Bagaimana untuk memuat gambar ke gambar kontrol

Untuk memasukkan gambar kontrol yang meminta Anda untuk memilih gambar yang memuat ketika Anda Klik gambar kontrol, ikuti langkah berikut:
  1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
  2. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  3. Pada Masukkan Menu, klikUserForm untuk memasukkan UserForm di kerja Anda.
  4. Tambahkan gambar kontrol pada UserForm.
  5. klik ganda Gambar Control untuk membuka Kode jendela untuk gambar kontrol.
  6. Di jendela kode, ketik kode berikut untuk Klik Image1 acara:
    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 Menjalankan Menu, klik Menjalankan Sub UserForm.

    UserForm akan muncul.
  8. Klik Gambar kontrol.

    Kapan Anda meng-klik kontrol gambar , Pilih gambar untuk buka kotak dialog muncul, dan kemudian Anda dapat memilih file bitmap untuk memasukkan ke dalam kontrol.
Untuk informasi tambahan tentang gambar kontrol, klik nomor artikel berikut ini untuk melihat artikel di Microsoft Knowledge Base:
213732XL2000: Menggunakan fungsi LoadPicture dengan gambar kontrol

Informasi tambahan

Objek Browser

Daftar lengkap dari semua properti dan metode tertentu perintah ini tersedia dalam Objek Browser. Untuk menemukan informasi ini di Excel, ikuti langkah berikut:
  1. Pada Alat Menu, titik untukMakro, lalu klik Visual Basic Editor.
  2. Pada Pemandangan Menu, klik Objek Browser.
  3. Dalam Teks penelusuran kotak, ketik nama kontrol yang Anda inginkan, dan kemudian klik Cari.
Untuk informasi lebih lanjut tentang bagaimana menggunakan objek Browser, di Penyunting Visual Basic, klik Bantuan Microsoft Visual Basicpada Tolong Menu, jenis Objek Browserdi kantor asisten atau jawaban Wizard, dan kemudian klik Cari untuk melihat topik.
Untuk informasi tambahan tentang cara menginstal Microsoft Excel bantuan pada komputer Anda, klik berikut nomor artikel untuk melihat artikel di dalam Pangkalan Pengetahuan Microsoft:
231946OFF2000: Bagaimana menambahkan menghapus satu kantor program atau komponen

Properti

ID Artikel: 829070 - Kajian Terakhir: 01 Juli 2013 - Revisi: 15.0
Berlaku bagi:
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
Kata kunci: 
kbprogramming kbfunctions kbhowtomaster kbhowto kbmt KB829070 KbMtid
Penerjemahan Mesin
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

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com