Giúp em vòng lặp tự tính toán dữ liệu từ inputbox với ạ

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

Mimi#

Thành viên mới
Tham gia
15/11/23
Bài viết
9
Được thích
0
Em muốn tạo một đoạn code VBA để khi thêm dữ liệu tĩnh mới vào bảng thì nó sẽ tự động tính toán dữ liệu động. Em dùng vòng lặp For next chạy hộp thoại input để nhập dữ liệu tĩnh, nhưng em không biết cách để dữ liệu được thêm vào bảng chạy từ dòng cuối+1 đến vô cùng ạ
 
Lần chỉnh sửa cuối:
1- Dùng inputbox làm công cụ nhập liệu không phải là ý tưởng hay. Bạn nghiên cứu Userform và các control liên quan nhé
2- Bạn đang lặp từ "dòng cuối" đến "dòng cuối +1" thì chỉ có 2 vòng chứ mấy? thay +1 bằng +n (n=1 , 2 ,3,...) nếu muốn lặp thêm n vòng
 
Upvote 0
1- Dùng inputbox làm công cụ nhập liệu không phải là ý tưởng hay. Bạn nghiên cứu Userform và các control liên quan nhé
2- Bạn đang lặp từ "dòng cuối" đến "dòng cuối +1" thì chỉ có 2 vòng chứ mấy? thay +1 bằng +n (n=1 , 2 ,3,...) nếu muốn lặp thêm n vòng
Dạ vâng e cảm ơn ạ. Nhưng cái vòng lặp e muốn lặp nhiều lần luôn không xác định là bao nhiêu, thì coá cách nào mình lặp tới lúc mà mình muốn dừng mình bấm OK hay Cancel là nó sẽ dừng luôn cho mình không ạ. Chứ nếu cho +n thì em cũng không biết thầy em muốn bao nhiêu lần để lặp ý ạ
 
Upvote 0
Thì cho n = số thật lớn xem sao? 100000 chẳng hạn?
Và bên trong vòng lặp, inputbox đầu tiên, nếu bạn để trống thì cho hiện hộp thoại msgbox, hỏi có muốn tiếp tục không, rồi chọn Yes hay no
VD:
Mã:
If Len(InputBox"So thu tu sach")=0 then
    If Msgbox("Ban co muon tiep tuc khong?",VbYesNo) = VBNo then Exit For
....
Đại khái là thế....
 
Upvote 0
Thì cho n = số thật lớn xem sao? 100000 chẳng hạn?
Và bên trong vòng lặp, inputbox đầu tiên, nếu bạn để trống thì cho hiện hộp thoại msgbox, hỏi có muốn tiếp tục không, rồi chọn Yes hay no
VD:
Mã:
If Len(InputBox"So thu tu sach")=0 then
    If Msgbox("Ban co muon tiep tuc khong?",VbYesNo) = VBNo then Exit For
....
Đại khái là thế....
Ok ạ mình cảm ơn .Chúc bạn một ngày tốt lành
Bài đã được tự động gộp:

Cảm ơn bạn, chúc bạn một ngày vui vẻ
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom