TextBoxda noktalı veriyi nasıl virgüllü yaparım(99.9 &g

[bistrobellman]

Private Sub CommandButton1_Click()
Dim birim As Double
Dim en, uzun As Integer

en = 1 * Mid(ComboBox9, 1, 3)
uzun = 1 * Mid(ComboBox9, 9, 13)
If en = 100 Then birim = 1 * 78.666
If en = 110 Then birim = 1 * 94.349
If en = 120 Then birim = 1 * 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000
UserForm2.show
End Sub

Ã?RNEK:

Programa göre:
Ã?rneğin ComboBox9 daki veri : 120X120X12000, TextBox20(adet) 15 OLSUN farzedelim.
en=120
uzun =12000 mm
birim = 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000>(UZUNLUÐU metreye çevirmek için)
=(1 * 113.166* 12000* 15) / 1000
= 20.370 ton çıkıyor HALBUKİ 20,370 (20 TON 370 KG) ÇIKMASI GEREK

NOKTALI ÇIKMAMASINI SAYININ VİRGÜLLÜ ÇIKMASINI NASIL SAÐLARIZ?

TextBox16_Change() OLAYINA
TextBox16 = Format(TextBox16, "#,##0")
BUNUDA YAZDIM YOKSA 20.369,88 ÇIKIYORDU NORMALDE...TEK NOKTAYI NASIL VİRGÜL YAPARIZ (20.,370)

 

[Exelans]

UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000
x=Left(UserForm2.TextBox16,Len(UserForm2.TextBox16)-4)
y=Right(UserForm2.TextBox16,3)
UserForm2.TextBox16= x & y
UserForm2.show

aklıma gelen ilk çözüm bu

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.

TextBox16 = Replace(TextBox16, ".", ",")

 

[bistrobellman]

textBox i göstermelik mi virgüllü yapacağız yoksa

Excel Sayfasında ActiveCell.offset(0,9).value = TextBox olduğu zaman virgüllü hesap olacak değil mi orda da?

 

[Serpily]

=(1 * 113.166* 12000* 15) / 1000

bu formülün sonucu 20.360,88 çıkıyor zaten. Eğer siz sonucun 20,360 çıkacağına eminseniz formulde bir hata var demektir. O zaman siz de 1000 e değil 1.000.000'a bölün bence.

uzun = 1 * Mid(ComboBox9, 9, 13)

bir de bu formulde 13 yerine 5 mi olacaktı acaba?

 

[bistrobellman]

TextBox16_Change() OLAYINA
TextBox16 = Format(TextBox16, "#,##0")
BO KODLA zaten yuvarlattırıyorum orada sorunum yok

sonuç : 20.360 çıkıyor 20,360 cıkması lazım halbuki

Mid formullerinde de sorun yok..problem nokta yerine virgülü nasıl çıkartırım idi

 

[Serpily]

Sayın bistrobellman,

bu formül bence kg olarak hesaplıyor. Ama siz ton istiyorsunuz. Bu yüzden bir kere daha 1000'e bölmeniz gerekiyor. Bence.

Mid formulünde de 9,13 diyorsunuz ya 9. karakterden başlayarak 13 tane karakter alır. Eğer böyle olması gerektiğinden eminseniz sorun yok.

 

[bistrobellman]

bir daha 1000e bölünce bana rakamı virgüllü verecek mi peki? :8)

 

[bistrobellman]

Serpil hanım cok teşekkürler.yönteminiz başarılı oldu programımda...
Sağolun

 

[Serpily]

Memnun oldum.