Phép cộng trong VBA

[Hoàng Đàm]

Nhờ mọi người giúp đỡ!
Mình có 3 ô Textbox đặt tên là T1, T1, TONG trong 1 Toolbox. T1, T2 là tên của Textbox, trùng tên với 2 ô Label nhưng không phải 2 ô Label nha mọi người. Mình muốn khi T1, T2 có giá trị điền vào thì ô TONG tự động nhảy TONG = T1 + T2.
Mọi người cho mình xin Code với ạ. Đang thất nghiệp ở nhà tránh dịch mình tự học thêm VBA!
Mình không biết chèn hình ảnh vào đây để mọi người xem!
Cảm ơn mọi người!

 

[Deleted member 1392]

Cho xin cái file demo bạn ơi...

 

[Hoàng Đàm]

Bạn cần đăng nhập để thấy link

 

[Euler]

Bạn cần đăng nhập để thấy hình ảnh

Private Sub CommandButton1_Click()
    Dim l1  As Long, l2 As Long, l3 As Long
    l1 = Val(TextBox1.Value)
    l2 = Val(TextBox2.Value)
    l3 = l2 + l1
   TextBox3.Value = l3
End Sub

Văn bản trong texbox là string (chuỗi ký tự), do đó phải chuyển thành số (hàm val), rồi mới thực hiện cộng được.

 

[Deleted member 1392]

Cho đoạn code sau đây vào Userform là dc bạn

Private Sub T1_Change()
    On Error Resume Next
    HTOG.Value = val(T1.Value) + val(T2.Value)
End Sub

Private Sub T2_Change()
    On Error Resume Next
    HTOG.Value = val(T1.Value) + val(T2.Value)
End Sub

 

[Hoàng Đàm]

Bạn cần đăng nhập để thấy link

File ở đây nha mọi người

 

[Hoàng Đàm]

Bạn cần đăng nhập để thấy link

mình chưa thử, nhưng cũng rất cảm ơn.

 

[Hoàng Đàm]

Bạn cần đăng nhập để thấy link

OK nha bạn,
Cảm ơn rất nhiều

 

[CRV]

@Hoàng Đàm , diễn đàn đã đưa ra

Bạn cần đăng nhập để thấy link

trong đó có mục về "Các qui định về trích dẫn" bạn đọc và tuân thủ nhé.

[9] Các qui định về trích dẫn
[9.1] Không trích dẫn cả bài viết. Chỉ trích dẫn những câu cần thiết.
[9.2] Không trích dẫn hình ảnh của bài viết trước.

 

[Hoàng Đàm]

Cảm ơn CRV SMod đã nhắc nhở!
Đây là kết quả sau bài học đầu tiên, mọi người góp ý thêm:

Bạn cần đăng nhập để thấy link

Các vấn đề còn tồn tại:
1. Phải điền giá trị ô chiều cao tầng trước, điền giá trị ô chiều cao bậc thang sau thì ô số bậc mới chạy ra kết quả. Mình muốn điền giá trị ô nào trước cũng được.
2. Các ô mình tự đánh giá trị như ô chiều cao tầng, số tầng, chiều cao bậc sử dụng dấu chấm "." thay vì dấu phảy "," để phân cách phần thập phân, các ô VBA tự chạy như 2 ô tổng, ô số bậc thang lại dùng dấu phảy. Mình muốn tất cả đều dùng dấu phảy để phân cách phần thập phân.
Rất mong BQT chỉ bảo thêm!
Cảm ơn BQT nhiều!

 

[PTHhn]

Thì cứ để người dùng nhập dấu phẩy thôi. Sau đó code dùng replace chuyển dấu phẩy thành dấu chấm.