Kullanıcı formları Excel değiştirmek için Visual Basic for Applications (VBA) nasıl kullanılır

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

ÖNEMLİ: Bu makale, Microsoft Makine Çevirisi Düzenleme yazılımı tarafından tercüme edilmiş olup, yüksek olasılıkla profesyonel bir çevirmen yerine CTF teknolojisi kullanılarak, Microsoft Topluluğu tarafından düzenlenmiştir. Microsoft, Bilgi Bankamız içindeki tüm makaleleri kendi dilinizde okuyabilmeniz için size hem profesyonel çevirmenler tarafından tercüme edilen hem de makine tarafından tercüme edildikten sonra Topluluk tarafından kontrol edilen makaleler sunar. Bununla birlikte, makine tarafından tercüme edilen, hatta Topluluk tarafından kontrol edilen bir makale bile her zaman mükemmel dil kalitesinde olmayabilir. Makalede dilinizi konuşan yabancı birisinin yapabileceği türden sözcük, söz dizimi veya dilbilgisi hataları bulunabilir. Microsoft, içeriğin hatalı tercümesinin veya müşterilerimiz tarafından kullanımının doğurabileceği olası yanlış anlamalar, hatalar veya zararlardan sorumlu değildir. Öte yandan Microsoft, Makine Çevirisi Düzenleme işlemini geliştirmek amacıyla Makine Çevirisi Düzenleme yazılımını ve araçlarını sık sık güncelleştirmektedir.

Makalenin İngilizcesi aşağıdaki gibidir: 829070
Özet
Bu makalede, kullanıcı formları Microsoft Excel içinde programlı olarak değiştirmek nasıl açıklanır. Bu örnekler ve Microsoft Visual Basic for Applications (VBA) makroları nasıl kullanıcı formları yeteneklerini yararlanmak ve kullanıcı formları için kullanılabilir olan ActiveX™ denetimlerini nasıl kullanacağınızı gösteren içerir.

Kullanıcı formları temel prensipleri giriş kullanıcı formları görüntülemek nasıl, nasıl kullanıcı formları geçici olarak gizlemek ve kullanıcı formları kapatmak nasıl açıklar. Ayrıca kullanıcı formları ile ilişkili en yaygın olayların nasıl gösterilir; Başlatma olay, ' I tıklatın Olay ve Sonlandırma olay. Aşağıdaki ActiveX™ denetimlerin her birinin içinde bir UserForm nasıl biri veya daha fazlası aşağıdaki örneklerde gösterilmektedir:
  • Etiket Denetim
  • Metin kutusu Denetim
  • KomutDüğmesi Denetim
  • ListBox Denetim
  • ComboBox Denetim
  • Çerçeve Denetim
  • Seçenek düğmesi Denetim
  • Onay kutusu Denetim
  • ToggleButton Denetim
  • TabStrip Denetim
  • Çok sayfalı Denetim
  • Kaydırma çubuğu Denetim
  • SpinButton Denetim
  • RefEdit Denetim
  • Görüntü Denetim
GİRİŞ
Bu makalede, VBA Kullanıcı formları Excel içinde değişiklik yapmak için nasıl kullanılacağını açıklar.
Daha fazla bilgi
Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilirler, ancak ilave işlevsellik sağlamak için bu örnekleri değiştirmezler veya belirli gereksinimlerinizi karşılayacak şekilde yordamları yapılandırmazlar.

UserForm temelleri

Bir UserForm görüntüleme

Bir UserForm programlı olarak görüntülemek için kullanılan sözdizimi şudur:
UserFormName. Göster
UserForm1 adlı bir UserForm görüntülemek için şu kodu kullanın:
UserForm1.Show
Aslında görüntülemeden bir UserForm belleğe yükleyebilir. Birkaç karmaşık UserForm sürebilir saniye görünüyor. Bir UserForm belleğe dağıtılacak çünkü ne zaman bu yükü tabi karar verebilirsiniz. UserForm1 görüntülemeden belleğe yüklemek için şu kodu kullanın:
Load UserForm1
UserForm görüntüleme için daha önce gösterilenShow yöntemini kullanmanız gerekir.

Nasıl bir UserForm geçici olarak gizleme

Bir UserForm geçici olarak gizlemekGizle yöntemini kullanın. Uygulamanız kullanıcı formları arasında taşıma içeriyorsa bir UserForm gizlemek isteyebilirsiniz. Bir UserForm gizlemek için şu kodu kullanın:
UserForm1.Hide
Ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasına tıklayın:
213747 XL2000: nasıl özel kullanıcı formları ile komut düğmeleri arasında geçiş yapar

Nasıl bir UserForm bellekten kaldırmak için

Bir UserForm bellekten kaldırmak içinkaldırma deyimini kullanın. UserForm1 adlı bir UserForm kaldırmak için şu kodu kullanın:
Unload UserForm1
Olay yordamında bir UserForm ile ilişkili veya bir UserForm üzerinde bir denetimle ilişkili olan bir UserForm kaldırırsanız (örneğin,CommandButton denetimi tıklatın), "Ben" UserForm adı yerine anahtar sözcüğünü kullanabilirsiniz. "Ben" bir UserForm kaldırmak için anahtar sözcüğünü kullanmak için şu kodu kullanın:
Unload Me

UserForm olayları nasıl kullanılır

Kullanıcı formları için VBA yordamları ekleyebileceğiniz birçok önceden tanımlı olayların destekler. Olay ortaya çıktığında, olaya bağlı yordamı çalıştırır. Bir kullanıcı tarafından gerçekleştirilen tek bir eylem, birden çok olay başlatabilir. Arasında en sık kullanılan bir UserForm için Initialize olayı, Click olayını ve sonlandırma olayı olaylardır.

Not: Bir olay yordamı içeren bir Visual Basic modülü "arkasında" UserForm bir modül olarak başvurulabilir. Microsoft Project Explorer penceresi Visual Basic Düzenleyicisi'nin modülleri topluluğu olay yordamlarını içeren modül görülemez. Gövdesi bir UserForm UserForm kod modülü görüntülemek için çift tıklatmanız gerekir.

UserForm olaylarını yakalamak nasıl

UserForm olaylarını yakalamak için aşağıdaki adımları izleyin:
  1. Excel'de yeni bir çalışma kitabı oluşturun.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. UserForm için UserForm Code penceresini görüntülemek için çift tıklatın.
  5. Modüle aşağıdaki kodu yazın:
    Private Sub UserForm_Click()    Me.Height = Int(Rnd * 500)    Me.Width = Int(Rnd * 750)End SubPrivate Sub UserForm_Initialize()    Me.Caption = "Events Events Events!"    Me.BackColor = RGB(10, 25, 100)End SubPrivate Sub UserForm_Resize()    msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height    MsgBox prompt:=msg, Title:="Resize Event"End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    msg = "Now Unloading " & Me.Caption    MsgBox prompt:=msg, Title:="QueryClose Event"End SubPrivate Sub UserForm_Terminate()    msg = "Now Unloading " & Me.Caption    MsgBox prompt:=msg, Title:="Terminate Event"End Sub
  6. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
UserForm ilk yüklendiğinde, makro Initialize olayı "Olaylar olayları olay!" ve koyu mavi BackColor özelliğini UserForm Resim yazısı özelliğini değiştirmek için kullanılır.

UserForm tıklattığınızda, Click olayını başlatır. Click olayını UserForm yeniden boyutlandırır. Yeniden boyutlandırma olayı için bir yordam oluşturduğundan UserForm tıklattıktan sonra iki ileti kutusu alırsınız. Click olayını arkasındaki kodun Width özelliğini hem Yükseklik özelliğini UserForm değiştirdiği için iki kez yeniden boyutlandırma olayı oluşur.

UserForm kapanış QueryClose olayını başlatır. QueryClose olayı için Initialize olayı kodda UserForm verdiğiniz resim yazısı içeren bir ileti kutusu görüntüler. QueryClose olay kullanıcı UserForm kapatırsa, belirli bir dizi eylemi gerçekleştirmek istediğinizde kullanabilirsiniz.

Terminate olayı sonra UserForm yazısının UserForm1 olduğunu bildiren bir ileti kutusu oluşturur. Sonra UserForm bellekten kaldırılır ve UserForm yazısının özgün durumuna geri döner sonlandırma olayı oluşur.

Bir UserForm Kapat düğmesini kullanarak kapatılmasını engellemek nasıl

Bir UserForm çalıştırdığınızda için UserForm penceresinin sağ üst köşesindeki Kapat düğmesi eklenir. UserForm Kapat düğmesini kullanarak kapatılmasını engellemek istiyorsanız, QueryClose olay yakalamak gerekir.

QueryClose olayı UserForm bellekten kaldırılmadan hemen önce oluşur. UserForm nasıl kapattığını belirlemek için QueryClose olay CloseMode bağımsız değişkenini kullanın. VbFormControlMenu değeri CloseMode bağımsız değişkeni için Kapat düğmesini tıklanmış olduğunu gösterir. UserForm etkin tutmak için QueryClose olay İptal bağımsız değişkenini Trueolarak ayarlayın. QueryClose olayı bir UserForm Kapat düğmesini kullanarak kapatılmasını engellemek amacıyla kullanmak için şu adımları izleyin:
  1. Excel'de yeni bir çalışma kitabı oluşturun.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. CommandButton denetimi için UserForm ekleyin.
  5. UserForm için UserForm Code penceresini görüntülemek için çift tıklatın.
  6. Kod penceresinde, aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()    Unload MeEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    IF CloseMode = vbFormControlMenu Then        Cancel = True        Me.Caption = "Click the CommandButton to close Me!"    End IfEnd Sub
  7. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Kapat düğmesini tıklattığınızda UserForm kapatılmadı. UserForm kapatmak için CommandButton denetimi tıklatmanız gerekir.

Ek bilgi için Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
207714 XL2000: Kullanıcı formları koleksiyonunu kullanarak çalışma zamanı hataları
211527 XL2000: UserForm denetimi çalışma sayfanıza sürükleyemezsiniz.
211868 XL2000: hata denetimi UserForm ekler makro çalıştırma
213582 XL2000: denetim için UserForm eklemek için makro kullandığınızda sorunlar
213583 XL2000: Kullanıcı formları diğer projelerde gösterilemiyor.
213736 XL2000: anahtar belirleme birlikte fare düğmesini basılı
213744 XL2000: nasıl bir UserForm geçici olarak gizlemek üzere
213747 XL2000: nasıl özel kullanıcı formları ile komut düğmeleri arasında geçiş yapar
213749 XL2000: nasıl bir UserForm veri girmek için kullanın.
213768 XL2000: nasıl kullanıcı formu dinamik olarak yeniden boyutlandırmak
213774 XL2000: nasıl bir başlangıç ekranı ile bir UserForm oluşturmaya

VBA kodu

Excel kullanıcı formları üzerinde kullanabileceğiniz beş farklı denetimler içerir. Bu bölüm, programlı olarak bu denetimleri kullanan çeşitli örnekler içerir.

Not: VBA kodunu bu makalede bulunan tüm özellikleri ve denetimleri için olaylar etkiler örnekler içermiyor. Gerekiyorsa, bir denetim için kullanılabilir olan özelliklerin bir listesini görmek için Özellikler penceresini kullanın. Görünüm menüsünde, özellikler listesini görmek için Özellikler penceresinitıklatın.

Denetimleri düzenlemek için Tasarım modunda kullanma

Bir iletişim kutusu tasarlamak için Visual Basic Düzenleyicisi'ni kullandığınızda, Tasarım modunu kullanıyor. Tasarım modunda, bir denetimi bir UserForm Properties penceresinde özelliklerini değiştirebilir ve denetimleri düzenleyebilirsiniz. Görünüm menüsünde, Özellikler penceresini görüntülemek için Properties Window'utıklayın.

Not: Tasarım modunda iken denetimleri olaylara yanıt vermez. Bir iletişim kutusunda, kullanıcıların görmesini istediğiniz gibi görüntülemek için çalıştırdığınızda, program çalıştırma modunda olduğunu. UserForm bellekten kaldırıldığında çalışma modunda bir denetimin özelliklerini yaptığınız değişiklikler korunmaz.

Not: Denetimleri çalışma modunda olaylarına tepki vermek.

Nasıl bir UserForm denetimlere başvurma

Nasıl denetimlerini programlı olarak başvurmak Visual Basic Modül sayfasına kod çalıştırdığı türüne bağlıdır. Kod Genel modülünden çalışıyorsa, sözdizimi aşağıda verilmiştir:
UserFormName.Controlname.Property = Değer
Örneğin, UserForm1 Bobdeğerine adlı bir UserForm üzerinde Metinkutusu1 adında bir TextBox denetimininText özelliğini ayarlamak istiyorsanız, şu kodu kullanın:
UserForm1.TextBox1.Text = "Bob"
UserForm veya bir denetimin bir olay tarafından başlatılan bir yordamın kodu ise UserForm adına başvurmak gerekmez. Bunun yerine, şu kodu kullanın:
TextBox1.Text = "Bob"
Bir nesne için kod eklediğinizde, o nesnenin olaylardan biri kod eklenir. Çoğu bu makaledeki örneklerde, kod KomutDüğmesi nesnesiClick olayını ekleyebilir.

Etiket denetimleri

Etiket denetimleri çoğunlukla diğer denetimlere bir UserForm açıklamak için kullanılır. UserForm çalışırken bir Label denetimi kullanıcı tarafından düzenlenemez. Resim yazısı özelliğini ayarlamak için veya bir Label denetimi metni döndürmek için kullanın. Bir Label denetimi biçimlendirme için sık kullanılan diğer özellikleri Font özelliğini ve ForeColor özelliğini içerir.

WITH ifadesi bir Label denetimi biçimlendirmek için kullanma

Bir Label denetimi özelliklerini değiştirmek için WITH ifadesi kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. UserForm için bir Label denetimi ekleyin.
  5. CommandButton denetimi için UserForm ekleyin.
  6. CommandButton denetimi toopen kod penceresi UserForm için çift tıklatın.
  7. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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 WithEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  9. KomutDüğmesitıklatın.
Metni "1" görünür kalın Times New Roman yazı tipi boyutu olarak 14 Etiket denetimi Label örneği budur.

TextBox denetimleri

TextBox denetimleri, kullanıcıdan giriş toplamak için sık kullanılır. Metin özelliği bir metin kutusu denetiminde yapılan giriş içerir.

Bir parolayı doğrulamak için TextBox denetimi kullanma

TextBox denetiminin PasswordChar özelliğini ayarlarsanız, Denetim "Maskelenmiş Düzenleme" olur. TextBox denetiminde yazdığınız her karakteri görsel olarak belirttiğiniz karakteriyle değiştirilir. Bir parolayı doğrulamak için TextBox denetimi kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Bir TextBox denetimi için UserForm ekleyin.
  5. Görünüm menüsünden Özellikler penceresi görünür hale getirmek içinÖzellikler ' i tıklatın.
  6. TextBox denetiminin PasswordChar özelliğini yazın *.

    Not: Yıldız değeri değişiyor.
  7. CommandButton denetimi için UserForm ekleyin.
  8. CommandButton denetimi toopen kod penceresi UserForm için çift tıklatın.
  9. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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 IfEnd Sub
  10. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  11. Parolayı yazın UserFormTextBox denetiminde.
  12. CommandButtondenetimi tıklatın.
Bu örnekte, "userform" parola değil. Yanlış bir parola yazın, parolanızı yanlış, TextBox denetimi temizlenir ve parolayı yeniden yazabilirsiniz bildiren bir ileti kutusu alırsınız. Doğru parolayı yazın, bir Hoş Geldiniz iletisi alırsınız ve UserForm kapalı.

Ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasına tıklayın:
213555 XL2000: UserForm metin kutuları için veri doğrulama özelliği yok

KomutDüğmesi denetimleri

CommandButton denetimi, bir VBA yordamı başlatmak için kullanabilirsiniz. VBA yordamı CommandButton denetimi tıklatın olay genellikle iliştirilir. Bir yordam'ı tıklatın olay gerçekleştiğinde çalıştırılan CommandButton denetimi kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. CommandButton denetimi için UserForm ekleyin.
  5. Kod penceresi CommandButton denetimi görüntüleyebilecek UserForm için çift tıklatın.
  6. Kod penceresinde, aşağıdaki kodu yazın:
    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. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Her tıklattığınızda CommandButton1 denetimin arka plan rengini değiştirir.

CommandButton denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
213572 XL2000: İptal düğmesi tıklatıldığında UserForm kapatmak.
213743 XL2000: varsayılan komut düğmesi bir UserForm nasıl kurulur

ListBox denetimi

Kullanıcının aralarından seçim yapabileceğiniz öğelerin listesini sunmak için ListBox denetimi amacı budur. Bir Excel çalışma sayfasına liste kutusu denetimi için madde listesi depolayabilirsiniz. Çalışma sayfasındaki bir hücre aralığı ile bir ListBox denetimini doldurmak için RowSource özelliğini kullanın. MultiSelect özelliğini kullandığınızda, birden çok seçim kabul etmek için bir ListBox denetimini ayarlayın.

Şu anda seçili öğe ListBox denetimi elde etme

Seçili olan öğeyi döndürmek için bir ListBox denetiminin değer özelliğini kullanın. Bir tek select ListBox denetimi seçili olan öğeyi döndürmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ListBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. ListBox denetimi için UserForm ekleyin.
  6. ListBox denetimi görüntüleyebilecek kod penceresi ListBox denetimi çift tıklatın.
  7. Kod penceresinde ListBox1 Click olayı için aşağıdaki kodu yazın:
    Private Sub ListBox1_Click()    MsgBox ListBox1.ValueEnd Sub 
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Listedeki bir öğeyi tıklattığınızda, seçili olan öğeyi bir ileti kutusu görünür.

Seçili öğeleri birden çok select ListBox denetimi elde etme

Bir çoklu seçim liste kutusu denetimi seçili öğeleri belirlemek için listedeki tüm öğeler arasında döngü ve ardından Seçili özelliğini sorgulayabilirsiniz. Bir çoklu seçim liste kutusu denetimi seçili öğeleri döndürmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ListBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. ListBox denetimi için UserForm ekleyin.
  6. Görünüm menüsünde, Özellikler penceresini görmek içinÖzellikler ' i tıklatın.
  7. Aşağıdaki liste kutusu denetim özellikleri belirtilen değerleri yazın:
       Property	   Value   -----------     -----------------------   MultiSelect	   1 - frmMultiSelectMulti   RowSource	   Sheet1!A1:A8
  8. CommandButton denetimi için UserForm ekleyin.
  9. Kod penceresi CommandButton denetimi görüntüleyebilecek UserForm için çift tıklatın.
  10. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  12. Listeden bir veya daha fazla öğe seçin.
  13. CommandButton1' ı tıklatın.
CommandButton1' ı tıklattıktan sonra ListBox denetimi tarafından seçilen her öğe ayrı bir ileti kutusunda görüntülenir. UserForm bir ileti kutusunda seçili tüm öğeleri göründükten sonra otomatik olarak kapatılır.

Bir çalışma sayfasındaki hücrelerle bir ListBox denetimini doldurmak için RowSource özelliği nasıl kullanılır

Bir çalışma sayfasında bir hücre aralığındaki bir ListBox denetimini doldurmak için RowSource özelliğini kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ListBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. ListBox denetimi için UserForm ekleyin.
  6. CommandButton denetimi için UserForm ekleyin.
  7. Kod penceresi CommandButton denetimi görüntüleyebilecek UserForm için çift tıklatın.
  8. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()    ListBox1.RowSource = "=Sheet1!A1:A5"End Sub 
  9. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    Not:ListBox1 herhangi bir değer içermiyor.
  10. CommandButton1' ı tıklatın.
ListBox1 hücre a1: a5 Sayfa1 değerleri ile doldurulur.

Bir dizideki değerleri içeren bir liste kutusu denetimini doldurmak nasıl

Bu örnek, bir dizi değişkeni ile ListBox denetimi doldurmak nasıl gösterir. Aynı anda ListBox denetimi bir öğeyi diziden değerler atamalısınız. Genellikle, bu işlem, bir gibi bir döngü yapısı kullanmanızı gerektirir... Sonraki döngü. Bir dizi değişkeni ile ListBox denetimi doldurmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. ListBox denetimi için UserForm ekleyin.
  5. Ekle menüsündeModül Modül sayfasına eklemek için tıklatın.
  6. Kod penceresinde, aşağıdaki kodu yazın:
    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.ShowEnd Sub 
  7. Araçlar menüsündenmakrolar' ı tıklatın, PopulateListBox' ı tıklatın ve sonraÇalıştır' ı tıklatın.
PopulateListBox yordamı basit bir dizi oluşturur ve sonra öğeleri dizideki ListBox denetimi için yöntem yöntemini kullanarak ekler. Ardından UserForm görüntülenir.

ListBox denetimini doldurmak için bir çalışma sayfasında yatay hücre aralığını kullanma

Yatay hücreler aralığında bir ListBox denetiminin RowSource özelliğini ayarlarsanız, yalnızca ilk değeri ListBox denetiminin içinde görünür.

Yöntem yöntemini kullanarak yatay hücreler aralığında bir ListBox denetimini doldurmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Sayfa1'de hücreleri A1:E1, ListBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. ListBox denetimi için UserForm ekleyin.
  6. Ekle menüsündeModül Modül sayfasına eklemek için tıklatın.
  7. Kod penceresinde, aşağıdaki kodu yazın:
    Sub PopulateListWithHorizontalRange()    For Each x In Sheet1.Range("A1:E1")        UserForm1.ListBox1.AddItem x.Value    Next        UserForm1.ShowEnd Sub
  8. Araçlar menüsündenmakrolar' ı tıklatın,PopulateListWithHorizontalRange' ı tıklatın ve sonraÇalıştır' ı tıklatın.
Makro yordamı Sayfa1, hücre A1:E5 değerleri aynı anda ListBox1 için bir ekleme aracılığıyla döngüsü.

Not:ListBox1 hücreleri A1:E5 için Sayfa1'e bağlı değil.

Birden çok veri sütunu için ilişkili bir ListBox denetiminin birden çok değer döndürmesine nasıl

ListBox denetimleri veri birden fazla sütun görüntülemek için biçimlendirebilirsiniz. Başka bir deyişle, ListBox denetiminin birden fazla öğe listesinin her satırda görüntüler. Seçili madde listesinde birden çok değer döndürmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Belirtilen onSheet1 olan hücrelere aşağıdaki verileri yazın:

    A1: yılB1: bölgeC1: Satış
    A2: 1996 B2: KuzeyC2: 140
    A3: 1996B3: GüneyC3: 210
    A4: 1997B4: KuzeyC4: 190
    A5: 1997B5: GüneyC5: 195
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. UserForm için bir Label denetimi ekleyin.
  6. ListBox denetimi için UserForm ekleyin.
  7. ListBox' ı sağ tıklatın ve sonraÖzellikler' i tıklatın.
  8. ListBox denetimi aşağıdaki özellikleri için aşağıdaki tabloda listelendiği gibi gösterilen değerleri seçin veya yazın:
       Property       Value   ----------------------------   BoundColumn     1   ColumnCount     3   ColumnHeads     True   RowSource       Sheet1!A2:A5
  9. ListBox denetimi görüntüleyebilecek kod penceresi ListBox denetimi çift tıklatın.
  10. Kod penceresinde, aşağıdaki kodu yazın:
    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 & " " & Val3End Sub
  11. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Bir girişte ListBox denetimi tıklattığınızda, bu girişi üç öğelerin tümünü görüntülemek için etiketini değiştirir.

Nasıl bir çalışma sayfasına bağlı bir ListBox denetimi tüm öğeleri kaldırmak için

Maddeleri çalışma sayfasına bağlı bir ListBox denetimi kaldırmak için RowSource özelliğinde depolanan değeri temizleyin. Maddeleri çalışma sayfasına bağlı bir ListBox denetimi kaldırmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ListBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. ListBox denetimi için UserForm ekleyin.
  6. ListBox denetimi Template'i işaret edip özelliklerisağ tıklatın.
  7. RowSource özelliğindeki yazın Sayfa1! A1: A5.
  8. CommandButton denetimi için UserForm ekleyin.
  9. CommandButton denetimi görüntüleyebilecek kod penceresi CommandButton denetimi çift tıklatın.
  10. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()    ListBox1.RowSource = ""End Sub
  11. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    Sayfa1'e girdiğiniz değerler için UserForm eklenen ListBoxdenetimi doldurulur.
  12. CommandButton1' ı tıklatın.
Tüm öğeleri ListBox1' kaldırılır.

Nasıl bir çalışma sayfasına bağlı değil bir ListBox denetimi tüm öğeleri kaldırmak için

Bir çalışma sayfasına liste bağlı değilse, bir liste kutusu denetimi tüm öğeleri kaldırır tek VBA komutu yoktur. ListBox denetimi Visual Basic diziden doldurulan tüm öğeleri kaldırmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. ListBox denetimi için UserForm ekleyin.
  5. Ekle menüsündeModül Modül sayfasına eklemek için tıklatın.
  6. Kod penceresinde, aşağıdaki kodu yazın:
    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.ShowEnd Sub 
  7. CommandButton denetimi için UserForm ekleyin.
  8. CommandButton denetimi görüntüleyebilecek kod penceresi CommandButton denetimi çift tıklatın.
  9. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()    For i = 1 To ListBox1.ListCount        ListBox1.RemoveItem 0    Next IEnd Sub
  10. Araçlar menüsündenmakrolar' ı tıklatın, PopulateListBox' ı tıklatın ve sonraÇalıştır' ı tıklatın.

    ListBox denetimi doldurulur ve ardından UserForm görüntülenir.
  11. CommandButton1' ı tıklatın.
Tüm öğeleri ListBox1' kaldırılır.

ListBox denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
161598 OFF: ComboBox veya ListBox Excel veya Word için veri ekleme hakkında
211446 XL2000: Sadece ilk sütunu TextColumn özelliği görüntüler
211896 XL2000: birleşim listesi düzenleme denetimi kullanıcı formları için taklit etmek nasıl
211899 XL2000: sütun başlıkları ayarlayarak ListBox Denetimi'ni sorunları
213721 XL2000: nasıl bir ComboBox veya ListBox tüm öğeleri kaldırmak
213722 XL2000: TextColumn özelliği nasıl kullanılır
213723 XL2000: nasıl birden çok sütun görüntüleyen bir liste kutusundan değer dönmek
213746 XL2000: Nasıl birlikte birden çok aralığa liste kutusu denetimini doldurmak
213748 XL2000: nasıl başka bir liste kutusunu temel alan bir liste kutusunu doldurmak
213752 XL2000: RowSource veri bağlaması olduğunda yöntem yöntemini kullanarak bir hata neden olur
213756 XL2000: da removeItem yöntemi ile ya da ListBox ComboBox denetimi kullanma
213759 XL2000: nasıl bir liste kutusunda seçili öğelerin belirlemek

ComboBox denetimleri

Aşağı açılan liste kutusu veya birleşik giriş kutusu, bir listeden bir değer seçin veya yeni bir değer yazın, ComboBox denetimi kullanabilirsiniz. ComboBox denetimi bir aşağı açılan liste kutusu veya açılan kutu davranan Style özelliği belirler.

Not:ListBox denetimi için önceki bölümdeki tüm örnekler, "bir çoklu seçim liste kutusu denetimi seçili maddelerin elde etme" örnek dışında ComboBox denetimine de uygulanabilir.

ComboBox denetimini çalışma sayfasına bağlı değilse, listeye yeni öğe eklemek nasıl

ComboBox denetimi listesinde zaten yanlış bir değer yazdığınızda, listeye yeni değer eklemek isteyebilirsiniz. ComboBox denetimi çalışma sayfasına bağlı değilse, ComboBox denetimine yazılan yeni değeri eklemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Bir ComboBox denetimi için UserForm ekleyin.
  5. Ekle menüsündeModül Modül sayfasına eklemek için tıklatın.
  6. Kod penceresinde, aşağıdaki kodu yazın:
    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. CommandButton denetimi için UserForm ekleyin.
  8. CommandButton denetimi görüntüleyebilecek kod penceresi CommandButton denetimi çift tıklatın.
  9. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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. Araçlar menüsündenmakrolar' ı tıklatın, PopulateListBox' ı tıklatın ve sonraÇalıştır' ı tıklatın.

    ComboBox denetimi doldurulur ve ardından UserForm görüntülenir.
  11. ComboBox denetimi yazın Mangoes (veya herhangi bir değer zaten listede yaratır).
  12. CommandButton1' ı tıklatın.
Yazdığınız yeni bir değer listesinin sonunda görünür.

ComboBox denetimi çalışma sayfasına bağlı ise listeye yeni öğe eklemek nasıl

Bir kullanıcı zaten ComboBox denetimi listesinde geçersiz bir değer girdiğinde listeye yeni değer eklemek isteyebilirsiniz. ComboBox denetimi listesine yazdığınız yeni değeri eklemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ComboBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Hücre a1: a5 Sayfa1 seçin.
  4. Ekle menüsündenad' ı seçin ve Tanımla' yı tıklatın.

    Çalışma kitabındaki adlar kutusunda yazın. ListRange ve sonra'ı tıklatın. Tamam. Bu ListRangetanımlı ad oluşturur. Tanımlı ad ListRange , RowSource özelliğini ComboBox denetiminin çalışma sayfasına bağlamak için kullanabilirsiniz.
  5. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  6. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  7. Bir ComboBox denetimi için UserForm ekleyin.
  8. Özellikler ' inde ComboBox1, yazın Sayfa1! ListRangeRowSource özelliği olarak.
  9. CommandButton denetimi için UserForm ekleyin.
  10. CommandButton denetimi görüntüleyebilecek kod penceresi CommandButton denetimi çift tıklatın.
  11. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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 IfEnd Sub
  12. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    Sayfa1'e UserForm görünür.
  13. ComboBox denetimi listede olmayan bir değer yazın.
  14. CommandButton1' ı tıklatın.
ComboBox denetimine yazılan yeni öğe listesine eklenir ve ComboBox denetiminin bağlı liste hücreleri A1:A6 dahil etmek için genişletilir.

UserForm görüntülendiğinde bir ComboBox denetimi listesini görüntüleme

Bazı durumlarda, bir UserForm ilk görüntülendiğinde bir ComboBox denetimi listesini görüntülemek yararlı olabilir. Aşağıdaki örnek, UserForm Activate olayı kullanır. Bir ComboBox denetimi listesini görüntülemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Hücre a1: a5 Sayfa1, ComboBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  5. Bir ComboBox denetimi için UserForm ekleyin.
  6. Özellikler ' inde ComboBox1, yazın Sayfa1! A1: A5RowSource özelliği olarak.
  7. UserForm için UserForm Code penceresini görüntülemek için çift tıklatın.
  8. Kod penceresinde, KomutDüğmesi Click olayı için aşağıdaki kodu yazın:
    Private Sub UserForm_Activate()           ComboBox1.DropDown       End Sub
  9. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Sayfa1'e UserForm görünür ve ComboBox1için listeyi görebilirsiniz.

Başka bir ComboBox denetimine bir seçim yaptığınızda bir ComboBox denetimi listesini görüntüleme

Başka bir ComboBox denetimine bir seçim yapıldığında, otomatik olarak bir ComboBox denetimi listesini görüntülemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. A1: a10 Sayfa1, ComboBox denetimini doldurmak için kullanmayı istediğiniz değerleri yazın.
  3. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  4. ModülEkle menüsünde tıklatın.
  5. Modül için kod penceresinde, aşağıdaki kodu yazın:
    Sub DropDown_ComboBox()    UserForm1.ComboBox2.DropDownEnd Sub
  6. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  7. Bir ComboBox denetimi için UserForm ekleyin.
  8. Özellikler ' inde ComboBox1, yazın Sayfa1! A1: A5RowSource özelliği olarak.
  9. ComboBox denetimi için kullanacağı kod penceresine ComboBox denetimi çift tıklatın.
  10. ComboBox denetimi kod penceresinde, ComboBox Click olayı için aşağıdaki kodu yazın:
    Private Sub ComboBox1_Click()    Application.OnTime Now, "DropDown_ComboBox"End Sub
  11. İkinci bir ComboBox denetimi için UserForm ekleyin.
  12. Özellikler ' inde ComboBox2, yazın Sayfa1! A6:A10RowSource özelliği olarak.
  13. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
ComboBox2 listesi ComboBox1 listesindeki bir öğeyi tıklattığınızda otomatik olarak görüntülenir.

ComboBox denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
161598 OFF: ComboBox veya ListBox Excel veya Word için veri ekleme hakkında
211446 XL2000: Sadece ilk sütunu TextColumn özelliği görüntüler
211899 XL2000: sütun başlıkları ayarlayarak ListBox Denetimi'ni sorunları
213717 XL2000: ComboBox ile açılan yöntemini kullanarak çalışma zamanı hatası
213718 XL2000: nasıl bir ComboBox liste bir UserForm görüntülenen olduğunda görüntülenecek
213721 XL2000: nasıl bir ComboBox veya ListBox tüm öğeleri kaldırmak
213722 XL2000: TextColumn özelliği nasıl kullanılır
213752 XL2000: RowSource veri bağlı olduğunda yöntem yöntemini kullanarak bir hata neden olur
213756 XL2000: da removeItem yöntemi ile ya da ListBox ComboBox denetimi kullanma

Çerçeve denetimi

Bir UserForm mantıksal olarak ilişkili öğeleri gruplandırmak için bir Çerçeve denetimi kullanın. Çerçeve denetimleri seçenek düğmesi denetimleri gruplamak için sık kullanılır.

Nasıl bir çerçeve denetimi tüm denetimleri arasında döngü gerçekleştirmek

Bir her biri için kullanılacak... Sonraki döngü Çerçeve denetimindeki tüm denetimlere erişmek için aşağıdaki adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Çerçeve denetimi için UserForm ekleyin.
  5. Çerçeve denetimi için bir seçenek düğmesi Denetimi Ekle.

    Çerçeve denetimi daha fazla iki seçenek düğmesi denetimi eklemek için bu adımı yineleyin.
  6. Çerçeve denetimi Çerçeve denetimi için Code penceresini açmak için çift tıklatın.
  7. Kod penceresinde, Çerçeveyi tıklatın olay için aşağıdaki kodu yazın:
    Private Sub Frame1_Click()    Dim Ctrl As Control        For Each Ctrl In Frame1.Controls        Ctrl.Enabled = Not Ctrl.Enabled    NextEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  9. UserForm içinde Çerçevedenetimi tıklatın.
Çerçeve denetimi'ı ilk kez tüm denetimleri Çerçeve denetiminde kullanılamaz. Çerçeve denetimi yeniden tıklatırsanız, yeniden kullanılabilir denetimlerdir.

Seçenek düğmesi denetimi

Seçenek düğmesi denetimi grupları, bir grup seçenek arasında bir seçim yapmak için kullanabilirsiniz. Grup seçenek düğmesi denetimi için aşağıdaki tekniklerden birini kullanabilirsiniz:
  • Çerçeve denetimi
  • GroupName özelliği
Not:Üzerinde değer, Evet değeri ve doğru değer bir seçenek düğmesi seçili olduğunu belirtir. Off değeri, Hayır değerini ve False değeri bir seçenek düğmesi seçili olmadığını gösterir.

Seçenek düğmesi denetimi bir çerçeve denetimi olduğunda seçili seçenek düğmesi denetimi belirleme

Çerçeve denetimi kullanarak seçenek düğmesi denetimleri gruplandırdığınızda, Çerçeve denetimi içindeki tüm denetimler aracılığıyla döngü ve her denetimin Value özelliği denetimi seçili seçenek düğmesi denetimi belirleyebilirsiniz. Seçili seçenek düğmesi denetimi belirlemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Çerçeve denetimi için UserForm ekleyin.
  5. Çerçeve denetimi için bir seçenek düğmesi Denetimi Ekle.

    Çerçeve denetimi daha fazla iki seçenek düğmesi denetimi eklemek için bu adımı yineleyin.
  6. Çerçeve denetimi dışında UserForm üzerinde CommandButton denetimi ekleyin.
  7. Kod penceresi CommandButton denetimi görüntüleyebilecek UserForm için çift tıklatın.
  8. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()     For Each x In Frame1.Controls         If x.Value = True Then             MsgBox x.Caption         End If     Next End Sub
  9. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  10. UserFormbir seçenek düğmesi denetimi tıklatın ve ardındanCommandButton1tıklatın.
Şu anda seçili seçenek düğmesi denetimi başlığını içeren bir ileti kutusu görünür.

Seçili seçenek düğmesi denetimi belirleme

Aşağıdaki örnek amacı Group1'de seçili seçenek düğmesi denetimi belirlemektir. İki grup seçenek düğmesi denetimi olan bir UserForm oluşturmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Çerçeve denetimi için UserForm ekleyin.
  5. Çerçeve denetimi bir seçenek düğmesi denetimi ekleyin.

    Çerçeve denetimi daha fazla iki seçenek düğmesi denetimi eklemek için bu adımı yineleyin.
  6. Her seçenek düğmesi denetimi için yazın Grup1GroupName özelliği.
  7. 4 ve 5 üç seçenek düğmesi denetimi içeren ikinci bir Çerçeve denetimi oluşturmak için adımları yineleyin.
  8. Her seçenek düğmesi denetimi için ikinci Çerçeve denetimi yazın Grup2GroupName özelliği.
  9. Çerçeve denetimleri dışında UserForm üzerinde CommandButton denetimi ekleyin.
  10. Kod penceresi CommandButton denetimi görüntüleyebilecek UserForm için çift tıklatın.
  11. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    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. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
  13. UserForm Group1 bir seçenek düğmesi denetimi tıklatın ve sonraCommandButton1' ı tıklatın.
Şu anda seçili seçenek düğmesi denetimi başlığını içeren bir ileti kutusu görünür.

Seçenek düğmesi denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
213724 XL2000: Seçenek düğmesi için TripleState özelliği kullanarak sorunları

CheckBox denetimi

True veya false değerini belirtmek için onay kutusu denetimi kullanabilirsiniz. Truedeğeri, onay işaretiyle beliren bir CheckBox denetimi gösterir. Hiçbir onay işaretiyle görünür onay kutusunuFalsedeğeri gösterir. TripleState özelliği değeri Trueise, bir CheckBox denetimi de Nulldeğeri olabilir. Null değeri olan bir onay kutusu denetimi kullanılamaz gibi görünüyor.

Not:Temel değer ve Evet değeri True değeri bir CheckBox denetimi seçili olduğunu belirtir. Bir CheckBox denetimi temizlenir Off değeri, Hayır değerini ve False değerini belirtin.

Bir CheckBox denetiminin değerini denetleme

Bir CheckBox denetimi geçerli değerini döndürmek için Value özelliği kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Bir CheckBox denetimi için UserForm ekleyin.
  5. CheckBox1özellikler listesinden seçin. DoğruTripleState özelliği.
  6. Onay kutusu denetimi görüntüleyebilecek CheckBox denetiminin kod penceresi çift tıklatın.
  7. Kod penceresinde CheckBox1 Change olayı için aşağıdaki kodu yazın:
    Private Sub CheckBox1_Change()    Select Case CheckBox1.Value        Case True            CheckBox1.Caption = "True"        Case False            CheckBox1.Caption = "False"        Case Else            CheckBox1.Caption = "Null"    End SelectEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
CheckBox denetimi onay kutusu denetimi değişiklikleri geçerli değerini yansıtacak şekilde başlığını tıklattığınızda.

ToggleButton denetimi

Siz tıklatana kadar bir ToggleButton denetimi CommandButton denetimi aynı görünüme sahiptir. Bir ToggleButton denetimi tıklattığınızda basılı veya itilmiş görünür. Düğme seçili olmadığında değer bir ToggleButton denetimi düğmesi seçili olduğunda True ve False özelliğidir. TripleState özelliği değeri Trueise, bir ToggleButton denetimi de Nulldeğeri olabilir. Null değeri olan bir ToggleButton denetimi kullanılamaz gibi görünüyor.

Not:Temel değer ve Evet değeri True değeri bir ToggleButton denetimi seçili olduğunu belirtir. Off değeri, Hayır değerini ve False değeri bir ToggleButton denetimi seçili olmadığını gösterir.

Bir ToggleButton denetimi değerini elde etme

Bir ToggleButton denetimi değeri elde etmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. UserForm üzerinde bir ToggleButton denetimi ekleyin.
  5. UserForm için bir Label denetimi ekleyin.
  6. ToggleButton denetimini toopen kod penceresi ToggleButton denetimini çift tıklatın.
  7. Kod penceresinde ToggleButton1Click olayı için aşağıdaki kodu yazın:
    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 IfEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
UserForm değişiklikleri arka plan rengi ToggleButton denetimi tıklattığınızda.

ToggleButton denetimi birbirini dışlayan bir grup oluşturma

Bu örnek, bir değişkeni ayarlamak için MouseUp olayı kullanır ve ExclusiveToggleButtons yordamı çağırır. ExclusiveToggleButtons yordam seçilir ve diğerlerini iptal ToggleButton denetimini belirler. ToggleButton denetimi birbirini dışlayan bir grup oluşturmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. ModülEkle menüsünde tıklatın.
  4. Modül için kod penceresinde, aşağıdaki kodu yazın:
    ' Variable that holds the name of the ToggleButton that was clicked.Public clicked As StringSub 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    NextEnd Sub
  5. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  6. Çerçeve denetimi için UserForm ekleyin.
  7. Bir ToggleButton denetimi Çerçeve denetimi ekleyin.

    Çerçeve denetimi iki daha fazla ToggleButton denetimi eklemek için bu adımı yineleyin.
  8. Kod penceresini görüntülemek için Çerçeve denetimi için UserForm çift tıklatın.
  9. Aşağıdaki codefor ToggleButton MouseUp Olay Modülü için kod penceresinde yazın:
    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. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Bir ToggleButton denetimi tıklattığınızda, daha önce seçilen ToggleButton denetimi iptal edildi.

TabStrip denetimi

TabStrip denetim bilgi denetimler kümesi için farklı kümelerini görüntülemek için kullanın.

TabStrip denetim program aracılığıyla denetlemek nasıl

Sekmesinde seçili bağlı bir Resim denetimi BackColor özelliğini değiştirmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual Basic Düzenleyicisi' ni tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. TabStrip denetimi için UserForm ekleyin.
  5. TabStrip denetiminin Bankası kapsayan bir Resim denetimi ekleyin, ancak sekmeler kapsamaz.
  6. Image1 Özellikler bölmesinde yazın& H000000FF &BackColor özelliği.
  7. TabStrip denetimi için kullanacağı kod penceresine TabStrip denetimi çift tıklatın.
  8. Kod penceresinde TabStrip1 Change olayı için aşağıdaki kodu yazın:
    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 SelectEnd Sub
  9. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Görüntü denetimi değişiklikleri bağlı olarak etkin olan TabStrip denetimindeki sayfa rengi.

TabStrip denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
213254 XL2000: nasıl bir UserForm TabStrip denetiminde kullanılacak

Çok sayfalı denetimi

Çok sayfalı denetimi birkaç kategori halinde sıralanabilir bilgi çok çalışmak için kullanın. Daha fazla Sayfa , nesneleri veya çok sayfalı denetim birini oluşur her farklı denetimler kümesi içerir. Çok sayfalı denetimin değeri özelliğini ayarlayarak etkin sayfa programlı olarak ayarlayabilirsiniz.

Çok sayfalı bir denetime program aracılığıyla denetlemek nasıl

Çok sayfalı denetimi ekleyin ve makro kullanarak denetlemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Çok sayfalı bir denetim için UserForm ekleyin.
  5. Bir Label denetimi için Sayfa1 çok sayfalı denetimi ekleyin.
  6. Bir TextBox denetimi için Sayfa1 çok sayfalı denetimi ekleyin.
  7. Çok sayfalı denetim Sayfa2' yi tıklatın ve sonra 5and adımları yineleyin bir Etiket ve metin kutusu denetimi eklemek için 6.
  8. Çok sayfalı denetim için kullanacağı kod penceresine çok sayfalı denetimi çift tıklatın.
  9. Kod penceresinde MultiPage1 Change olayı için aşağıdaki kodu yazın:
    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 SelectEnd Sub
  10. Kod penceresinde UserForm Initialize olayı için aşağıdaki kodu yazın:
    Private Sub UserForm_Initialize()    ' Force Page1 to be active when UserForm is displayed.    MultiPage1.Value = 0    Label1.Caption = ""End Sub
  11. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    Sayfa1 TextBox denetiminde yazın Test. Ne zaman youclick Sayfa2 sekmesinde, TextBox2 temizlenir ve TextBox1 Sayfa1 üzerinde yapılan giriş Label2 başlığını dönüşür ("Test").

Çok sayfalı bir denetimi kullanarak bir sihirbaz arabirimi oluşturma

Görev artımlı birkaç adım gerektirdiğinde, bir sihirbaz arabirimi çok yararlı olabilir. Çok sayfalı denetimi, birden çok kullanıcı formları kullanmak yerine bir sihirbaz arabirimi oluşturmak için kullanabilirsiniz. Bu örnek, üç sayfa olan bir çok sayfalı denetiminin yönetir. UserForm Initialize olayı iliştirilmiş bir yordam Sayfa2 ve Page3 devre dışı bırakır ve çok sayfalı denetiminin etkin olması için Sayfa1 zorlar.

Not:Sayfa topluluğu kullanarak çok sayfalı bir denetimin sayfaları dizin koleksiyonundaki ilk sayfa sayfa sıfır olur. Bu yordam, ayrıca KomutDüğmesi denetimleri başlığını ayarlar ve devre dışı bırakır <> düğmesi.

Not:CommandButton1Click olayı için atanan yordam işlevselliğini kontrol <> düğmesi. CommandButton2Click olayı için atanan yordam işlevselliğini kontrol sonraki > düğmesi. Çok sayfalı denetimi kullanarak bir sihirbaz arabirimi oluşturmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Çok sayfalı bir denetim için UserForm ekleyin.
  5. Sayfa1 sekmesini sağ tıklatın ve sonraYeni sayfa Page3 çok sayfalı denetimine eklemek için tıklatın.
  6. Çok sayfalı denetiminde olmayan UserForm üzerinde CommandButton denetimi ekleyin.

    UserForm üzerinde ikinci CommandButton denetimi eklemek için bu adımı yineleyin.
  7. UserForm UserForm için Codewindow açmak için çift tıklatın.
  8. Kod penceresinde UserForm Initialize olayı için aşağıdaki kodu yazın:
    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" buttonPrivate 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 SelectEnd Sub' Procedure for the "Next>" buttonPrivate 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 SelectEnd Sub
  9. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Tıklattığınızda sonraki >, Sayfa2 etkinleştirilirse ve <> düğmesi kullanılabilir olur. Tıklattığınızda sonraki > ikinci kez Page3 etkinleştirilirse ve "Bitiş" için CommandButton2 başlığını değiştirir.

Kaydırma çubuğu denetimi

Bir Label denetimi gibi başka bir denetim tarafından görüntülenen değeri değiştirmek istediğinizde, bir kaydırma çubuğu denetimi kullanabilirsiniz.

ScrollBar denetim değerini esas alan bir Label denetimi değiştirme

Kaydırma çubuğu denetimi değeri özelliğinin geçerli ayarı için bir Label denetimi Resim yazısı özelliğini değiştirmek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. Kaydırma çubuğu denetimi için UserForm ekleyin.
  5. UserForm için bir Label denetimi ekleyin.
  6. Kaydırma çubuğu denetimi için kullanacağı kod penceresine ScrollBar denetimi çift tıklatın.
  7. Kod penceresinde ScrollBar1 Change olayı için aşağıdaki kodu yazın:
    Private Sub ScrollBar1_Change()    Label1.Caption = ScrollBar1.ValueEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
Kaydırma çubuğu denetimi kullanarak kaydırma yaptığınızda Label1kaydırma çubuğu denetiminin geçerli değeri ile güncelleştirildi.

SpinButton denetimi

Bir kaydırma çubuğu denetimi gibi bir SpinButton denetimi artırmak veya bir Label denetimi gibi başka bir denetimin değerini azaltma için sık kullanılır. SmallChange özelliği tıklandığında ne kadar SpinButton denetim değeri değişir belirler.

SpinButton denetim artırır veya azaltır bir TextBox denetiminde depolanan tarih ekleme

SpinButton denetim artırır veya azaltır bir TextBox denetiminde depolanan tarih eklemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. SpinButton denetimi için UserForm ekleyin.
  5. Bir TextBox denetimi için UserForm ekleyin.
  6. SpinButton denetim için kod penceresi SpinButton denetim toopen çift tıklatın.
  7. Kod penceresinde SpinButton1 SpinUp olayı için aşağıdaki kodu yazın:
    Private Sub SpinButton1_SpinUp()    TextBox1.Text = DateValue(TextBox1.Text) + 1End Sub
  8. Kod penceresinde SpinButton1 SpinDown olayı için aşağıdaki kodu yazın:
    Private Sub SpinButton1_SpinDown()    TextBox1.Text = DateValue(TextBox1.Text) - 1End Sub
  9. Kod penceresinde UserForm Initialize olayı için aşağıdaki kodu yazın:
    Private Sub UserForm_Initialize()    TextBox1.Text = DateEnd Sub
  10. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.
UserForm göründüğünde, geçerli tarihi TextBox1' de görünür. SpinButton denetimi tıklattığınızda, artan veya indirildiği tarih bir gün.

SpinButton1, SmallChange özelliğini değiştirirseniz, bu örnekte, SpinButton1' ı tıklattığınızda TextBox1 girişte tarafından değiştirilir gün sayısını etkilemez. SpinUp ve SpinButton1, SPINDOWN olayları için eklenen yordam gün sayısını belirler.

SpinButton denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
213224 XL2000: Visual Basic örnek bir değer değişimi düğmesi olan bir tarih kullanmak

RefEdit denetimi

RefEdit denetim Excel içine yerleştirilmiştir başvuru kutuları davranışını şirketlerden taklit. RefEdit denetiminde depolanan geçerli hücre adresini elde etmek için değer özelliğini kullanabilirsiniz.

RefEdit denetimini kullanarak seçtiğiniz aralığa göre hücre aralığı doldurmak nasıl

Hücreleri doldurmak için RefEdit denetimi kullanmak için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. RefEdit denetimi için UserForm ekleyin.
  5. CommandButton denetimi için UserForm ekleyin.
  6. CommandButton denetimi toopen kod penceresi CommandButton denetimi çift tıklatın.
  7. Kod penceresinde CommandButton1 Click olayı için aşağıdaki kodu yazın:
    Private Sub CommandButton1_Click()    Dim MyRange As String    MyRange = RefEdit1.Value    Range(MyRange).Value = "test"    Unload MeEnd Sub
  8. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    UserFormappears.
  9. RefEdit denetim düğmesini tıklatın.

    UserForm daraltır dikkat edin.
  10. A1: a5 gibi bir hücre aralığı seçin ve sonra thebutton RefEdit denetiminde UserForm genişletmek için tıklatın.
  11. CommandButton1' ı tıklatın.
UserForm kapatır ve "test" word seçtiğiniz hücre şimdi içeriyor.

RefEdit denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
213776 XL2000: nasıl bir UserForm ile RefEdit denetimi kullanmak üzere

Resim denetimi

Bir UserForm üzerinde resim görüntülemek için Resim denetimini amacı budur. Çalışma zamanında Resim denetimine resim atamak için LoadPicture işlevini kullanın.

Nasıl bir resim denetimine resim yüklemek için

Resim denetimini tıklattığınızda yüklemek için bir resim seçmek için ister bir Resim denetimi eklemek için şu adımları izleyin:
  1. Excel'i başlatın ve yeni bir boş çalışma kitabını açın.
  2. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  3. Ekle menüsündenUserForm kitabınızda bir UserForm eklemek için tıklatın.
  4. UserForm bir Resim denetimi ekleyin.
  5. Resim denetimi, Resim denetimi için Code penceresini açmak için çift tıklatın.
  6. Kod penceresinde Image1 Click olayı için aşağıdaki kodu yazın:
    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 IfEnd Sub
  7. RunSub/kullanıcı formunuÇalıştır menüsünde tıklatın.

    UserForm görünür.
  8. Resim denetimini tıklatın.

    C'yi Seçin görüntü Aç iletişim boxappears, Resim denetimini tıklatın ve ardından denetime sizin eklemek için bir bit eşlem dosyası seçebilirsiniz.
Resim denetimi hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
213732 XL2000: LoadPicture işlevi bir resim denetimi kullanarak.

Ek bilgi

Nesne Tarayıcısı

Nesne Tarayıcısıtam listesi tüm özellikleri ve yöntemleri belirli bir komut için kullanılabilir. Excel'de bu bilgileri bulmak için şu adımları izleyin:
  1. Araçlar menüsünde,makroseçin ve Visual BasicEditor' ı tıklatın.
  2. Görünüm menüsünde ObjectBrowsertıklatın.
  3. Ara metin kutusuna, denetlemek istediğiniz adı yazın ve Ara' yı tıklatın.
Visual Basic Düzenleyicisi'nde, Nesne Tarayıcısı kullanma hakkında daha fazla bilgi için Microsoft Visual Basic HelpYardım türü menüsünde Nesne Tarayıcısı Office Yardımcısı'na veya Yanıt Sihirbazı'nda ve konuları görüntülemek için Ara ' yı tıklatın.
Bilgisayarınızda Microsoft Excel Yardımı'nı yükleme hakkında ek bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
231946 OFF2000: nasıl tek bir Office programı veya bileşeni Ekle/Kaldır

Özellikler

Makale No: 829070 - Son İnceleme: 04/24/2016 01:58:00 - Düzeltme: 8.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbprogramming kbfunctions kbhowtomaster kbhowto kbmt KB829070 KbMttr
Geri bildirim