yüzde formatı

[Fuat Şirin]

arkadaşlar,

Private Sub TextBox13_change()
TextBox13 = (Val(TextBox5) - Val(TextBox10)) / Val(TextBox5)
End Sub

yüzde farkını bulmak için bu kodları kullanıyorum
textbox13 te sonuç olarak 12,25% formatında
sonuç vermesini istiyorum
yardımcu olursanız çok makbule geçer.....

 

[Orion1]

Merhaba.
Kodu aşağıdaki şekilde deneyiniz.

TextBox13 = Format((Val(TextBox5) - Val(TextBox10)) / Val(TextBox5), "#,##0.00 %")

 

[Fuat Şirin]

çok teşekkür

tam istediğim gibi
harikasınız..
çok thank you
birde başka bişey daha var gene konuyla alakalı
kilo olarak girdiğim bir textbox a
örneğin
300.5 olarak giriyorum
o excel sayfasında
300,500 olarak gözüküyor bu doğru hücre formatını bu şekilde ayarladığım için istediğimde bu zaten
ama değiştirmek için textbox A ALDIĞIMDA
sayı aynen şöle oluyor
300,5 ve bunu düzelt dediğimde sayı olarak görmüyor
yardımcı olursanız çok makbule geçer

 

[Orion1]

Merhaba.
Aşaığıdaki kodu kendinize göre uyarlayınız.

TextBox1.Value = Format(Range("A1").Value, "#,##0.000")

 

[Fuat Şirin]

tşk

hocam burda 2 şeyi çıkaramadım
1 kodu nereye yazıcam
Yani
TextBox1_change
altına mı
Yoksa Userform _Initializ mi
bir de bu (A1) i neye göre yorumlamam lazım
tşk

 

[Orion1]

Merhaba.
1.soru
Dağa önceki mesajınızda Textbox'a veriyi aldığınızı söylediğiniz yere yazmanız gerekiyor.Mesela commandbutton ile veriyi textbox!a alıyorsanız Commandbuton!a Userform initialize ile alıyorsanız oraya.
2.soru
Siz textbox!a veriyi nerden alıyorsanız onu yazacaksınız.Belki de döngü ile alıyorsunuzdur.

 

[Fuat Şirin]

textbox formatı olarak

bunu textbox formatı olarak yapamaz mıyız
yani diyelim ki textbox1
formatı
bilgi girişi içinde olsa
aktarımı içinde olsa
aynı olsa olmazmı
yani text i biçimlendiremezmiyiz
çünkü öteki çok karıştırdı kfamı

 

[Orion1]

Merhaba.
Başka bir yolu varmıdır bilemiyorum.
Benim size söyleyeceğm önceki mesajımda olduğu gibidir.
İyi çalışmalar.

 

[Fuat Şirin]

çok tşk ederim

hocam bu ilk yazdığınız kod
Private Sub TextBox15_Change()
TextBox15 = Format((Val(TextBox6) - Val(TextBox12)) / Val(TextBox6), "#,##0.00 %")
End Sub
şeklinde girdim hesaplama doğru giriş yaptıktan sonra ilgili satırda hata veriyor
bu neden olabilir...sarı renk oluyor

 

[Orion1]

Textbox12 ye veya textbox6ya sayısal bir değer girmiyorsunuzdur.veya boş bırakıyorsunuzdur.

 

[haso_excel]

Merhaba arkadaşlar,

Ekdeki dosyada bir user formum var. Sadece Net ucret text boxına yazdığım rakamı g17 ye göndermeye çalışyorum. Diğer texboxlara da hücrelerden veri alıyorum. Bazen doğru, bazende yanlış gösteriyor. 3,750 ile 3720 rakamlarını denerseniz ne demek istediğimi anlayacaksınız. Bu sorunu nasıl çözebilirim ?
İkinci bir soru
Formun üzerinde Oran diye OptionButton var. Butona bastığınızda iki textbox aktif oluyor ve o textboxlara veri girebiliyorsunuz (format % olacak) bu konudada yardımcı olursanız çok makbule gececek.