Kiểm Tra chấm công và nghỉ phép (1 người xem)

Elx Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
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

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

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

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

A
  • Question Question
Sửa code VBA nhập liệu userform (1 người xem)
Trả lời
26
Đọc
1K
ptm0412
ptm0412
B
  • Question Question
Thiết lập code VBA để đổi tên sheet tự động theo ngày và sao chép hàm tự động (2 người xem)
    • Cười
Trả lời
1
Đọc
18
SA_DQ
SA_DQ
C
Fix lỗi Application.InputBox Type:=8 (1 người xem)
    • Cười
Trả lời
7
Đọc
139
SA_DQ
SA_DQ
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (5 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
556
Đọc
72K
sát thủ uyên ương
S
Emyeuexcel
Tham chiếu về 1 ô-lấy ra và lọc dữ liệu
Trả lời
5
Đọc
103
Emyeuexcel
Emyeuexcel
L
Hỏi lỗi excel bị tràn trang khi in (1 người xem)
Trả lời
3
Đọc
78
Hoàng Tuấn 868
H
E
  • Question Question
VBA tự động thay đổi tham chiếu vùng (range và cell) khi insert dòng cột trong sheet tính toán (1 người xem)
    • Cười
Trả lời
5
Đọc
129
eagle12
E
D
Tổng hợp dữ liệu từ các sheet sang sheet tổng (2 người xem)
Trả lời
3
Đọc
155
dohungmo
D
T
font chu trong excel
Trả lời
2
Đọc
77
Hoàng Tuấn 868
H
khuong182018
  • Question Question
Nhờ anh chị sửa lỗi setfocus ở textbox
Trả lời
9
Đọc
170
khuong182018
khuong182018
N
File chia băng tự động từ cuộn mẹ theo khổ băng và khối lượng băng cho trước
Trả lời
0
Đọc
46
nguyenanhtruong2409
N
SA_DQ
Copilot bình luận về một ván cờ vua
Trả lời
0
Đọc
78
SA_DQ
SA_DQ
T
Xin giúp đỡ lọc dữ liệu
    • Cười
Trả lời
4
Đọc
119
pycckuu410
pycckuu410
Nguyễn Duy Tuân
[New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA
    • Thích
Trả lời
13
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
  • Question Question
Code Sổ Chi Tiết Tài Khoản
Trả lời
8
Đọc
335
hieuvietmy2020
H
befaint
Chia sẻ tâm tư, xả nỗi lòng (5 người xem)
    • Thích
6 7 8
Trả lời
778
Đọc
75K
SA_DQ
SA_DQ
H
Chia sẻ file in Phiếu điều tra PCGD (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
12
Đọc
448
HUONGHCKT
H
V
Hỏi công thức để làm khối lượng trong xây dựng. Xin cảm ơn
Trả lời
11
Đọc
526
phanphu_91
P
Linhnv0001
Hỏi - Cách kiểm tra laptop là hàng lắp ráp hay không
Trả lời
3
Đọc
276
Lê Duy Thương
Lê Duy Thương
K
Nhờ anh chị làm công thức lọc dữ kiện ngày từ bảng 1 sang rút gọn ngày ở bảng 2.
Trả lời
2
Đọc
192
Lê Duy Thương
Lê Duy Thương
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom