Kiểm Tra chấm công và nghỉ phép

Liên hệ QC
Masu1991

Masu1991

Thành viên hoạt động
Tham gia
21/3/20
Bài viết
110
Được thích
14
Chào anh chị,

Em có 1 sheet CONG và Sheet PHEP. Em muốn so sánh xem 2 sheet có khớp dữ liệu với nhau không?
- sheet CÔNG: mỗi người sẽ có 28,29,30,31 dòng (tùy theo tháng)
- sheet PHÉP:
+ Nếu chỉ nghỉ 1 ngày thì khoản thời gian TỪ NGÀY - ĐẾN NGÀY là như nhau (ghi chú hình: Màu hồng)
+ nếu nghỉ dài hạn khoản thời gian TỪ NGÀY - ĐẾN NGÀY là 1 khoảng thời gian tương ứng số ngày nghỉ (ghi chú hình: Màu xanh).
1659059372158.png

- Kết quả trả về loại phép ở cột AV Của sheet CONG:
1659059512916.png

Ghi chú: Những cột bị ẩn là dữ liệu thừa nên em đã ẩn đi.

Em xin cảm ơn anh chị đã hỗ trợ
 

File đính kèm

  • GPE TRỢ GIÚP.xlsb
    627.7 KB · Đọc: 15
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Masu1991 đã viết:
Em có 1 sheet CONG và Sheet PHEP. Em muốn so sánh xem 2 sheet có khớp dữ liệu với nhau không?
Nhấp chuột vào đây để mở rộng...


Chào bạn,

Bạn thử dùng công thức sau trong hàng 6578:

=IFERROR(LOOKUP(2,1/(PHEP!$C$2:$C$596=H6578)/(PHEP!$I$2:$I$596<=N6578)/(PHEP!$J$2:$J$596>=N6578),PHEP!$Q$2:$Q$596),"")

...

Nhầm! Đây là box Lập trình.

.
 
Upvote 0
Phuocam đã viết:
Chào bạn,

Bạn thử dùng công thức sau trong hàng 6578:

=IFERROR(LOOKUP(2,1/(PHEP!$C$2:$C$596=H6578)/(PHEP!$I$2:$I$596<=N6578)/(PHEP!$J$2:$J$596>=N6578),PHEP!$Q$2:$Q$596),"")

...

Nhầm! Đây là box Lập trình.

.
Nhấp chuột vào đây để mở rộng...
Như vầy đi:

Function LapTrinh(Optional byVal rw As Long = 0)
If rw <= 0 Then rw = Application.Caller.Row
LapTrinh = Evaluate( _
"IFERROR(LOOKUP(2,1/(PHEP!$C$2:$C$596=H" & rw & ")/(PHEP!$I$2:$I$596<=N" & rw & "/(PHEP!$J$2:$J$596>=N" & rw & "),PHEP!$Q$2:$Q$596),"""")"
End Function
 
Upvote 0
VetMini đã viết:
Như vầy đi:

Function LapTrinh(Optional byVal rw As Long = 0)
If rw <= 0 Then rw = Application.Caller.Row
LapTrinh = Evaluate( _
"IFERROR(LOOKUP(2,1/(PHEP!$C$2:$C$596=H" & rw & ")/(PHEP!$I$2:$I$596<=N" & rw & "/(PHEP!$J$2:$J$596>=N" & rw & "),PHEP!$Q$2:$Q$596),"""")"
End Function
Nhấp chuột vào đây để mở rộng...
Dạ, con chào bác, công thức của hàm tự tạo tên LapTrinh như thế nào vậy bác, con xem mà chưa hiểu cách làm.
Con có thay đổi cột C thành cột A vì sẽ lấy theo mã số thẻ, cột H thành cột L
 
Upvote 0
Gọp
Masu1991 đã viết:
Chào anh chị,

Em có 1 sheet CONG và Sheet PHEP. Em muốn so sánh xem 2 sheet có khớp dữ liệu với nhau không?
- sheet CÔNG: mỗi người sẽ có 28,29,30,31 dòng (tùy theo tháng)
- sheet PHÉP:
+ Nếu chỉ nghỉ 1 ngày thì khoản thời gian TỪ NGÀY - ĐẾN NGÀY là như nhau (ghi chú hình: Màu hồng)
+ nếu nghỉ dài hạn khoản thời gian TỪ NGÀY - ĐẾN NGÀY là 1 khoảng thời gian tương ứng số ngày nghỉ (ghi chú hình: Màu xanh).


- Kết quả trả về loại phép ở cột AV Của sheet CONG:


Ghi chú: Những cột bị ẩn là dữ liệu thừa nên em đã ẩn đi.

Em xin cảm ơn anh chị đã hỗ trợ
Nhấp chuột vào đây để mở rộng...
Góp vui. Thử chạy đoạn code này xem sao.
Mã: 
Option Explicit

Sub TimKiem()
Dim i&, j, t&, k&, Lr&, LrC&
Dim Arr(), ArrC(), Res(), KQ()
Dim Dic As Object, Key, Temp

With Sheets("PHEP")
Lr = .Cells(Rows.Count, 1).End(xlUp).Row
Arr = .Range("A2:S" & Lr).Value
End With
ReDim Res(1 To UBound(Arr) * 30, 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
    If Arr(i, 9) <> Arr(i, 10) Then
        For j = Arr(i, 9) To Arr(i, 10)
            Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & j '& "#" & Arr(i, 17)
            If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = j
                Res(t, 4) = Arr(i, 17)
            End If
        Next j
    Else
        Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & Arr(i, 9) '& "#" & Arr(i, 17)
        If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = Arr(i, 9)
                Res(t, 4) = Arr(i, 17)
            End If
    End If
Next i
With Sheets("CONG")
LrC = .Cells(Rows.Count, 12).End(xlUp).Row
ArrC = .Range("A2:S" & LrC).Value
ReDim KQ(1 To UBound(ArrC), 1 To 1)
For i = 1 To UBound(ArrC)
Temp = ArrC(i, 12) & "#" & ArrC(i, 8) & "#" & ArrC(i, 14) '& "#" & ArrC(i, 19)
If Dic.Exists(Temp) Then
    KQ(i, 1) = "OK"
End If
Next i
    .Range("AV2").Resize(i, 1) = KQ
End With
Set Dic = Nothing
End Sub
Các nội dung khác bạn tùy chỉnh
 
Upvote 0
HUONGHCKT đã viết:
Gọp

Góp vui. Thử chạy đoạn code này xem sao.
Mã: 
Option Explicit

Sub TimKiem()
Dim i&, j, t&, k&, Lr&, LrC&
Dim Arr(), ArrC(), Res(), KQ()
Dim Dic As Object, Key, Temp

With Sheets("PHEP")
Lr = .Cells(Rows.Count, 1).End(xlUp).Row
Arr = .Range("A2:S" & Lr).Value
End With
ReDim Res(1 To UBound(Arr) * 30, 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
    If Arr(i, 9) <> Arr(i, 10) Then
        For j = Arr(i, 9) To Arr(i, 10)
            Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & j '& "#" & Arr(i, 17)
            If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = j
                Res(t, 4) = Arr(i, 17)
            End If
        Next j
    Else
        Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & Arr(i, 9) '& "#" & Arr(i, 17)
        If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = Arr(i, 9)
                Res(t, 4) = Arr(i, 17)
            End If
    End If
Next i
With Sheets("CONG")
LrC = .Cells(Rows.Count, 12).End(xlUp).Row
ArrC = .Range("A2:S" & LrC).Value
ReDim KQ(1 To UBound(ArrC), 1 To 1)
For i = 1 To UBound(ArrC)
Temp = ArrC(i, 12) & "#" & ArrC(i, 8) & "#" & ArrC(i, 14) '& "#" & ArrC(i, 19)
If Dic.Exists(Temp) Then
    KQ(i, 1) = "OK"
End If
Next i
    .Range("AV2").Resize(i, 1) = KQ
End With
Set Dic = Nothing
End Sub
Các nội dung khác bạn tùy chỉnh
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh đã hỗ trợ, phiền anh thay thế OK thành dữ liệu ở lấy từ cột Q ở sheet PHEP, vì em phải so sanh phép giữa sheet CONG và PHÉP có khớp không á anh.
 
Upvote 0
Masu1991 đã viết:
Cảm ơn anh đã hỗ trợ, phiền anh thay thế OK thành dữ liệu ở lấy từ cột Q ở sheet PHEP, vì em phải so sanh phép giữa sheet CONG và PHÉP có khớp không á anh.
Nhấp chuột vào đây để mở rộng...
OK nghĩa là khớp rồi đấy. Còn nếu muốn thay "...OK thành dữ liệu ở lấy từ cột Q ở sheet PHEP" thì bạn thay dòng
Mã: 
KQ(i, 1) = "OK"
Thành
Mã: 
KQ(i, 1) = Res(Dic.Item(Temp), 4)
và chạy lại code
 
Upvote 0
Nhờ các anh các chị thêm giúp công thức tính ngày phép cho các bạn có thâm niên làm việc dưới 1 năm, và quy định là ngày vào làm việc sau ngày 15 sẽ không được tính ngày phép của tháng đó ạ! Trân trọng cảm ơn
 

File đính kèm

  • Bang tinh luong.xlsx
    85.1 KB · Đọc: 4
Upvote 0
HUONGHCKT đã viết:
Gọp

Góp vui. Thử chạy đoạn code này xem sao.
Mã: 
Option Explicit

Sub TimKiem()
Dim i&, j, t&, k&, Lr&, LrC&
Dim Arr(), ArrC(), Res(), KQ()
Dim Dic As Object, Key, Temp

With Sheets("PHEP")
Lr = .Cells(Rows.Count, 1).End(xlUp).Row
Arr = .Range("A2:S" & Lr).Value
End With
ReDim Res(1 To UBound(Arr) * 30, 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
    If Arr(i, 9) <> Arr(i, 10) Then
        For j = Arr(i, 9) To Arr(i, 10)
            Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & j '& "#" & Arr(i, 17)
            If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = j
                Res(t, 4) = Arr(i, 17)
            End If
        Next j
    Else
        Key = Arr(i, 1) & "#" & Arr(i, 3) & "#" & Arr(i, 9) '& "#" & Arr(i, 17)
        If Not Dic.Exists(Key) Then
                t = t + 1: Dic.Add (Key), t
                Res(t, 1) = Arr(i, 1)
                Res(t, 2) = Arr(i, 3)
                Res(t, 3) = Arr(i, 9)
                Res(t, 4) = Arr(i, 17)
            End If
    End If
Next i
With Sheets("CONG")
LrC = .Cells(Rows.Count, 12).End(xlUp).Row
ArrC = .Range("A2:S" & LrC).Value
ReDim KQ(1 To UBound(ArrC), 1 To 1)
For i = 1 To UBound(ArrC)
Temp = ArrC(i, 12) & "#" & ArrC(i, 8) & "#" & ArrC(i, 14) '& "#" & ArrC(i, 19)
If Dic.Exists(Temp) Then
    KQ(i, 1) = "OK"
End If
Next i
    .Range("AV2").Resize(i, 1) = KQ
End With
Set Dic = Nothing
End Sub
Các nội dung khác bạn tùy chỉnh
Nhấp chuột vào đây để mở rộng...
Nhờ mở pass hộ em file này
 

File đính kèm

  • THUONG THANG 3.xlsx
    1 MB · Đọc: 7
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

N
Công thức tính số phù hợp với % mong muốn
Trả lời
6
Đọc
54
Phuocam
Phuocam
B
Giúp em xử lý lỗi macro khi chạy VBA
Trả lời
17
Đọc
348
VetMini
V
HeSanbi
  • Question
Hàm FilterA và FilterV - Bổ trợ tận dụng bộ lọc AutoFilter và AdvancedFilter
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
48
Đọc
4K
Manhhung90
Manhhung90
T
Chèn dữ liệu từ sheet này qua sheet khác theo điều kiện
Trả lời
1
Đọc
70
HieuCD
H
N
Giúp em công thức lấy dữ liệu không trùng để in phiếu thu bán hàng
Trả lời
5
Đọc
174
nguyenthieny
N
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
7 8 9
Trả lời
173
Đọc
9K
ongke0711
ongke0711
N
cộng các dữ liệu không trùng nhau
Trả lời
5
Đọc
60
hoangtuaotrang_hp_vn
H
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
5
Đọc
81
quocphuoc88
quocphuoc88
N
  • Question
Xin mã code ẩn hiện dòng theo điều kiện
Trả lời
1
Đọc
32
HUONGHCKT
H
vova2209
Index kết hợp với match 2 điều kiện
Trả lời
13
Đọc
1K
hoangtuaotrang_hp_vn
H
vova2209
  • Question
Tìm địa chỉ ô với 2đk và chuyển thành links
Trả lời
17
Đọc
384
vova2209
vova2209
Huy@@*
Giải đáp giùm em, cách khắc phục lỗi này trên VBA
Trả lời
0
Đọc
18
Huy@@*
Huy@@*
C
Tiếng Việt
    • Cười
2
Trả lời
29
Đọc
1K
VetMini
V
nguyenanhhoa
Nhờ các bác giúp: e muốn tô màu khác nhau đối với các ô giống nhau về giá trị
    • Cười
Trả lời
4
Đọc
100
SA_DQ
SA_DQ
A
Công thức tính tổng chi phí nhiều điều kiện
Trả lời
6
Đọc
98
adad
A
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
5
Đọc
294
vostro 1500
vostro 1500
T
Lọc lấy đơn giá nhập mới nhất của các mặt hàng
2
Trả lời
20
Đọc
14K
honguyentruong
H
Hai Lúa Miền Tây
  • Question
Hàm chuyển dữ liệu từ cột sang dòng (Hàm melt + wide_to_long của Python trong Excel)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
10
Đọc
593
Hai Lúa Miền Tây
Hai Lúa Miền Tây
H
Cộng các ô cùng màu bằng VBA
Trả lời
2
Đọc
71
haquyet2013
H
N
  • Question
Xin mã code ẩn hiện dòng theo yêu cầu
Trả lời
9
Đọc
464
Nguyễn Diêu Hiền
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom