dạ là mình tự viết bác ạ
nhưng khổ nỗi là nó ko debug bác ợ, mình chạy từng sub riêng lẻ thì lại rất bình thường, ko có vấn đề gì ạ, nhưng khi chạy sub total tổng hợp tất cả các sub thì nó rất lâu đến nỗi đơ cả máy luôn á bác
Debug là 1 hành động của người viết code để dò lỗi chứ không phải là hành động của "nó" như bạn nói.nhưng khổ nỗi là nó ko debug bác ợ, mình chạy từng sub riêng lẻ thì lại rất bình thường, ko có vấn đề gì ạ, nhưng khi chạy sub total tổng hợp tất cả các sub thì nó rất lâu đến nỗi đơ cả máy luôn á bác
vâng, vì mình cũng mới vọc vạch VBA nên cũng ko hiểu rõ về nó lắm, cứ nghĩ đơn giản là khi làm Sub riêng lẻ OK rồi thì làm Total để nó chạy từng sub thôi chứ ko biết nó ảnh hưởng vậy
ý bác vị trí chạy cell bắt đầu của sub chạy sau có giống như chạy riêng ko là như thế nào ạ? Bác thông cảm, mình cũng chỉ mới vọc vạch VBA nên nhiều khi cũng ko hiểu rõ bản chất của VBA ạ.
dạ mình làm mấy cái button đấy để làm từng bước thôi bác ạ, xong thì mình sẽ bỏ hết các button đấy đi còn 1 cái Enter kia thôi, làm cái Userform kiểu gì mình cũng ko biết làm bác ạ, mình cũng mới vọc vạch VBA cũng chỉ biết sơ sơ như vậy thôi chứ ko hiểu bản chất sâu của vấn đề ạ. Để mình tìm hiểu thêm ạ.
1- Về Useform trong VBA thì bạn google ra đầy, chỉ gợi ý thôi, còn thì bạn tự tìm hiểu. Vì bạn đã vọc vạch được 20 cái sub kia thì cái này là muỗi
sub abc
Dim t
...
t=timer
<main code>
msgbox timer-t
end subdạ OK, cám ơn bác ạ, để mình tìm hiểu và sửa, theo như các bác khai sáng thì lỗi là do mình thôi, để mình tìm xem lỗi ở đâu. Cám ơn các bác nhiều nhé
Thôi. Bạn search từ khóa "debug" đi! Trên mạng hoặc trong GPE có cả đống. Viết code được mà không tự debug được là xem như chưa được.vâng, vì mình cũng mới vọc vạch VBA nên cũng ko hiểu rõ về nó lắm, cứ nghĩ đơn giản là khi làm Sub riêng lẻ OK rồi thì làm Total để nó chạy từng sub thôi chứ ko biết nó ảnh hưởng vậy
Về lý thuyết, cỡ phức tạp như vầy thì code phải có chú thích nó làm gì và ước lượng đầu vào, đấu ra.
gần 26 giây đã xong rồi
Đây bác ạ, mình thử tách ra và chạy thì đến đoạn sub CheckNorm là nó rất là lâu, chạy 1% một luôn
Chạy lâu cũng là 1 lỗi, và tôi cũng ghi rõ là thêm từng sub để thấy lỗi. Lạ 1 cái là "cao thủ" như bebo mà không nhận ra người khác nói gì, cứ cho là mình đúng nhất.
Ở mức độ chủ đề này và trình độ chủ bài, tôi còn chưa đề nghị chạy ngược 5 4 3 2 1
vâng, cháu cũng đã thử như cách của chú nói chạy 1 2 3 từng sub 1 đến sub thứ 4 thì bị lỗi, lỗi ở đây là nó chạy rất là lâu ạ, nhưng vấn đề là do trình độ có hạn nên cháu cũng ko biết giải quyết như thế nào nữa
Sub CheckNorm()
Dim lastRow As Long
Sheets("Product_Qty").Select
lastRow = Cells(Rows.Count, "C").End(xlUp).Row
With Range(Cells(2, "O"), Cells(lastRow, "O"))
.Formula = "=IFERROR(VLOOKUP(C2,Check!A:B,2,0),"""")"
.Value = .Value
End With
' . . . . . .
With Range(Cells(2, "Y"), Cells(lastRow, "Y"))
.Formula = "=IFERROR(VLOOKUP(C2,Check!U:V,2,0),"""")"
.Value = .Value
End With
End SubVLOOKUP() cả vùng gồm tròn 2 cột là sao (?)
vâng để mình thử lại
(cám ơn bác nhé, đã kiểm tra kỹ lại thì có vẻ như việc chạy vlookup 2 cột nó lâu hơn nên mình đã khoanh vùng giới hạn lại chạy rất nhanh, tổng thời gian chạy file hết tầm 23s
, chân thành cám ơn các bác đã đóng góp ý kiến ạ.
