UserForm Kullanarak Dört İşlem Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]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.
Örnek görünüm üstteki gibi olacaktır.
Faydalanılması temennisiyle.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]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()
Dim sayı1, sayı2, sonuç As Double
sayı1 = Val(TextBox1.Text)
sayı2 = Val(TextBox2.Text)
If OptionButton1 = True Then sonuç = sayı1 + sayı2
If OptionButton2 = True Then sonuç = sayı1 - sayı2
If OptionButton3 = True Then sonuç = sayı1 * sayı2
If OptionButton4 = True Then sonuç = sayı1 / sayı2
TextBox3.Text = Str(sonuç)
End SubAçıklama
Üstteki kodu, boş bir Excel sayfasına ekleyeceğiniz bir UserForm, üç TextBox, dört OptionButton ve bir CommandButton nesneleri sonrasında kullanabilirsiniz. Kodu UserForm'un kod bölümüne yapıştırmanız yeterli olacaktır.Örnek görünüm üstteki gibi olacaktır.
Faydalanılması temennisiyle.
