1 labele birden çok toplama işlemi

[zulfuernek]

Label 1
Commandbutton 1
Textbox 1 var

textbox 1 e değer girip butona basınca label 1 deki sayıyla toplayıp textboxu sıfırlayacak

textboxda yeni bir rakam girip butona basınca label 1 deki mevcut rakamın üzerine ekleyecek.

yani hesap makinesi mantığı ile

mümkünmüdür

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If IsNumeric(TextBox1) Then
        Label1.Caption = CDbl(IIf(Label1.Caption = "", 0, Label1.Caption)) + CDbl(TextBox1)
        TextBox1 = ""
        TextBox1.SetFocus
    Else
        MsgBox "Lütfen sayısal değer giriniz!", vbCritical
        TextBox1 = ""
        TextBox1.SetFocus
    End If
End Sub

 

[Orion1]

Alternatif;
Buyurun.

Dim txt1 As Double, lbl1 As Double
If Not IsNumeric(TextBox1.Value) Then GoTo atla
If IsNumeric(TextBox1.Value) Then txt1 = TextBox1.Value
If IsNumeric(Label1.Caption) Then lbl1 = Label1.Caption
If Label1.Caption = "" Or IsNumeric(Label1.Caption) Or IsNumeric(TextBox1.Value) Then Label1.Caption = txt1 + lbl1
atla:

 

[zulfuernek]

hocalarım her ikiside toplamı göstermiyor. labelde hiçbir değişiklik yok

 

[zulfuernek]

korhan hocam tamamdır. kod oldu. ellerinize sağlık

 

[Orion1]

hocalarım her ikiside toplamı göstermiyor. labelde hiçbir değişiklik yok

Aşağıdaki linkteki dosyaya bakın.
DOSYAYI İNDİR
..

 

[zulfuernek]

evet ORION hocam sizin gönderdiğiniz ek dosyada çalışıyor. kusurumabakmayın demekki ben textbox numaralarını değiştirirken hata yaptım. çok çok özür diliyoum sizin de emeklerinizden ve ilginizden ötürü çok teşekkür ederim.


sayın hocam bi sorum daha olucak sizden özür dileyerek.

userform üzerinde butonlara renkleniyor buton üzerinden ayrılınca butonların rengi eskisi gibi oluyor bunu yapabildim. fakat user form üzerinde multipage mevcut ve multi page üzerindeki butonlar için bunu nasıl uygularım.

userform için kodlar aşağıdadır.

'MAUS ÜZERİNE GELİNCE BUTONLARIN RENKLENMESİ
Private Sub CommandButton18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CommandButton18.BackColor = &HC0&
CommandButton18.ForeColor = &HFFFFFF
End Sub

'MAUS ÜZERİNDEN AYRILINCA BUTONLARIN ESKİ HALİNE DÖNMESİ
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
CommandButton18.BackColor = &H8000000F
CommandButton18.ForeColor = &H808080
End Sub

 

[Orion1]

Açtığınız konu çözüme ulaşmıştır.
Yeni soru için yeni konu başlığı açınız.