Nhập dữ liệu trên textbox (1 người xem)

[chisinhvnn]

Máy mình định dạng thập phân dấu ",". phân cách hàng nghin "." (trong control panel)
Khi nhập trên textbox bàn phím số (ví dụ số 1,08) textbox hiện "1.08", ghi vào sheet "1,08"
Khi mình lấy dữ liệu từ sheet lên textbox, textbox hiện 1,08. Ghi lại xuống sheet là "1"
Nhờ GPE viết code xử lý để dữ liệu khi mình lấy lên và ghi xuống sheet vẫn là 1,08

 

[chisinhvnn]

Bạn thử thay toàn bộ code của Userform1 bằng đoạn này xem sao.

Private DecimalSep As String
Private Sub UserForm_Initialize()
   DecimalSep = Mid(CStr(1 / 2), 2, 1)
End Sub
Private Sub CommandButton1_Click()
    Sheet1.Range("A2") = CDbl(TextBox1.Value)
End Sub
Private Sub CommandButton2_Click()
    TextBox1.Value = Sheet1.Range("A2").Value
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 110 Then KeyCode = AscW(DecimalSep) + 144
End Sub

Em tính inbox bác để nhờ bác giúp, bac giúp rồi. Em cảm ơn