Sửa Code để tự động trừ trong UserForm

[khamha]

Nhờ các bạn sửa lại cái Code này để nó tự động trừ khi ta nhập dữ liệu số.
Code:
Private Sub CommandButton2_Click()
TextBox3 = Val(TextBox1) - Val(TextBox2)
TextBox3 = Format(TextBox3, "#,##0.000")
End Sub
Cảm ơn các bạn nhiều.

 

[nghiaphuc]

Nhờ các bạn sửa lại cái Code này để nó tự động trừ khi ta nhập dữ liệu số.
Code:
Private Sub CommandButton2_Click()
TextBox3 = Val(TextBox1) - Val(TextBox2)
TextBox3 = Format(TextBox3, "#,##0.000")
End Sub
Cảm ơn các bạn nhiều.

Bạn đưa 2 câu lệnh này vào trong các Sub TextBox1_Change, TextBox2_Change hoặc TextBox1_AfterUpdate, TextBox2_AfterUpdate là được.
Tuy nhiên, nếu người sử dụng nhập Text vào Texbox1 hoặc Texbox2 thì sao nhỉ? Nói chung là không nên dùng TextBox để nhập số. Bạn nên dùng ScrollBar hoặc SpinButton cho chắc.

 

[sealand]

Ban thêm 2 Code sau

Private Sub TextBox1_Change()
TextBox3 = Format(Format(TextBox1, "0") + Format(TextBox1, "0"), "#,##0")
End Sub
'---------------------------------------------------------------------------
Private Sub TextBox2_Change()
TextBox3 = Format(Format(TextBox1, "0") + Format(TextBox1, "0"), "#,##0")
End Sub

 

[khamha]

Chào bạn,Mình sửa lại như thế này nhưng nó không hoạt động,Bạn xem lại cho mình với.

Private Sub Ctr53_AfterUpdate()
Ctr53 = Val(Ctr11) - Val(Ctr32)
Ctr53 = Format(Ctr53, "#,##0.000")
End Sub

Cảm ơn bạn

 

[nghiaphuc]

Chào bạn,Mình sửa lại như thế này nhưng nó không hoạt động,Bạn xem lại cho mình với.

Private Sub Ctr53_AfterUpdate()
Ctr53 = Val(Ctr11) - Val(Ctr32)
Ctr53 = Format(Ctr53, "#,##0.000")
End Sub

Cảm ơn bạn

Bạn thử dùng cách của bác Sealand xem sao. Nếu không được nữa thì đưa file lên nhé.

P/S: Nhìn kỹ lại code của bạn mới thấy sai: Bạn sửa lại tên sub là Ctr11_AfterUpdate hoặc Ctr32_AfterUpdate mới được chứ.

 

[sealand]

Chào bạn,Mình sửa lại như thế này nhưng nó không hoạt động,Bạn xem lại cho mình với.

Private Sub Ctr53_AfterUpdate()
Ctr53 = Val(Ctr11) - Val(Ctr32)
Ctr53 = Format(Ctr53, "#,##0.000")
End Sub

Cảm ơn bạn

Nó không chạy là đúng vì bạn Update Ctr11 hoặc Ctr32 cơ mà. Bạn lại đặt Code vào Ctr53 thì có sự kiện nào yêu cầu nó chậy đâu
Bạn sửa lại và thêm 1 Code:

1/Sửa:

Private Sub Ctr11_AfterUpdate()
Ctr53 = Val(Ctr11) - Val(Ctr32)
Ctr53 = Format(Ctr53, "#,##0.000")
End Sub

2/Thêm:

Private Sub Ctr32_AfterUpdate()
Ctr53 = Val(Ctr11) - Val(Ctr32)
Ctr53 = Format(Ctr53, "#,##0.000")
End Sub

 

[khamha]

Mình đưa file lên nhờ bạn sửa giúp (Mình sửa lại cái file của bạn sealand) nội dung cần sửa:
ô thuế nộp thực tế = ô tổng thuể - ô trừ thuế
Cảm ơn bạn

 

[khamha]

Chào bạn sealand,không biết tại sao khi dùng Code của bạn thì kết quả nó lại ra không đúng,bạn xem ảnh.

 

[sealand]

Bạn sửa không đúng, mình sửa lại phần tính bạn kiểm tra nha

 

[khamha]

Bạn sửa không đúng, mình sửa lại phần tính bạn kiểm tra nha

Cách của bạn ngắn gọn hơn của mình sửa,cảm ơn bạn nhiều