Lỗi khi ngắt vòng lặp For trên Userform

[duongvanminh33]

Dear MN,

Mình có một lỗi như thế này tuy nhiên mình vẫn chưa có cách khắc phục được nó.

Private Sub CommandButton1_Click()

    If Me.Enabled = True Then
    Unload Me
    End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
    Cancel = False
     Application.DisplayAlerts = False
   ActiveWorkbook.Close SaveChanges:=False
   Application.DisplayAlerts = True
End If
End Sub

Dòng lệnh userfrom_queryclose : Ví dụ Khi hàm vòng lặp for i mình đang chạy từ 1-100 , tuy nhiên khi chạy được nữa chừng thì mình muốn hủy nó, thì mình sẽ bấm dấu X trên userfrom để close

Sau khi excel tắt và mình mở lại file thì biến tại button Spinner2 ( printTo = wbThis.Sheets("PAYSLIP").Range("I5").Value) thì sẽ hiện số đã bị close nữa chừng.Nhưng khi mình bấm button Spinner2 thì các hàm vlookup mình ko chạy được mà phải bấm save thì nó mới hiện - Bấm tới số mấy thì phải save nhiu lần số đó mới hiện.
Nếu run chạy lại thì nó sẽ chạy lại bình thường.

Mình không hiểu lắm. Có cách nào khắc phục không ạ.

 

[vu_tuan_manh_linh]

Trước cái unload Me bạn cho câu lệnh Application.DisplayAlerts = True thử xem.

 

[duongvanminh33]

Trước cái unload Me bạn cho câu lệnh Application.DisplayAlerts = True thử xem.

cái hàm : Private Sub CommandButton1_Click() thì không sao bạn ơi, mình bị cái chổ tắt dấu x của userform á

 

[befaint]

Ngôn ngữ gì đây vậy ta? Vụ này có liên quan gì mấy bài báo về tiếng Việt lớp 1 gần đây không?

 

[duongvanminh33]

Ngôn ngữ gì đây vậy ta? Vụ này có liên quan gì mấy bài báo về tiếng Việt lớp 1 gần đây không?


View attachment 247222

Sr bạn ạ, Sau này mình sẽ kiểm tra kĩ trước khi gửi

 

[YêuCN]

Sr ? Nhắc rồi cũng sai !

 

[duongvanminh33]

Sr ? Nhắc rồi cũng sai !

Rồi rồi, mình biết cái sai của mình rồi, MN giúp mình giải quyết vấn đề với ạ.

 

[YêuCN]

Biết rồi vẫn sai ! MN ?

 

[duongvanminh33]

Biết rồi vẫn sai ! MN ?

Ừa rồi, tại mình không để ý nội quy, nên vi phạm lần đầu, bạn giúp mình với.

 

[YêuCN]

Góp ý bạn nên đưa file lên nha Code một đằng mà hỏi một nẻo thì không ai giúp được bạn đâu !

 

[duongvanminh33]

Góp ý bạn nên đưa file lên nha Code một đằng mà hỏi một nẻo thì không ai giúp được bạn đâu !

Đây bạn ơi, file hình là ở trạng thái đang bị, vô click Spinner2 , dữ liệu không chạy.

 

[Hoàng Tuấn 868]

Nếu không sửa hết các lỗi đã được góp ý thì vụ này chắc lại đến Tết Tây.

 

[duongvanminh33]

Ngôn ngữ gì đây vậy ta? Vụ này có liên quan gì mấy bài báo về tiếng Việt lớp 1 gần đây không?


View attachment 247222

Nếu không sửa hết các lỗi đã được góp ý thì vụ này chắc lại đến tết Tây.

Mình lại sai ở chổ nào nữa rồi sao, mình kiểm tra cú pháp rồi mà.

 

[409]

Đây bạn ơi, file hình là ở trạng thái đang bị, vô click Spinner2 , dữ liệu không chạy.

Nếu chỉ đơn giản là click Spinner2 thì I7 cập nhật (dữ liệu chạy ???) thì chỉ cần thêm code sau vào Module5 của bạn:

Sub Spinner2_Change()
Range("I7").Value = "=RIGHT(VLOOKUP($I$5,VP!$A$8:$AV$1071,48,0),4)"
End Sub

Không biết đã đúng ý bạn hỏi chưa.

 

[duongvanminh33]

Nếu chỉ đơn giản là click Spinner2 thì I7 cập nhật (dữ liệu chạy ???) thì chỉ cần thêm code sau vào Module5 của bạn:

Sub Spinner2_Change()
Range("I7").Value = "=RIGHT(VLOOKUP($I$5,VP!$A$8:$AV$1071,48,0),4)"
End Sub

Không biết đã đúng ý bạn hỏi chưa.

Hay quá bạn ơi, đúng là khi ghi đoạn code đó thì nó chạy được thật. Bạn có thế giải thích dùm mình tại sao lại bị như thế không ạ? , với lại không lẽ giờ lấy các công thức trong sheet "PAYSLIP" rồi đưa vô trong Spinner2_change() hết sao. Theo ý kiến của bạn , mình nên làm như thế nào thì mới tốt nhất. Cảm ơn bạn

 

[409]

Hay quá bạn ơi, đúng là khi ghi đoạn code đó thì nó chạy được thật. Bạn có thế giải thích dùm mình tại sao lại bị như thế không ạ? , với lại không lẽ giờ lấy các công thức trong sheet "PAYSLIP" rồi đưa vô trong Spinner2_change() hết sao. Theo ý kiến của bạn , mình nên làm như thế nào thì mới tốt nhất. Cảm ơn bạn

Thực ra lý do chính nó không cập nhật là do bạn đã không trả Application.Calculation về để tự động cập nhật (mình tưởng bạn kiểm soát thông số này không muốn nó tự động cho cả bảng tính)
Nếu bạn muốn tất cả các công thức trong sheet "PAYSLIP" nó cập nhật thì chỉ cần kiểm soát Application.Calculation tự động cập nhật (Application.Calculation = xlCalculationAutomatic)
Bạn tự đổi Application.Calculation = xlCalculationAutomatic trong code của bạn nhé. Khi đó sự kiện Spinner2_change() cho trường hợp này là không cần nữa.

 

[duongvanminh33]

Thực ra lý do chính nó không cập nhật là do bạn đã không trả Application.Calculation về để tự động cập nhật (mình tưởng bạn kiểm soát thông số này không muốn nó tự động cho cả bảng tính)
Nếu bạn muốn tất cả các công thức trong sheet "PAYSLIP" nó cập nhật thì chỉ cần kiểm soát Application.Calculation tự động cập nhật (Application.Calculation = xlCalculationAutomatic)
Bạn tự đổi Application.Calculation = xlCalculationAutomatic trong code của bạn nhé. Khi đó sự kiện Spinner2_change() cho trường hợp này là không cần nữa.

Đúng là như vậy thật bạn à, mình mất 3 ngày chỉ để tìm hiểu tại sao nó bị như vậy, mình mới tập viết VBA nên còn gà mờ lắm, chân thành cảm ơn bạn vì sự giúp đỡ này.