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

[Mimi#]

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 ạ

 

[bebo021999]

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

 

[Mimi#]

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 ý ạ

 

[bebo021999]

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:

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ế....

 

[hoangflong]

Mình thì làm như thế này

 

[Mimi#]

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:

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: 15/11/23

View attachment 296736
Mình thì làm như thế này

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