Xin được giúp vấn đề không nhảy dữ liệu khi cuộn nút Spin.

Liên hệ QC

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
Em có tham khảo được file hợp đồng lao động.
Nhưng khi ấn nút cuộn Spin thì ở dòng số 24 (bôi vàng) dữ liệu không nhảy .
Em không biết lỗi do đâu.
nhờ Anh/chị giúp em ạ!
55.png
 

File đính kèm

  • HD.xlsm
    144.7 KB · Đọc: 18
Không có lỗi gì cả, bạn chưa enable macro thôi!
 
Em có tham khảo được file hợp đồng lao động.
Nhưng khi ấn nút cuộn Spin thì ở dòng số 24 (bôi vàng) dữ liệu không nhảy .
Em không biết lỗi do đâu.
nhờ Anh/chị giúp em ạ!
View attachment 212066
Dạ! em bật rồi anh ạ! nguyên chỉ có dòng số 24 đó không chạy dữ liệu, còn các dòng khác đều chạy ạ!
em cám ơn anh!
 
Em cũng thấy vậy, các dòng khác chạy mà dòng đó không chạy!hic
Cám ơn chị!
Code
Mã:
Sub HD_LD()
Dim Rng As Variant
Application.ScreenUpdating = False
On Error Resume Next
  Range("AT4:AT1000").ClearContents
  Set Rng = S_DM.Range("A15:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)
  
...

   Range(Range("BB1").Value).Value = "   - T" & ChrW(7915) & ": ngŕy " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("R" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("R" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("R" & Rng.Row).Value) & "."

   Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
   
...

End Sub

Sai ở dòng
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
Tại sao?
Vì cột O và P ở sheet S_DM (DM_HD) là "Công việc phải làm" và "Loại hình hợp đồng" chứa toàn text nên khi đưa vào hàm Day, Month và Year sẽ gây ra lỗi. Nhưng trước đó có On Error Resume Next nên bạn không được thông báo lỗi. Nhưng do có lỗi nên dòng 24 sẽ không được thay đổi.

Sửa lại thành
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("S" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("T" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."
Cột S và T ở sheet S_DM (DM_HD) chứa ngày tháng nên sẽ không có lỗi, và đúng là chứa "Ngày thử việc từ" và "Ngày thử việc đến".
Bài đã được tự động gộp:

Hỏng thấy lỗi mà thấy nó không chạy ===\.
Lỗi có nhưng bạn không được thông báo vì ngay ở đầu đã có
Mã:
On Error Resume Next
Nhưng do có lỗi nên B24 không được thay đổi - nó không chạy
 
Code
Mã:
Sub HD_LD()
Dim Rng As Variant
Application.ScreenUpdating = False
On Error Resume Next
  Range("AT4:AT1000").ClearContents
  Set Rng = S_DM.Range("A15:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)
 
...

   Range(Range("BB1").Value).Value = "   - T" & ChrW(7915) & ": ngŕy " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("R" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("R" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("R" & Rng.Row).Value) & "."

   Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
  
...

End Sub

Sai ở dòng
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
Tại sao?
Vì cột O và P ở sheet S_DM (DM_HD) là "Công việc phải làm" và "Loại hình hợp đồng" chứa toàn text nên khi đưa vào hàm Day, Month và Year sẽ gây ra lỗi. Nhưng trước đó có On Error Resume Next nên bạn không được thông báo lỗi. Nhưng do có lỗi nên dòng 24 sẽ không được thay đổi.

Sửa lại thành
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("S" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("T" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."
Cột S và T ở sheet S_DM (DM_HD) chứa ngày tháng nên sẽ không có lỗi, và đúng là chứa "Ngày thử việc từ" và "Ngày thử việc đến".
Bài đã được tự động gộp:


Lỗi có nhưng bạn không được thông báo vì ngay ở đầu đã có
Mã:
On Error Resume Next
Nhưng do có lỗi nên B24 không được thay đổi - nó không chạy
Anh đưa lên vậy sao bạn ấy sữa được, có biết Pass đâu. anh up cái File lên cho bạn ấy đi
 
Code
Mã:
Sub HD_LD()
Dim Rng As Variant
Application.ScreenUpdating = False
On Error Resume Next
  Range("AT4:AT1000").ClearContents
  Set Rng = S_DM.Range("A15:A" & S_DM.[B65500].End(xlUp).Row).Find(Range("A1").Value, , , xlWhole)

...

   Range(Range("BB1").Value).Value = "   - T" & ChrW(7915) & ": ngŕy " & Day(S_DM.Range("Q" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("Q" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("Q" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("R" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("R" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("R" & Rng.Row).Value) & "."

   Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
 
...

End Sub

Sai ở dòng
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("O" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("O" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("O" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("P" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("P" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("P" & Rng.Row).Value) & "."
Tại sao?
Vì cột O và P ở sheet S_DM (DM_HD) là "Công việc phải làm" và "Loại hình hợp đồng" chứa toàn text nên khi đưa vào hàm Day, Month và Year sẽ gây ra lỗi. Nhưng trước đó có On Error Resume Next nên bạn không được thông báo lỗi. Nhưng do có lỗi nên dòng 24 sẽ không được thay đổi.

Sửa lại thành
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ngŕy " & Day(S_DM.Range("S" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ngŕy " & Day(S_DM.Range("T" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."
Cột S và T ở sheet S_DM (DM_HD) chứa ngày tháng nên sẽ không có lỗi, và đúng là chứa "Ngày thử việc từ" và "Ngày thử việc đến".
Bài đã được tự động gộp:


Lỗi có nhưng bạn không được thông báo vì ngay ở đầu đã có
Mã:
On Error Resume Next
Nhưng do có lỗi nên B24 không được thay đổi - nó không chạy
Vâng em cám ơn thầy! nhưng file đó có Pass ạ!
Có cách nào không thầy?
 
Em tài file về nhưng thấy lỗi tiếng việt ở dòng 24 anh ạ!
Anh xem lại giúp em với.
Trong Sub HD_LD tìm
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ng?y " & Day(S_DM.Range("S" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ng?y " & Day(S_DM.Range("T" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."

và thay bằng

Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ng" & ChrW(224) & "y" & Day(S_DM.Range("S" & Rng.Row).Value) & " th" & ChrW(225) & "ng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ng" & ChrW(224) & "y" & Day(S_DM.Range("T" & Rng.Row).Value) & " th" & ChrW(225) & "ng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."
 
Trong Sub HD_LD tìm
Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ng?y " & Day(S_DM.Range("S" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ng?y " & Day(S_DM.Range("T" & Rng.Row).Value) & " tháng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."

và thay bằng

Mã:
Range(Range("BC1").Value).Value = "   - Th" & ChrW(7917) & " vi" & ChrW(7879) & "c t" & ChrW(7915) & ": " & "ng" & ChrW(224) & "y" & Day(S_DM.Range("S" & Rng.Row).Value) & " th" & ChrW(225) & "ng " & Month(S_DM.Range("S" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("S" & Rng.Row).Value) & " " & ChrW(273) & ChrW(7871) & "n " _
& "ng" & ChrW(224) & "y" & Day(S_DM.Range("T" & Rng.Row).Value) & " th" & ChrW(225) & "ng " & Month(S_DM.Range("T" & Rng.Row).Value) & " n" & ChrW(259) & "m " & Year(S_DM.Range("T" & Rng.Row).Value) & "."
Em cảm ơn anh!
 
Web KT
Back
Top Bottom