تفضل اخي الكريم
Private Sub CommandButton1_Click()
With Sheet1.Range("a1")
.Value = Me.TextBox1.Value
.NumberFormat = "0.00"
TextBox1.Text = Format(TextBox1, "0.00")
End With
End Sub
واليك ملف كمثال
كود لترحيل قي من التكست بوكس الى الخلية مع التنسيق المطلوب.rar