Định dạng số theo nghìn, triệu, tỷ.... trên form

[HopBVB]

Mình từ mày mò làm cái form để nhập dữ liệu, các phần khác cũng đã tạm ổn nhưng phần định dạng số mình không biết cách làm, các pro giúp mình nhé.
Yêu cầu: khi gõ số vào các trường, dãy số tự động điền thêm dấu . hoặc , vào. Hiện tại mình chỉ gõ được dãy số như 100000 (không có dấu thập phân), mình muốn khi gõ vào sẽ là 100.000. File đính kèm có tên DailyWork
Nhân tiện, rất mong các pro giúp làm cáo fỏm nhập liệu để lưu dữ liệu theo ngày của file đính kèm có tên DailyJob1.
Chi tiết xin xem file đính kèm.
Cảm ơn các bạn rất nhiều.

 

[solomon2211]

Yêu cầu: khi gõ số vào các trường, dãy số tự động điền thêm dấu . hoặc , vào. Hiện tại mình chỉ gõ được dãy số như 100000 (không có dấu thập phân), mình muốn khi gõ vào sẽ là 100.000.

Bạn thử thêm đoạn code này vào xem sao.

Private Sub txtOTODate_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
txtOTODate.Value = Format(txtOTODate, "#,##0")
End Sub

Private Sub txtOTONGAYNOPPHI_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
txtOTONGAYNOPPHI.Value = Format(txtOTONGAYNOPPHI, "#,##0")
End Sub

Private Sub txtOTOPHIBH_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
txtOTOPHIBH.Value = Format(txtOTOPHIBH, "#,##0")
End Sub

 

[HopBVB]

Bạn thử thêm đoạn code này vào xem sao.

Bạn ơi, phần CREDIT, INSURANCE, CARD tôi không làm được. Giúp tôi sớm nhé