Textbox değerlerini matematiksel toplama

[cebelitarık]

Forumun değerli üyeleri
Aşağıdaki kodu çalıştırdığımda;

Textbox1 değeri 100
Textbox2 değeri 1000
ise değerleri toplayıp
Textbox3 değeri 1100 olması lazım

fakat Textbox3 değeri 1000100 oluyor
yani yan yana ekliyor ben matematiksel olarak toplamasını istiyorum.
Nasıl yazmak lazım?
Saygılarımla

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim a As Variant
    Dim b As Variant
    Dim c As Variant

a = TextBox1.Value
b = TextBox2.Value

c = (a + b)
TextBox3.Value = c

End Sub

 

[cebelitarık]

Sorunun cevabını buldum değişken tanımlama aşağıdaki şekilde olması gerekiyormuş.
Yalnız şu hatayı verdi textboxları sayı girmeden boş geçersem hata veriyor.
Ne yapmak lazım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim a As [COLOR="Red"] Integer[/COLOR]   
    Dim b As [COLOR="red"] Integer[/COLOR]
    Dim c As [COLOR="red"] Integer[/COLOR]

a = TextBox1.Value
b = TextBox2.Value

c = (a + b)
TextBox3.Value = c

End Sub

 

[Korhan Ayhan]

Merhaba,

TextBox nesnesi adından da anlaşılacağı üzere bir metin kutusudur. Bu nesneye girdiğiniz bütün değerler biçimlenmediğinde metin olarak algılanır.

Siz iki adet if sorgusu ile bu problemi çözebilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyadaki kontrolleri incelerseniz sorunu daha iyi anlarsınız. Bu örnekte iki adet nesnenin değişimi söz konusudur. Bu sebeple klasik kodlarla çözüm üretilmiştir. Nesne sayısı fazlalaşacaksa Class Module uygulamalarını kullanmak daha akılcıdır. Forumda bununla ilgili örnekler bulunmaktadır.

 

[cebelitarık]

Sayın Korhan AYHAN

İlginiz için teşekkür ederim.