textboxdaki değerin görünüm farkı???

[udentr2002]

Merhaba arkadaşlar biliyorum bu konu ile forumda baya bir soru var bende inanın çoğunu inceledim daha öncede aynı sorunların benzeri ile karşılaştım ama ne kadar uygulamaya çalıştıysam çözemiyorum.
Forumda ki textboxlara dört işlem yaptırıyorum ve bu değeri bir sayfadaki hücreye atıyorum değer hücrede 7,45714285714286 gibi görünüyor hücre biçimlendirden bu değeri 7,46 gibi gösteriyorum daha sonra ben bu değeri bir forumu açtığımda o forumdaki textboxa çağırıyorum ama bu değer textboxda 7.45714285714286 gibi görünüyor textbox18=format(textbox18,"0.00") kodunu denedim textbox18=format(textbox18,"#,##0.00") kodunuda denedim diğer bildiğim yöntemleride denedim ama bir türlü yapamadım hücrede göründüğü gibi yani 7,46 şeklinde görünebilmesi için ne yapabilirim. Şimdiden ilgilenen tüm hocalarıma teşekkür ederim

 

[Orion1]

Merhaba.
Küçük bir örnek dosya eklermisiniz?

 

[Recep İpek]

Textboxları sayfaya aktarırken aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
[A1] = WorksheetFunction.Round(TextBox18.Value, 2) * 1
End Sub

 

[Levent Menteşoğlu]

Format değiştirerek sadece görünümü değiştirirsiniz, yuvarlanmış şekilde görünmesi için bir yuvarlama fonksiyonu kullanmanız gerekir.

textbox18=worksheetfunction.round(textbox18,2)

Not: Geç kalmışım, artık hızımı kaybediyorum galiba

 

[udentr2002]

hocam

dossyam oldukça büyük bundan dolayı ilgili kodlarımı göndermeye çalışıyorum
textboxdaki değerlere şu kodlarla işlem yaptırıyorum
Set s5 = Sheets("DrVeri")
T1 = CDbl(ad)
T2 = CDbl(TextBox18)
T3 = CDbl(TextBox3)
TextBox18 = Format(T2 - (T1 * (T2 / T3)), "#,##0.00")

s5.[a1] = T1 * (T2 / T3)
T4 = CDbl(TextBox22)
TextBox22 = Format(T4 - (T1 * (T4 / T3)), "#,##0.00")
s5.[a2] = T1 * (T4 / T3)

sayfadan şu kodlar ile çağırıyorum
DrNumune_E.TextBox18 = s5.[a1]
DrNumune_E.TextBox22 = s5.[a2]
belki bi fikir verebilirmi bilmiyorum hocam

 

[Orion1]

Merhaba.
Değişkenleri en üst satırda Dim ile tanıtın.
Sonrada nesnelerden değişkenlere verileriniz alın.
Birde aşğıdaki şekilde deneyin.
DrNumune_E.TextBox18 = format(s5.[a1],"#,##0.00"
DrNumune_E.TextBox22 = format(s5.[a2],"#,##0.00"

 

[udentr2002]

Sezar hocam

Hocam gönderdiğiniz kod işi çözdü
DrNumune_E.TextBox18 = format(s5.[a1],"#,##0.00"

ilgilenen ve cevap veren diğer hocalarımada sonsıoz teşekkür ederim hepinizin emeğine sağlık