UserForm Nesnesine Otomatik Buton Ekleme

05 Ağustos 2021 819

UserForm Nesnesine Otomatik Buton Ekleme isimli içerikte, vba yöntemiyle UserForm'a buton ekleyen hazır kodlar yer almaktadır.

Option Explicit

Sub Add100Buttons()
  Dim UFvbc As VBComponent
  Dim CMod As CodeModule
  Dim ctl As Control
  Dim cb As CommandButton
  Dim n As Long, c As Long, r As Long
  Dim code As String

    Dim x
    Set x = ActiveWorkbook.VBProject
    If Err <> 0 Then
        MsgBox "Your security settings do not allow this macro to run.", vbCritical
        On Error GoTo 0
        Exit Sub
    End If
 
  Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")

  For Each ctl In UFvbc.Designer.Controls
    UFvbc.Designer.Controls.Remove ctl.Name
  Next ctl

  UFvbc.CodeModule.DeleteLines 1, UFvbc.CodeModule.CountOfLines

  n = 1
  For r = 1 To 10
    For c = 1 To 10
      Set cb = UFvbc.Designer.Controls.Add("Forms.CommandButton.1")
      With cb
        .Width = 22
        .Height = 22
        .Left = (c * 26) - 16
        .Top = (r * 26) - 16
        .Caption = n
      End With

      With UFvbc.CodeModule
        code = ""
        code = code & "Private Sub CommandButton" & n & "_Click" & vbCr
        code = code & "Msgbox ""This is CommandButton" & n & """" & vbCr
        code = code & "End Sub"
        .InsertLines .CountOfLines + 1, code
      End With
      n = n + 1
    Next c
  Next r
  VBA.UserForms.Add("UserForm1").Show
End Sub

Sub ShowForm()
  UserForm1.Show
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

UserForm nesnesine normalde manuel olarak CommandButton ekleyebilir ve kopyala/yapıştır yöntemiyle istediğiniz kadar çoğaltabilirsiniz.

Üstteki hazır kodlarda ise, UserForm'a 100 adet buton kodlar sayesinde eklenecek ve genişlik, yükseklik ve yerleşim düzenleri aşağıdaki resimde görüleceği üzere otomatik olarak eklenecektir.

UserForm Nesnesine Otomatik Buton Ekleme

Kodlar sizde çalışmıyorsa, aşağıdaki işlemi yapmanız gerekmektedir.

  • Şerit Menü -> Dosya sekmesinden Seçeneklere tıklayın.
  • Açılan penceredeki Güven Merkezine tıklayın.
  • Ekranın sağ kısmındaki Güven Merkezi Ayarlarına tıklayın.
  • Açılan pencereden, Makro Ayarlarını seçin.
  • Ekranın sağ kısmındaki Geliştirici Makro Ayarları kısmının altında bulunan VBA Projesi nesne modeli erişimine güven seçeneğini işaretleyin.
  • Tamam deyip kapatın.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
TextBox Nesnesinde Kuruş Göstermek
Tüm Satırda İşlem Yapan Döngü
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Kare Kökünü Hesaplama
Satır Yüksekliğini Ayarla
Yorumları Yazdırma
Excel Makroları ile İşlemci Bilgilerini Bulma
56 Renk Kodunu Sıralama
Kilitlenmemiş Hücreleri Seçme İşlemi
Dolar Okutma Makrosu
Dizileri İç İçe Döngüye Eklemek
Excel Üzerinden Klasör Alma Kodu
Makro ile Git Penceresini Açma
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Makrolar ile Sonraki Sayfaya Geçmek
Makro Etkinletirilmezse Sayfalar Gizlenir
Aktif Satırı ve Sütunu Vurgulama
Aktif Hücrenin Sütun Numarasını Bulma
Makrolar ile Klasör Silme
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Excel Açılırken Otomatik İşlem Yaptırma
Excel Şerit Menü Çubuğunu Gizleme
UserForm Açılırken Efekt Ekleme
Makro ile Hızlı Doldurma
Aktif Çalışma Sayfası Dışında Tümünü Silme
Sürücü Seri Numarasını Gösterme
Adlandırılmış Aralıkları Vurgulama
Formül Bulunan Hücreleri Koruma ve Kilitleme
Metnin İçinden TC Kimlik Numarasını Ayırma
Excel Makroları ile Hücreye Saat Ekleme
Zaman Aralığı Ekleme
Excel Kapanırken Otomatik İşlem Yaptırma
2. Derece Denklemin Grafiğini Çizmek
Sayıyı Çift ya da Çiftin Katı Yapma
ComboBox Nesneleri ile Toplama Yapma
Alarmlı Saat Ekleme Kodu
Excel Menüsüne Ekleme Yapma Kodu
Tam Dizin İsmini Bulma
Makro ile Açılan Liste Oluşturma
Excel Hücrelerini Çözme
Excel Makroları ile Klasör Silme
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Bir Aralıktaki Minimum Değeri Renklendirme
Tarih ve Saatten Saati Kaldırma
Otomatik Sıra Numarası Ekleme
Excel Makro ile Hücreye Veri Yazma
Program Başlangıcı Kodları
Aktif Çalışma Sayfasını Koruma
Excel Seçenekleri Penceresini Açma
Excel Sayfalarındaki Resimleri Silmek

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...