textbox formatı

[by_IsTaNBuL]

arkadaşlar hücrelerdeki sayıları hücrede yazıldığı gibi gösterebilecek bir format arıyorum.
yani hücrede 0,925 yazıyorsa 0,925 - 3,20 yazıyorsa 3,20 - 1.234,34 yazıyorsa 1.234,34 olarak göstersin.

bir diğer acil durum ise . hücrede şu sayı varsa 0,001 ile 0,00000000000001 arasında bir sayı varsa bu sayıları göstermesin istiyorum.
yardımcı olursanız sevinirim.
şimdiden tesekkur ederım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Verinizin A1 hücresinde olduğu varsayılmıştır.

Option Explicit
 
Private Sub CommandButton1_Click()
    If Range("A1") >= 0.00000000000001 And Range("A1") <= 0.001 Then
        TextBox1 = ""
    Else
        TextBox1 = Trim(Range("A1").Text)
    End If
End Sub