TextBox toplamda string olarak görüyor?

stratejist · 16 Temmuz 2009

TextBox ların içindeki rakamları toplayacagım fakat string olarak görüyor toplama yerine birleştiriyor. Herbir TextBox a degişken atadım integer göstedim değişkenleri topladım gene aynı oluyor neden acaba?
ayrıyetten bu TextBox lara sadece rakam dahan başka birşey yazılmamasını nasıl sağlarım. properties ten böyle bir ayar varmı?

Orion1 · 16 Temmuz 2009

Sayı dışında giriş yapılamaz

Kod:

if not isnumeric(textbox1.text) then
    msgbox "Lütfen sayı giriniz."
    textbox1.setfocus
    exit sub
end if

toplama yapma:

Kod:

toplama = cdbl(textbox1.text)+cdbl(textbox2.text)

kamil09 · 16 Temmuz 2009

Sayın üstatlarım formu araştırdım ama dosyaları indiremedim. User formda 8 adet textbox m var buları toplatıp mesela textboxt9 a toplamını vermesini istiyorum bunu nasıl yapabilirim bir kaç kod denedim ama olmadı

sizlerden yardım bekliyorum

stratejist · 16 Temmuz 2009

Teşekkür ederim evren.

kamil09' Alıntı:
Sayın üstatlarım formu araştırdım ama dosyaları indiremedim. User formda 8 adet textbox m var buları toplatıp mesela textboxt9 a toplamını vermesini istiyorum bunu nasıl yapabilirim bir kaç kod denedim ama olmadı sizlerden yardım bekliyorum

TextBox9.Value = CDbl(TextBox1.text) + CDbl(TextBox2.text) + CDdbl(TextBox3.text) + CDbl(TextBox4.text) + CDbl(TextBox5.text) + CDdbl(TextBox6.text) + CDbl(TextBox7.text) + CDbl(TextBox8.text)

kamil09 · 16 Temmuz 2009

stratejist verdiğin kodları yazdım ama hata veriyo bunun başka yolu yok mu acaba??

stratejist · 16 Temmuz 2009

kamil09' Alıntı:
stratejist verdiğin kodları yazdım ama hata veriyo bunun başka yolu yok mu acaba??

bende sorunsuz çalışıyor sen başka bir yerinde hata yapmış olabilirsin

Orion1 · 16 Temmuz 2009

kamil09' Alıntı:
stratejist verdiğin kodları yazdım ama hata veriyo bunun başka yolu yok mu acaba??

Tamsayı yazarak dene.
Eğer oluyorsa ki olur.
ondalık kullandığın zaman nokta kullanıyorsan virgül dene,virgül kullanıyorsan nokta dene.

kamil09 · 16 Temmuz 2009

Private Sub TextBox4_Change()
TextBox21.Value = CDbl(TextBox4.Text) + CDbl(TextBox5.Text) + CDbl(TextBox6.Text) + CDbl(TextBox7.Text) + CDbl(TextBox8.Text) + CDbl(TextBox9.Text) + CDbl(TextBox10.Text) + CDbl(TextBox11.Text)
End Sub
arkadaşlar işte yazdım ama erorr veriyo

?

kamil09 · 16 Temmuz 2009

Arkadaşlar textboxlar Frame içinde ondan olbilirmi?

halit3 · 16 Temmuz 2009

birde böyle denermisiniz buradaki amacımız ondalık sayılardanmı olup olmadığı

Private Sub TextBox4_Change()
TextBox21.Value = CDbl(Val(TextBox4.Text)) + CDbl(Val(TextBox5.Text)) + CDbl(Val(TextBox6.Text)) + CDbl(Val(TextBox7.Text)) + CDbl(Val(TextBox8.Text)) + CDbl(Val(TextBox9.Text)) + CDbl(Val(TextBox10.Text)) + CDbl(Val(TextBox11.Text))
End Sub

kamil09 · 16 Temmuz 2009

Sayın Halit bey soruma cevap verdiğiniz için sağolun ama sadece textbox4 yazılan rakamı textbox 21 de görebiliyorum diğer textboxlara yazılan rakamları toplamıyo.

halit3 · 16 Temmuz 2009

senin texboxlardaki rakamları nerden alıyorsa bunları once sayıya çevirin çünkü sayı olarak alğılamıyor bunları ondan dolayı toplamıyor evren beyin dediği gibi ondalık hanesindende kaynaklanıyor olabilir

kamil09 · 16 Temmuz 2009

Sayın üstadım texboxlara ben kendim elle giriyorum textbox rakamları bi yerden almıyo aslıda benim sorunum çok basit ama sanırım anlatamıyorum.Bu 8 textbox a ben elle rakam giricem sonra gidiğim bu textbox daki rakamları tek bir textboxt ta toplamak istiyorum bu kadar basit ama olmadımı olmuyo

Levent Menteşoğlu · 16 Temmuz 2009

Bu sorunuz için classmodül kullanarak daha pratik çözümler üretilebilir. Bir örnek dosya eklermisiniz.

kamil09 · 16 Temmuz 2009

Dosya ekte

halit3 · 16 Temmuz 2009

örnek olarak

textbox1 den textbox6 ya kadar olanları textbox7 topluyor

Orion1 · 16 Temmuz 2009

Tamsayı yazarak dene.
Eğer oluyorsa ki olur.
ondalık kullandığın zaman nokta kullanıyorsan virgül dene,virgül kullanıyorsan nokta dene.

Nasıl toplamıyormuş.Yerim o textboxları çiğ çiğ.
Ama biz boşuna nefes tüketiyoruz.
Dağa önceki mesajımızda ne dedik.Dinleyen yokki.
İşte toplam yapıyor .Alın dosyayı bakın.

Kod:

Private Sub UserForm_Initialize()
TextBox8.Text = Format(0, "#,##0.00")
TextBox1.Text = 15.5
TextBox2.Text = 20.5
TextBox3.Text = 30.1
TextBox4.Text = 15.2
TextBox5.Text = 40.3
TextBox6.Text = 20.1

End Sub

Private Sub CommandButton1_Click()
Dim nesne As Control, toplam As Double
TextBox8.Text = Format(0, "#,##0.00")
For Each nesne In Frame1.Controls
    toplam = toplam + CDbl(nesne.Value)
Next
TextBox8.Text = Format(toplam, "#,##0.00")

End Sub

Altay3555 · 4 Ağustos 2009

halit3' Alıntı:
örnek olarak

textbox1 den textbox6 ya kadar olanları textbox7 topluyor

selamlar...
mesaj o kadar çok arkada kalmış ki,göremedim tabi ki...
şimdi lazım olunca,aradım,buldum..
verdiğiniz linke gittim baktım,gayet güzel de çalışıyor,lakin
Private Sub TextBox156_Enter() 'DaBT-İPA-Hib aşı toplamı
TextBox156 = ValA(TextBox1) + Val(TextBox24) + ValA(TextBox36) + ValA(TextBox48) + ValA(TextBox60) + ValA(TextBox72) + ValA(TextBox84) + ValA(TextBox96) + ValA(TextBox108) + ValA(TextBox120) + ValA(TextBox132) + ValA(TextBox144)
End Sub
Private Sub TextBox157_Enter()
TextBox157 = ValA(TextBox2) + ValA(TextBox25) + ValA(TextBox37) + ValA(TextBox49) + ValA(TextBox61) + ValA(TextBox73) + ValA(TextBox85) + ValA(TextBox97) + ValA(TextBox109) + ValA(TextBox121) + ValA(TextBox133) + ValA(TextBox145)
End Sub
Private Sub TextBox158_Enter()
TextBox158 = ValA(TextBox3) + ValA(TextBox26) + ValA(TextBox38) + ValA(TextBox50) + ValA(TextBox62) + ValA(TextBox74) + ValA(TextBox86) + ValA(TextBox98) + ValA(TextBox110) + ValA(TextBox122) + ValA(TextBox134) + ValA(TextBox146)
End Sub
Private Sub TextBox159_Enter()
TextBox159 = ValA(TextBox4) + ValA(TextBox27) + ValA(TextBox39) + ValA(TextBox51) + ValA(TextBox63) + ValA(TextBox75) + ValA(TextBox87) + ValA(TextBox99) + ValA(TextBox111) + ValA(TextBox123) + ValA(TextBox135) + ValA(TextBox147)
End Sub
Private Sub TextBox160_Enter()
TextBox160 = ValA(TextBox5) + ValA(TextBox28) + ValA(TextBox40) + ValA(TextBox52) + ValA(TextBox64) + ValA(TextBox76) + ValA(TextBox88) + ValA(TextBox100) + ValA(TextBox112) + ValA(TextBox124) + ValA(TextBox136) + ValA(TextBox148)
End Sub
Private Sub TextBox161_Enter()
TextBox161 = ValA(TextBox6) + ValA(TextBox29) + ValA(TextBox41) + ValA(TextBox53) + ValA(TextBox65) + ValA(TextBox77) + ValA(TextBox89) + ValA(TextBox101) + ValA(TextBox113) + ValA(TextBox125) + ValA(TextBox137) + ValA(TextBox149)
End Sub
Private Sub TextBox162_Enter()
TextBox162 = ValA(TextBox7) + ValA(TextBox30) + ValA(TextBox42) + ValA(TextBox54) + ValA(TextBox66) + ValA(TextBox78) + ValA(TextBox90) + ValA(TextBox102) + ValA(TextBox114) + ValA(TextBox126) + ValA(TextBox138) + ValA(TextBox150)
End Sub
Private Sub TextBox163_Enter()
TextBox163 = ValA(TextBox8) + ValA(TextBox31) + ValA(TextBox43) + ValA(TextBox55) + ValA(TextBox67) + ValA(TextBox79) + ValA(TextBox91) + ValA(TextBox103) + ValA(TextBox115) + ValA(TextBox127) + ValA(TextBox139) + ValA(TextBox151)
End Sub
Private Sub TextBox164_Enter()
TextBox164 = ValA(TextBox9) + ValA(TextBox32) + ValA(TextBox44) + ValA(TextBox56) + ValA(TextBox68) + ValA(TextBox80) + ValA(TextBox92) + ValA(TextBox104) + ValA(TextBox116) + ValA(TextBox128) + ValA(TextBox140) + ValA(TextBox152)
End Sub
Private Sub TextBox165_Enter()
TextBox165 = ValA(TextBox10) + ValA(TextBox33) + ValA(TextBox45) + ValA(TextBox57) + ValA(TextBox69) + ValA(TextBox81) + ValA(TextBox93) + ValA(TextBox105) + ValA(TextBox117) + ValA(TextBox129) + ValA(TextBox141) + ValA(TextBox153)
End Sub
Private Sub TextBox166_Enter()
TextBox166 = ValA(TextBox11) + ValA(TextBox34) + ValA(TextBox46) + ValA(TextBox58) + ValA(TextBox70) + ValA(TextBox82) + ValA(TextBox94) + ValA(TextBox106) + ValA(TextBox118) + ValA(TextBox130) + ValA(TextBox142) + ValA(TextBox154)
End Sub
Private Sub TextBox167_Enter()
TextBox167 = ValA(TextBox12) + ValA(TextBox35) + ValA(TextBox47) + ValA(TextBox59) + ValA(TextBox71) + ValA(TextBox83) + ValA(TextBox95) + ValA(TextBox107) + ValA(TextBox119) + ValA(TextBox131) + ValA(TextBox143) + ValA(TextBox155)
End Sub

tam 12 tane ıvır zıvır toplayan ama textbox ları sıra takip etmeyen böyle formüllerim var.ben şimdi sizin o kodları ki-ClassModülle yapılmış-nasıl uydurayım da yapayım..
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If IsNumeric(txt) = False Then
SendKeys "{bs}"
Exit Sub
End If
For a = 1 To 6
deg = UserForm1.Controls("textbox" & a)
If UserForm1.Controls("textbox" & a) = "" Then deg = 0
topla = deg * 1 + topla
Next
UserForm1.TextBox7 = Format(topla, "0.00")
End Sub
bu da sizin çözüm yolu...yaaaaaaaaaaa.
bizim için ne kadar da zor yapmak,görüyorsunuz değilmi...
bir örnek yaparsanız,11 tanecik de biz yaparız efemmmm.
unutmadan...yukarıdaki formüle fonksiyon yazılabilirmi acaba.yani kısaltmak mümkün mü..yoksa ben Textbox ları sileyim sıraya mı koyayım...
saygılar...

teknadir · 7 Kasım 2011

halit3' Alıntı:
örnek olarak

textbox1 den textbox6 ya kadar olanları textbox7 topluyor

Bu mesajdaki dosyayı indirdim. Ancak ClasModule deki kodları kendi çalışmama taşıyamadım.

TextBox toplamda string olarak görüyor?

stratejist

Orion1

Uzman

kamil09

stratejist

kamil09

stratejist

Orion1

Uzman

kamil09

kamil09

halit3

Uzman

kamil09

halit3

Uzman

kamil09

Levent Menteşoğlu

Administrator

kamil09

Ekli dosyalar

halit3

Uzman

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

Altay3555

teknadir