textbox ile ilgili

[polis-53]

Merhabalar Cuma'anın mubarek olsun aşağıdaki kodlarda ikinci satırdaki kodu siteden aldım textbok daki rakamları toplayacaktım fakat textbok lara yazdığım rakamları yanyana getiriyor örneğin 1-2-3-4 yazdıysam bunların toplamını vermesi gerekirken 1234 diye veriyor bi yardım ederseniz çok sevineceğim.
Private Sub TextBox4_change()
TextBox8.Value = CDbl(Val(TextBox4.Text)) + CDbl(Val(TextBox5.Text)) + CDbl(Val(TextBox6.Text)) + CDbl(Val(TextBox7.Text))
If Len(TextBox4.Text) >= 15 Then TextBox4 = Left(TextBox4, 15)
If Len(TextBox4.Text) < 10 Then
TextBox4 = Replace(TextBox4, " ", "")
Else
TextBox4.Text = Format(TextBox4, "")
End If
End Sub

Private Sub TextBox5_Change()
TextBox8.Value = CDbl(Val(TextBox4.Text)) + CDbl(Val(TextBox5.Text)) + CDbl(Val(TextBox6.Text)) + CDbl(Val(TextBox7.Text))
If Len(TextBox5.Text) >= 15 Then TextBox5 = Left(TextBox5, 15)
If Len(TextBox5.Text) < 10 Then
TextBox5 = Replace(TextBox5, " ", "")
Else
TextBox5.Text = Format(TextBox5, "")
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

TextBox nesneleri ile hesaplama yapabilmeniz için aşağıdaki yapıyı kullanabilirsiniz.

Bir adet UserForm oluşturun.
Form üzerine 5 adet TextBox nesnesi ekleyin.
Aşağıdaki kodu formunuzun kod bölümüne uygulayın.

Formunuzu çalıştırıp nesnelere rakamlar yazıp sonucu gözlemleyin.

Kod içindeki fonksiyondaki koşulları istediğiniz gibi değiştirebilirsiniz.

Private Sub TextBox1_Change()
    TextBox5.Value = Format(Replace(Toplam(Me.ActiveControl), ".", ","), "Currency")
End Sub
 
Private Sub TextBox2_Change()
    TextBox5.Value = Format(Replace(Toplam(Me.ActiveControl), ".", ","), "Currency")
End Sub
 
Private Sub TextBox3_Change()
    TextBox5.Value = Format(Replace(Toplam(Me.ActiveControl), ".", ","), "Currency")
End Sub
 
Private Sub TextBox4_Change()
    TextBox5.Value = Format(Replace(Toplam(Me.ActiveControl), ".", ","), "Currency")
End Sub
 
Private Function Toplam(Veri)
    Dim Nesne As MSForms.TextBox
    
    For Each Nesne In Me.Controls
        Select Case Nesne.Name
            Case "TextBox1", "TextBox2", "TextBox3", "TextBox4"
            If Nesne.Value <> "" And IsNumeric(Nesne.Value) Then Toplam = Toplam + CDbl(Nesne.Value)
        End Select
    Next
End Function

 

[adsoft]

örnek dosya gönder yapalım yalnız "CDbl" yi silersen toplama işlemi yapar

 

[polis-53]

teşekkür ederim sağolun

 

[polis-53]

Korhan Ayhan

teşekkürker korhan bey yazlnız textbox5 TL sini nasil silcem

 

[Korhan Ayhan]

Merhaba,

Kod içindeki "Currency" ifadelerini "Standard" olarak değiştirip deneyin.