Format cho TexBox theo ("#,###") (1 người xem)

[Duong gia]

Chào các bác, các bác cho hỏi khi ta Format cho các TexBox Số lượng, Đơn giá với định dạng ("#.###") và sau đó ta thay đổi con số một trong hai texbox đó thì nó vẫn ở định dạng #.### thì phải làm thế nào nhỉ. Mong các bác giúp đỡ. Để biết chi tiết hơn mong các bác mở file đính kèm. Thanks

 

[yeudoi]

Bạn dùng sự kiện change là được

Private Sub XSlg_Change()
Me.XSlg = Format(XSlg, "#,###")
End Sub

 

[hoang_B]

Bạn thử lại với bộ code này xem!

Private Sub CommandButton1_Click()
    Unload Me
End Sub
 
Private Sub XSlg_AfterUpdate()
    Me.XSlg = Format(XSlg.Value, "#,##")
End Sub
 
Private Sub XDgia_AfterUpdate()
    Me.XDgia = Format(XDgia.Value, "#,###")
End Sub
 
Private Sub XTtien_AfterUpdate()
    Me.XTtien = Format(XTtien.Value, "#,###")
End Sub

 

[sealand]

Bạn đặt vào KeyUp có lý hơn vì khi nhập số lớn ta kiểm soát được ta nhập đến đâu (Nó hiển thị ngay các số đã nhập theo định dạng)

 

[Duong gia]

Bạn thử lại với bộ code này xem!

 Private Sub CommandButton1_Click()     Unload Me End Sub   Private Sub XSlg_AfterUpdate()     Me.XSlg = Format(XSlg.Value, "#,##") End Sub   Private Sub XDgia_AfterUpdate()     Me.XDgia = Format(XDgia.Value, "#,###") End Sub   Private Sub XTtien_AfterUpdate()     Me.XTtien = Format(XTtien.Value, "#,###") End Sub

Cám ơn bác, vẫn không giải quyết được gì. Hơn nữa những code trên là của mình, nó đã có sẵn trong file của mình rồi, bạn đã cắt bỏ bớt nhưng vẫn không giải đáp được yêu cầu của mình. Thanks File đính kèm của mình do không linh động khi thay đổi số lượng hoặc đơn giá nên mình mới nhờ các bác giúp đỡ. Dù sao cũng cám ơn bác đã quan tâm.

 

[Duong gia]

Bạn đặt vào KeyUp có lý hơn vì khi nhập số lớn ta kiểm soát được ta nhập đến đâu (Nó hiển thị ngay các số đã nhập theo định dạng)

Cám ơn bác. Bác nói chi tiết hơn được không. Thanks

 

[Duong gia]

Bạn dùng sự kiện change là được

Không được bác ơi. Bác làm ơn mở file đính kèm vào thử giúp mình với. Thanks

 

[ThuNghi]

Duong_gia nghiên cứu các bài theo link sau:
http://www.giaiphapexcel.com/forum/showthread.php?t=4664

 

[Duong gia]

Duong_gia nghiên cứu các bài theo link sau: http://www.giaiphapexcel.com/forum/showthread.php?t=4664

Không được bác ThuNghi ơi. Vì khi áp dụng: Số lượng x Đơn giá thành tiền không đúng, nó không hiểu các số không sau dấu phân cách. Bác ra tay giúp em với. Thanks

 

[ptm0412]

Thử sửa như vầy xem:

Private Sub XDgia_change()
        Me.XTtien.Value = (Me.XSlg.Value) * (Me.XDgia.Value)
        Call TbFormat
End Sub

Private Sub XSlg_change()
      Me.XTtien.Value = (Me.XSlg.Value) * (Me.XDgia.Value)
    Call TbFormat
End Sub

Private Sub TbFormat()
   Me.XTtien = Format(XTtien, "#,###")
    Me.XSlg = Format(XSlg, "#,###")
    Me.XDgia = Format(XDgia, "#,###")
End Sub

Bỏ hàm val() vì đã có phép nhân. System của Duong Gia chắc là dấu phẩy hàng thập phân, nên val() bị mất các số từ sau dấu phẩy thứ 2, không phải mât chỉ các số không và còn bị chia cho 1000 nữa.

 

[Duong gia]

Bạn dùng sự kiện change là được

Thật tuyệt. Cám ơn bác Yeudoi rất nhiều.