textboxt'a formatlanan sayı hücrede aynı formatta gözük

[Orion1]

Mrb.

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     TextBox7 = Format(TextBox7, "###,##0.000")
         
End Sub

-------------------------------------------------------

Private Sub CommandButton1_Click()

    Range("A1") = TextBox7

End Sub

_______________________________________________________

Yukarıdaki kodlarda, Textbox7'ye yazdığım sayıyı A1 hücresine
yazdırıyorum.Formatladığıma göre ondalık hanesinde 3 adet sayı gözükmesi gerekiyor.
Fakat A1 hücresinde Binayırıcısı olarak gözüküyor.
Ã?rnek: TextBox7'ye 25,555 yazdığımda A1 hücresinde 25.555 gözüküyor.
Teşekkür ederim.
Kolay gelsin.

 

[Levent Menteşoğlu]

Textbox a bir format tanımlamayın ve command butona aşağıdaki kodu yazarak deneyin.
[vb:1:95956f16ea]Private Sub CommandButton1_Click()
a = TextBox7.Value * 1000
[a1] = a / 1000
[a1].NumberFormat = "General"
End Sub
[/vb:1:95956f16ea]

 

[Orion1]

Mrb.
Verdiğiniz yanıt için teşekkür ederim.
Þimdi Desimal noktayı(virgülü) koyuyor.
Ancak binlik ayıracı koymuyor.Teşekkür ederim.
Kolay gelsin.

 

[Levent Menteşoğlu]

"General" yazın satırı aşağıdaki gibi değiştirerek deneyin.

[vb:1:932b7032b8][a1].NumberFormat ="#,##0.000"[/vb:1:932b7032b8]