Mevcut ondalık kadar yazılsın.

[kelkitli]

Selamlar,
3 Adet TextBox var.
1.si birim fiyatı, ondalık kısmı 5 hane.
2.si Adet
3.Sonuç.
İstiyorum ki sonuç rakamın küsuratına göre ondalık olsun. Yani ondalık on hane ise on hane,tam sayıysa iki hane olsun. Tam sayıdan başka ise küsurat kaç hane ise o kadarı yazılsın.

 

[Huseyinkis]

Selamlar,
3 Adet TextBox var.
1.si birim fiyatı, ondalık kısmı 5 hane.
2.si Adet
3.Sonuç.
İstiyorum ki sonuç rakamın küsuratına göre ondalık olsun. Yani ondalık on hane ise on hane,tam sayıysa iki hane olsun. Tam sayıdan başka ise küsurat kaç hane ise o kadarı yazılsın.

ekteki gibi bir formul sanırım işinizi görür.

dgr = Textbox1 * textbox2
If dgr - Round(dgr, 0) > 0 Then
Textbox3.Value = dgr
Else
Textbox3.Value = Format(dgr, "#,###.00")
End If

 

[kelkitli]

Selamlar,
Hüseyin Bey teşekkür ederim. Bir de şöyle bir problem var: TextBox3 teki değeri A1 hücresine yazdıralım. Ama A1*1 yapıp gönderdiğimiz ondalık durumuna göre hücreyi şekillendirelim.