Xin cách nhân trong TextBox

[thanhtam348]

Chào các bạn, xin cho tôi biết, phép nhân trong TextBox như thế nào?
VD TextBox1 nhân TextBox2 và đáp số ở TextBox3
Xin cám ơn anh chị và các bạn
Thân mến.

 

[Ếch Xanh]

Chào các bạn, xin cho tôi biết, phép nhân trong TextBox như thế nào?
VD TextBox1 nhân TextBox2 và đáp số ở TextBox3
Xin cám ơn anh chị và các bạn
Thân mến.

TextBox3 = Val(TextBox1) * Val(TextBox2)

Vậy thôi.

 

[thanhtam348]

Cám ơn Learning_Excel !
Đơn giản vậy mà không biết thì vẫn mù tịt.
Thân.

 

[thanhtam348]

TextBox3 = Val(TextBox1) * Val(TextBox2)

Vậy thôi.

...Nhưng sao tôi gỏ giá trị vào TextBox nó không cho kết quả, tôi gởi thủ tục lên nhờ bạn kiểm dùm xem tôi có đúng chưa.

Private Sub TextBox12_Change()
TextBox12 = Val(TextBox9) * Val(TextBox10)
End Sub

 

[Hai Lúa Miền Tây]

...Nhưng sao tôi gỏ giá trị vào TextBox nó không cho kết quả, tôi gởi thủ tục lên nhờ bạn kiểm dùm xem tôi có đúng chưa.

Private Sub [COLOR=red]TextBox12[/COLOR]_Change()
[COLOR=red]TextBox12[/COLOR] = Val(TextBox9) * Val(TextBox10)
End Sub

Rất mâu thẩn bạn vừa gõ TextBox 12 vừa bắt nó phải nhân kết quả

 

[thanhtam348]

Vậy làm sao để khi gỏ vào giá trị cho 2 TextBox thì sẽ có kết quả ở TextBox12 ?

 

[Hai Lúa Miền Tây]

Vậy làm sao để khi gỏ vào giá trị cho 2 TextBox thì sẽ có kết quả ở TextBox12 ?

[COLOR=black]Private Sub [/COLOR][COLOR=black]TextBox9_Change()
[/COLOR][COLOR=black]TextBox12 = Val(TextBox9) * Val(TextBox10)
End Sub[/COLOR]

[COLOR=black]Private Sub [/COLOR][COLOR=black]TextBox10_Change()
[/COLOR][COLOR=black]TextBox12 = Val(TextBox9) * Val(TextBox10)
End Sub[/COLOR]

 

[thanhtam348]

Tôi lại vướng vấn đề khác là: tôi format cho TextBox9 theo dạng số như vầy: TextBox9.Value = Format(TextBox9.Value, "#,##0") thì kết quả đáp số ở TextBox12 lại không đúng, các bạn chỉ dùm!

 

[Hai Lúa Miền Tây]

Tôi lại vướng vấn đề khác là: tôi format cho TextBox9 theo dạng số như vầy: TextBox9.Value = Format(TextBox9.Value, "#,##0") thì kết quả đáp số ở TextBox12 lại không đúng, các bạn chỉ dùm!

Bạn cho ví dụ thử xem cái không đúng đó như thế nào, có thể định dạng máy của bạn không đúng với định dạng trên chăng?

 

[thanhtam348]

Tôi gởi hình lên nhờ bạn xem dùm tôi nha!
Theo hình 1 là số liệu mặc định ( chưa sửa)
Còn hình 2 tôi đã sửa trong ô số lượng, thì đáp số nhân của nó không đúng.

 

[sealand]

Do textbox đã Format nên hàm Val chỉ lấy phần trước dấu phảy. Có 2 cách d.c

1/ TextBox3=Val(format(textbox1,"0") *Val(format(textbox2,"0")
2/ TextBox3=(textbox1*1) *(textbox2*1)

Nếu đúng dấu phân cách chuẩn của Control Panel thì vẫn có thể dùng

TextBox3=textbox1*textbox2

 

[thanhtam348]

Do textbox đã Format nên hàm Val chỉ lấy phần trước dấu phảy. Có 2 cách d.c

1/ TextBox3=Val(format(textbox1,"0") *Val(format(textbox2,"0")
2/ TextBox3=(textbox1*1) *(textbox2*1)

Nếu đúng dấu phân cách chuẩn của Control Panel thì vẫn có thể dùng

TextBox3=textbox1*textbox2

Không được anh sealand ơi!
Cách 1 thì báo lổi như nhình 1, cách 2 và 3 báo lổi như hình 2.
Trong Control Panel của em định dàng là dấu ","

 

[sealand]

Trong viết Code phải lưu ý 2 trường hơp 0 và Null
-Nếu a*0=0
-Nếu a*Null=Lỗi
Bạn bị dính trường hợp 2. Khi mở fỏm phải gán 3 Box=0

Private Sub UserForm_Initialize()
TextBox1 = 0
TextBox2 = 0
TextBox3 = 0
End Sub

Bạn xem file ví dụ