Xin được giúp vấn đề không nhảy dữ liệu khi cuộn nút Spin. (1 người xem)
- Thread starter Cát Lượng
- Ngày gửi
Người dùng đang xem chủ đề này
vu_tuan_manh_linh
linhvtm84@gmail.com
- Tham gia
- 27/2/10
- Bài viết
- 2,637
- Được thích
- 1,904
- Giới tính
- Nam
- Nghề nghiệp
- Kỹ sư Kinh tế Xây dựng
Không có lỗi gì cả, bạn chưa enable macro thôi!
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
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!
thuyyeu99
Trùm Nhiều Chuyện
- Tham gia
- 6/6/08
- Bài viết
- 1,729
- Được thích
- 875
Bạn đưa File lên vì code không chạy nhấn vào VBA lại có Pass sao dò lỗi ở đâu ????
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
thuyyeu99
Trùm Nhiều Chuyện
- Tham gia
- 6/6/08
- Bài viết
- 1,729
- Được thích
- 875
Vậy sao mà coi được hichic
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
Vâng, chị test thử giúp em xem dòng số 24 có phải lỗi vậy không ạ!
thuyyeu99
Trùm Nhiều Chuyện
- Tham gia
- 6/6/08
- Bài viết
- 1,729
- Được thích
- 875
Hỏng thấy lỗi mà thấy nó không chạy
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ũng thấy vậy, các dòng khác chạy mà dòng đó không chạy!hicHỏng thấy lỗi mà thấy nó không chạy
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 SubSai ở 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) & "."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) & "."
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óHỏng thấy lỗi mà thấy nó không chạy
Mã:
On Error Resume Nextthuyyeu99
Trùm Nhiều Chuyện
- Tham gia
- 6/6/08
- Bài viết
- 1,729
- Được thích
- 875
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
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
Vâng em cám ơn thầy! nhưng file đó có Pass ạ!
Có cách nào không thầy?
Bạn thử xem
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
Dạ! em cám ơn thầy nhiều!
Chúc thầy năm mới sức khỏe, nhiều may mắn và thành công.
motphatlt
Thành viên chính thức
- Tham gia
- 15/8/20
- Bài viết
- 54
- Được thích
- 5
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) & "."motphatlt
Thành viên chính thức
- Tham gia
- 15/8/20
- Bài viết
- 54
- Được thích
- 5
Em cảm ơn anh!
