Toplama

[csncesur]

Ek'te gönderdiğim UserForm isimli Excel çalışmamda DataInput isimli butona tıkladığımda Userform1 açılıyor. Açılan pencerede Texbox1 ve Texbox2 e veri girdiğimde Label1 e toplamasını istiyorum. Dosyada detaylı açıklamalar mevcuttur. Yardımlarınıza ihtiyacım vardır. Şimdiden teşekkür ederim.

 

[bmutlu966]

Aşağıdaki kodu ekleyiniz.

Textbox2 ye veri girişi yaptığınızda Label1 de sonucu göreceksiniz.

Private Sub TextBox2_Change()
UserForm1.Label1 = CDbl(UserForm1.TextBox1) + CDbl(UserForm1.TextBox2)
End Sub

 

[csncesur]

Aşağıdaki kodu ekleyiniz.

Textbox2 ye veri girişi yaptığınızda Label1 de sonucu göreceksiniz.

Private Sub TextBox2_Change()
UserForm1.Label1 = CDbl(UserForm1.TextBox1) + CDbl(UserForm1.TextBox2)
End Sub

hocam elinize sağlık çok teşekkür ederim

 

[csncesur]

 

[csncesur]

Aşağıdaki kodu ekleyiniz.

Textbox2 ye veri girişi yaptığınızda Label1 de sonucu göreceksiniz.

Private Sub TextBox2_Change()
UserForm1.Label1 = CDbl(UserForm1.TextBox1) + CDbl(UserForm1.TextBox2)
End Sub

hocam textbox 1 i boş bırakıyorum textbox2 ye veri girdiğimde hata veriyor

 

[csncesur]

Aşağıdaki kodu ekleyiniz.

Textbox2 ye veri girişi yaptığınızda Label1 de sonucu göreceksiniz.

Private Sub TextBox2_Change()
UserForm1.Label1 = CDbl(UserForm1.TextBox1) + CDbl(UserForm1.TextBox2)
End Sub

Textbox1 'e veri gridiğim zaman label1'e direk Düşmesini istiyorum Texbox2 ye gelmeden mesala yarımcı olabilir misiniz

 

[YUSUF44]

Aşağıdaki kodları deneyin:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
ElseIf IsNumeric(TextBox1) Then
    Label1.Caption = CDbl(TextBox1.Text)
ElseIf IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox2.Text)
Else
    Label1.Caption = "Sayı giriniz!"
End If
End Sub

Private Sub TextBox2_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
ElseIf IsNumeric(TextBox1) Then
    Label1.Caption = CDbl(TextBox1.Text)
ElseIf IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox2.Text)
Else
    Label1.Caption = "Sayı giriniz!"
End If
End Sub

 

[csncesur]

Aşağıdaki kodları deneyin:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
ElseIf IsNumeric(TextBox1) Then
    Label1.Caption = CDbl(TextBox1.Text)
ElseIf IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox2.Text)
Else
    Label1.Caption = "Sayı giriniz!"
End If
End Sub

Private Sub TextBox2_Change()
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
ElseIf IsNumeric(TextBox1) Then
    Label1.Caption = CDbl(TextBox1.Text)
ElseIf IsNumeric(TextBox2) Then
    Label1.Caption = CDbl(TextBox2.Text)
Else
    Label1.Caption = "Sayı giriniz!"
End If
End Sub

Süpersiniz hocam çok teşekkür ederim