Arkadaşlar öncelikle kolay gelsin bir tabloya userform kullanarak veri girişi yapıyorum fakat textbox ta hesaplama yaptıktan sonra yuvarlatamadım
TextBox7 ve TextBox8 e lle say girilecek TextBox7= 90 TextBox8= 0.083084 sayısını yazıyorum bu sayıları TextBox9 da biribiri ile çarptırıyorum sonuç TextBox9=7,47756 cıkıyor ben bunu degeri TextBox9 a 7,48 yazmasını istiyorum ( yani 7,47756 sayısının soldan virgülden sonra 3. basamağı 5,6,7,8,9 ise virgülden sonra 2. sayı bir yukarı yuvarlamalı 1,2,3,
4 ise bir aşagı ya yuvarlamalı(( yani sayının virgülden sonrası soldan iki sayı aynı kalmalı)) yani 7.47756 ise= 7.48 e 7.47356 ise 7,47 olarak kalmalı ayrıca TextBox9 da virgülden sonra iki rakam cıkmalı )
aynı yuvarlamalar aşagıdakı formüller bozulmadan TextBox9 TextBox10 TextBox11 TextBox3 deki degerler içinde geçerli olmalı. umarım anlatabilmişimdir.
işte textbok butonundakı formulum
Private Sub CommandButton2_Click()
TextBox9 = Val(TextBox7) * Val(TextBox8)
TextBox10 = Val(TextBox9) * 1.5
TextBox11 = Val(TextBox10)
TextBox3 = Val(TextBox10)
yardımcı olursanız sevinirim saygılarımla ALLAH a emanet olunuz.
TextBox7 ve TextBox8 e lle say girilecek TextBox7= 90 TextBox8= 0.083084 sayısını yazıyorum bu sayıları TextBox9 da biribiri ile çarptırıyorum sonuç TextBox9=7,47756 cıkıyor ben bunu degeri TextBox9 a 7,48 yazmasını istiyorum ( yani 7,47756 sayısının soldan virgülden sonra 3. basamağı 5,6,7,8,9 ise virgülden sonra 2. sayı bir yukarı yuvarlamalı 1,2,3,
4 ise bir aşagı ya yuvarlamalı(( yani sayının virgülden sonrası soldan iki sayı aynı kalmalı)) yani 7.47756 ise= 7.48 e 7.47356 ise 7,47 olarak kalmalı ayrıca TextBox9 da virgülden sonra iki rakam cıkmalı )
aynı yuvarlamalar aşagıdakı formüller bozulmadan TextBox9 TextBox10 TextBox11 TextBox3 deki degerler içinde geçerli olmalı. umarım anlatabilmişimdir.
işte textbok butonundakı formulum
Private Sub CommandButton2_Click()
TextBox9 = Val(TextBox7) * Val(TextBox8)
TextBox10 = Val(TextBox9) * 1.5
TextBox11 = Val(TextBox10)
TextBox3 = Val(TextBox10)
yardımcı olursanız sevinirim saygılarımla ALLAH a emanet olunuz.
