Textbox formatı nasıl olmalı

[mühendis^^]

Ã?ncelikle bu siteyi hazırlayan ve emeği geçen herkese sonsuz teşekkür ederim siyeti 2-3 aydır üyeyim ve sıkı takipçisiyim excel ve vba ile makroyla ilgili çok faydalı bilgiler edindim ve sitedeki dostane ve samimi soru -cavap hakikaten bu siteyi farklı kılıyor. VBA ile makro yazmaya yeni başladım kendime göre hakediş programı yapmaya çalışıyorum ve takıldığım bir noktada siz üstadlardan yardım almak istedim cevap verirseniz sevinirim.Size göre zor olmayan benim çözemediyim)))

userform üzerinde 3 tane textbox açtım bunlardan 1. sine hakediş yüzdesi yani %15 diyelim ikinci textboxa 200000000000 gibi parasal değer girecem ve 1. ile 2. textbox daki değerleri çarptırıp 3. texbox a yazsın istiyorum sorun şu
2. texbox a parasal değer girmek için format olarak"###,###" giriyorum parayı200.000.000.000 yazsın diye ama 1. texboxla çarpım sonucunu 30 veriyor 30.000.000 olması gerekirken 2. ve 3. textbox formatları ne olmalı

affınıza sığınarak 2. sorum texbox a ytl formatı olarak ne yazılmalı 25.126,45 gibi yazdıramıyorum önceki ilk sorum tl için idi bu sorum ytl ve 1. textbox %x 2. textbox ytl olarak parasal değer ve 3. textbox çarpım sonucu için formul nasıl olmalı.teşekkür ederim.

 

[Levent Menteşoğlu]

Merhaba

Ã?ncelikle güzel sözleriniz için teşekkür ederiz. Sorularınıza gelince

birinci sorunuz için,textbox2 ve 3 için
[vb:1:c94a72b7e9]TextBox2 = Format(TextBox2, "#,##0")[/vb:1:c94a72b7e9]
ikinci sorunuz içinde aşağıdaki formatı deneyiniz.
[vb:1:c94a72b7e9]TextBox2 = Format(TextBox2, "#,##0.00")[/vb:1:c94a72b7e9]

NOT:Sorularınızı lütfen konu ile alakalı başlıklar altında sorunuz.
sorunuz tarafımdan makro başlığı altına taşınmıştır.

 

[mühendis^^]

userform üzerinde 3 tane textbox açtım bunlardan 1. sine hakediş yüzdesi yani %15 diyelim ikinci textboxa 200000000000 gibi parasal değer girecem ve 1. ile 2. textbox daki değerleri çarptırıp 3. texbox a yazsın istiyorum sorun şu
2. texbox a parasal değer girmek için format olarak"###,###" giriyorum parayı200.000.000.000 yazsın diye ama 1. texboxla çarpım sonucunu 30 veriyor 30.000.000 olması gerekirken 2. ve 3. textbox formatları ne olmalı

birinci sorunuz için,textbox2 ve 3 için

visual basic kodu:

TextBox2 = Format(TextBox2, "#,##0")

Dediğiniz şekilde yazdım ama 1. textbox %15 2. textbox 200.000.000.000 şeklinde yazıyor ama3. textbox açarpım olarak 30 yazıyor sadece 30.000.000.000 yazmıyor

bu arada formulümü size tazayım belki kod kısmını yanlış yazmış olabilirim şöyle
dim r as byte(15,59 de olabilir diye
dim h as Integer
dim v as Integer
r=val(textbox1.text)
h=val(textbox2.text)
v=(r*h)/100
textbox3.text=Str$(v)
kodu incelermisiniz doğrumu acaba sorun koddamı textbox formatındamı

 

[Levent Menteşoğlu]

Bu kodları hangi nesneye yazdınız. Ã?rneğin bir command butona mı?

 

[mühendis^^]

evet
private sub commandbutton1_click()
gibi

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Textbox2 için
[vb:1:eba50cd6cc]Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, "#,##0")
End Sub
[/vb:1:eba50cd6cc]
commanbutton için
[vb:1:eba50cd6cc]Private Sub CommandButton1_Click()
TextBox3 = Format(TextBox1.Value * TextBox2.Value / 100, "#,##0")
End Sub[/vb:1:eba50cd6cc]

 

[mühendis^^]

üstadım teşekkür ederim ilgin ve yardımların için herşey gönlünce olsun
işte bu diyorum))))) benim sitem sağolasın

 

[Levent Menteşoğlu]

Rica ederim,yardımcı olabildiğime sevindim.

 

[akgüvercin]

sayın levetm teşekkürler..