Nhờ anh em diễn đàn giải thích và sửa lỗi giúp đoạn code VBA (1 người xem)

[sonvt_vnpt]

Mình định dang số theo kiểu phân cách hàng trăm, nghìn, triệu ... = dấu "," (vd: 100.000; 1000.000...) trên textbox bằng code như sau:
Private Sub TxtA1_Change()
TxtA1.Value = Format(TxtA1.Value, " #,##0")
End Sub

Không hiểu sao với code trên thì nó chỉ thực hiện được với hàng triệu trở lên; (Ví dụ: mình nhập: 1000000 thì trên textbox hiển thị : 1000.000.... và nhập xuống cel A1 giá trị bằng 1 triệu => đúng với giá trị cần nhập). Nhưng khi mình nhập giá trị dưới giá trị 1 triệu; (ví dụ : Mình nhập 100000, trên textbox lúc chưa bấm lưu thì hiển thị theo định dạng 100.000 nhưng khi lưu xuống cel nó bỏ mất 3 số không cuối, nghĩa là nó chỉ nhập xuống cel giá trị là 100. hoặc mình nhập 800.000, 900.000,... thì khi nhập xuống cel nó chị ghi 800 và 900 =>sai với giá trị mình cần nhập). Còn khi mình bỏ định dạng số theo đoạn code trên thì nhập được bình thường nhưng số hơi khó nhìn, dễ nhập nhầm nhất là khi nhập số tiền lớn. Anh e diễn đàn ai biết hoặc tường bị lỗi này đã khắc phục được vui lòng bớt chút thời gian chỉ bảo giúp. Xin chân thành cám ơn !