UserForm Üzerine CommandButton Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Manuel eklediğimiz CommandButton'a tıklıyoruz ve sonuç:
Faydalanılması temennisiyle
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Hazır Kod
VBA:
Private Sub CommandButton1_Click()
Controls.Add ("Forms.CommandButton.1")
Set F1 = Controls.Add("Forms.CommandButton.1")
With F1
.Left = 15
.Top = 125
.Width = 200
.Height = 20
.Caption = "CommandButton"
End With
End SubAçıklama
Bir UserForm nesnesi oluşturun ve üzerine manuel olarak bir CommandButton ekleyin. Daha sonra üstteki kodu UserForm'a ekleyip, manuel olarak eklediğiniz butona bastıktan sonra yeni bir CommandButton nesnesi eklendiğini göreceksiniz.Manuel eklediğimiz CommandButton'a tıklıyoruz ve sonuç:
Faydalanılması temennisiyle
