Nguyễn Thị Thanh Nhã
Nguyễn Thị Thanh Nhã
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 31 lượt xem

SAI ĐỊNH DẠNG

tại sao ô Price định dạng theo 12,3456

Private Sub TextBox_Price_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
       KeyAscii = 0
       If Not IsNumeric(TextBox_Price.Value) Then
           MsgBox "Invalid price value"
           TextBox_Price.Value = ""
       End If
   Else
       TextBox_Price.Value = Format(CStr(TextBox_Price.Value), "#,##0")
   End If
End Sub

Thảo luận 1 câu trả lời
Lượt xem 31 lượt xem
Vỗ tay vỗ tay
Nguyễn Thị Thanh Nhã 09:04 - Apr 11, 2023

Private Sub TextBox_Price_Change()
   Me.TextBox_Price= Format(Format(TextBox_Price, "0"), "#,##0")
End Sub

Bạn để trong sự kiện change nhé.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông