Các bác xem giúp em lỗi này sửa như thế nào thì chạy được (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

nckhoa97

Thành viên mới
Tham gia
27/2/20
Bài viết
3
Được thích
0
11111111.png
 

File đính kèm

  • 2323232.png
    2323232.png
    3.6 KB · Đọc: 8

File đính kèm

Upvote 0
Ngày tháng trong file trông giống "Ngày tháng" nhưng không phải "Ngày tháng thật"

Để kiểm tra: nhập =ISNUMBER(C2) => kết quả là FALSE

...

Sau khi sửa xong phần trên, sửa dòng:

ar = Sheet1.Range("A8:C" & Sheet1.Range("A" & Rows.Count).End(3).Row)

thành:

ar = Sheet1.Range("B8: D" & Sheet1.Range("A" & Rows.Count).End(3).Row).Value2

dòng:

For j = CLng(ar(i, 2)) To CLng(ar(i, 3))

thành:

For j = ar(i, 2) To ar(i, 3)
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom