Code so sánh và tô màu bị lỗi (1 người xem)

[Excel365]

[GPECODE=vb]Public Sub ToMauRa_Vao()Dim i As Long, rng As Range
Set rng = Goc.Range("H5:I" & Goc.Range("I65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
If rng(i, 2) - rng(i, 1) > 1 Then
rng(i, 1).Resize(, 2).Interior.ColorIndex = 6
End If
Next i
End Sub[/GPECODE]

Em có đoạn code như trên, nhưng khi chạy thì báo lỗi. Nhờ cá anh chị xem giúp em.
Trân trọng cảm ơn

 

[ndu96081631]

[GPECODE=vb]Public Sub ToMauRa_Vao()Dim i As Long, rng As Range
Set rng = Goc.Range("H5:I" & Goc.Range("I65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
If rng(i, 2) - rng(i, 1) > 1 Then
rng(i, 1).Resize(, 2).Interior.ColorIndex = 6
End If
Next i
End Sub[/GPECODE]

Em có đoạn code như trên, nhưng khi chạy thì báo lỗi. Nhờ cá anh chị xem giúp em.
Trân trọng cảm ơn

Code chạy bình thường, nếu có lỗi chăng là lỗi nằm ở dữ liệu của bạn đấy (có thể cell nào đó dạng text không cộng trừ được)
Không có file chỉ đoán vậy thôi!

 

[Excel365]

Code chạy bình thường, nếu có lỗi chăng là lỗi nằm ở dữ liệu của bạn đấy (có thể cell nào đó dạng text không cộng trừ được)
Không có file chỉ đoán vậy thôi!

Cám ơn anh. Đúng là dữ liệu em bị sai định dạng
Nhung cho em hỏi. hiện tại thì dũ liệu em là giờ ra vào ( Giờ Vào (13:00) - Ra ăn trưa (11:00)). đang ở dạng Text (xuất từ máy chấm công ra). Nhưng em tô màu bằng Conditional formatting thì vãn bình thường ( I5 - H5 > (90/144) -> True, nhưng với code thì không được ạ

 

[ndu96081631]

Cám ơn anh. Đúng là dữ liệu em bị sai định dạng
Nhung cho em hỏi. hiện tại thì dũ liệu em là giờ ra vào ( Giờ Vào (13:00) - Ra ăn trưa (11:00)). đang ở dạng Text (xuất từ máy chấm công ra). Nhưng em tô màu bằng Conditional formatting thì vãn bình thường ( I5 - H5 > (90/144) -> True, nhưng với code thì không được ạ

Không "phán" được vì không có dữ liệu mẫu để kiểm tra

 

[Excel365]

Không "phán" được vì không có dữ liệu mẫu để kiểm tra

Em gởi file anh xem giúp em
https://drive.google.com/file/d/0Bz23-2tBuYb1LWVfdTZTQUcxMkU/view?usp=sharing

 

[ndu96081631]

Em gởi file anh xem giúp em
https://drive.google.com/file/d/0Bz23-2tBuYb1LWVfdTZTQUcxMkU/view?usp=sharing

Đưa file không mô tả gì thì test sao đây bạn?
- Code nào bị lỗi?
- Nếu kết quả đúng thì phải như thế nào?

 

[Excel365]

Dạ chủ yếu là tô màu các cặp Ra - Vào, nếu thời gian giữ Ra - Vào > 90 phút thì sẽ tô màu
Ví dụ:
Trần Loan Thảo
Ngày 08/09/2015:
Ra 1: 11:20
Vào 2: 13:32
Tính thời gian ra nghỉ trưa của nhân viên này, lấy Vào 2 - Ra 1. 13:32 - 11:20 > 90 phút = > sẽ tô màu cặp ra vào này.
Trong file em đang sử dụng Conditional formatting để tô màu đó anh

 

[ndu96081631]

Dạ chủ yếu là tô màu các cặp Ra - Vào, nếu thời gian giữ Ra - Vào > 90 phút thì sẽ tô màu
Ví dụ:
Trần Loan Thảo
Ngày 08/09/2015:
Ra 1: 11:20
Vào 2: 13:32
Tính thời gian ra nghỉ trưa của nhân viên này, lấy Vào 2 - Ra 1. 13:32 - 11:20 > 90 phút = > sẽ tô màu cặp ra vào này.
Trong file em đang sử dụng Conditional formatting để tô màu đó anh

Vậy bạn đã viết code thế nào rồi?
Nói chung nếu ngày giờ của bạn thuộc dạng text, hãy lòng thêm CDate vào giá trị rồi hẳn cộng trừ
Ví dụ: CDate(Range("I5").Value) - CDate(Range("H5").Value) sẽ không có vấn đề

 

[Excel365]

Vậy bạn đã viết code thế nào rồi?
Nói chung nếu ngày giờ của bạn thuộc dạng text, hãy lòng thêm CDate vào giá trị rồi hẳn cộng trừ
Ví dụ: CDate(Range("I5").Value) - CDate(Range("H5").Value) sẽ không có vấn đề

Em làm được rồi, cám ơn anh nhiều