Tính giờ chấm công ngày Lễ tết (1 người xem)

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)
T

tnfsmith

Thành viên hoạt động
Tham gia
26/3/07
Bài viết
151
Được thích
0
Giới tính
Nam
Em có đính kèm file, kính mong anh chị em xem và hỗ trợ ah.
Em chỉ muốn tính số giờ nghỉ Lễ tết và Ngày nghỉ trên Bảng chấm công
Rất mong được sự hỗ trợ.
 

File đính kèm

tnfsmith đã viết:
Em có đính kèm file, kính mong anh chị em xem và hỗ trợ ah.
Em chỉ muốn tính số giờ nghỉ Lễ tết và Ngày nghỉ trên Bảng chấm công
Rất mong được sự hỗ trợ.
Nhấp chuột vào đây để mở rộng...
Không nên đăng nhiều bài cho 1 vấn đề, hạn chế viết từ tắt vì vi phạm nội qui của diễn đàn
Mã: 
O10 =MIN(SUMPRODUCT(COUNTIFS('CHI TIET'!D11:AH11,"<>",'CHI TIET'!$D$10:$AH$10,'CHI TIET'!$AK$9:$AK$21)),3)
Copy xuống
Makefile: 
M10 =MIN(SUMPRODUCT(('CHI TIET'!D11:AH11<>"")*(WEEKDAY('CHI TIET'!$D$10:$AH$10,2)>5)*(COUNTIF('CHI TIET'!$AK$9:$AK$21,'CHI TIET'!$D$10:$AH$10)=0)),3-O10)
Copy xuống
 

File đính kèm

HieuCD đã viết:
Không nên đăng nhiều bài cho 1 vấn đề, hạn chế viết từ tắt vì vi phạm nội qui của diễn đàn
Mã: 
O10 =MIN(SUMPRODUCT(COUNTIFS('CHI TIET'!D11:AH11,"<>",'CHI TIET'!$D$10:$AH$10,'CHI TIET'!$AK$9:$AK$21)),3)
Copy xuống
Makefile: 
M10 =MIN(SUMPRODUCT(('CHI TIET'!D11:AH11<>"")*(WEEKDAY('CHI TIET'!$D$10:$AH$10,2)>5)*(COUNTIF('CHI TIET'!$AK$9:$AK$21,'CHI TIET'!$D$10:$AH$10)=0)),3-O10)
Copy xuống
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã hỗ trợ.
Công thức hiện chỉ tính số ngày, mình muốn tính ra số giờ tương ứng với ngày đó (ví dụ:1 ngày thì 8 giờ, 2 ngày thì 16 giờ, 3 ngày thì 24 giờ) bạn có thể hỗ trợ thêm được không vậy?
Xin cám ơn
Bài đã được tự động gộp:

phuongvq123 đã viết:
tham khảo file, công thức hơi dài :))
Nhấp chuột vào đây để mở rộng...
Của bạn hơi khó hiểu nhưng ra chuẩn kết quả.

Cám ơn bạn nhiều lắm
 
tnfsmith đã viết:
Cám ơn bạn đã hỗ trợ.
Công thức hiện chỉ tính số ngày, mình muốn tính ra số giờ tương ứng với ngày đó (ví dụ:1 ngày thì 8 giờ, 2 ngày thì 16 giờ, 3 ngày thì 24 giờ) bạn có thể hỗ trợ thêm được không vậy?
Xin cám ơn
Bài đã được tự động gộp:


Của bạn hơi khó hiểu nhưng ra chuẩn kết quả.

Cám ơn bạn nhiều lắm
Nhấp chuột vào đây để mở rộng...
Nhân thêm cho 8 giờ/ngày
Mã: 
O10 =MIN(SUMPRODUCT(COUNTIFS('CHI TIET'!D11:AH11,"<>",'CHI TIET'!$D$10:$AH$10,'CHI TIET'!$AK$9:$AK$21)),3)*8
M10 =MIN(SUMPRODUCT(('CHI TIET'!D11:AH11<>"")*(WEEKDAY('CHI TIET'!$D$10:$AH$10,2)>5)*(COUNTIF('CHI TIET'!$AK$9:$AK$21,'CHI TIET'!$D$10:$AH$10)=0))*8,24-O10)
 
HieuCD đã viết:
Nhân thêm cho 8 giờ/ngày
Mã: 
O10 =MIN(SUMPRODUCT(COUNTIFS('CHI TIET'!D11:AH11,"<>",'CHI TIET'!$D$10:$AH$10,'CHI TIET'!$AK$9:$AK$21)),3)*8
M10 =MIN(SUMPRODUCT(('CHI TIET'!D11:AH11<>"")*(WEEKDAY('CHI TIET'!$D$10:$AH$10,2)>5)*(COUNTIF('CHI TIET'!$AK$9:$AK$21,'CHI TIET'!$D$10:$AH$10)=0))*8,24-O10)
Nhấp chuột vào đây để mở rộng...
Mình muốn thay vì để ngày nghỉ thì mình muốn cộng ngày giờ làm thêm theo màu được không nhỉ? ý là ngày lễ mình để màu đỏ, thứ 7, CN để màu xanh... và nó sẽ cộng theo ngày ra cho mình.
 
HieuCD đã viết:
"help mình" là gì vậy? không nên viết nữa nạc nữa mở, là quy định trong nội quy diễn đàn
Gởi file tô màu lên và nói rỏ cần tính cái gì
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã góp ý. Mình đã đính kèm file. Bạn xem có thể hỗ trợ mình được không nhé.
 

File đính kèm

tnfsmith đã viết:
Tô màu là được rùi bạn

Chị cần tô màu là đủ điều kiện rồi bạn, tô màu bằng tay ấy.
Nhấp chuột vào đây để mở rộng...
Màu đỏ và màu xanh có nhiều màu, phải tô đúng màu trong file
Mã: 
Option Compare Text

Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, tmp&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If NghiLe = 0 And ChamCong(i, j).Font.ColorIndex = 42 Then
            tmp = tmp + 1
          ElseIf NghiLe = 1 And ChamCong(i, j).Font.ColorIndex = 3 Then
            tmp = tmp + 1
          End If
        End If
      Next j
    End If
  Next i
  NgayNghi = tmp * 8
End Function
Xem cách nhập công thức trong file
 

File đính kèm

HieuCD đã viết:
Màu đỏ và màu xanh có nhiều màu, phải tô đúng màu trong file
Mã: 
Option Compare Text

Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, tmp&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If NghiLe = 0 And ChamCong(i, j).Font.ColorIndex = 42 Then
            tmp = tmp + 1
          ElseIf NghiLe = 1 And ChamCong(i, j).Font.ColorIndex = 3 Then
            tmp = tmp + 1
          End If
        End If
      Next j
    End If
  Next i
  NgayNghi = tmp * 8
End Function
Xem cách nhập công thức trong file
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn rất nhiều.
 
HieuCD đã viết:
Màu đỏ và màu xanh có nhiều màu, phải tô đúng màu trong file
Mã: 
Option Compare Text

Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, tmp&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If NghiLe = 0 And ChamCong(i, j).Font.ColorIndex = 42 Then
            tmp = tmp + 1
          ElseIf NghiLe = 1 And ChamCong(i, j).Font.ColorIndex = 3 Then
            tmp = tmp + 1
          End If
        End If
      Next j
    End If
  Next i
  NgayNghi = tmp * 8
End Function
Xem cách nhập công thức trong file
Nhấp chuột vào đây để mở rộng...
Mình đã test lại thì còn vấn đề này chưa giải quyết được đó là code chưa chạy đúng nếu tăng tô màu các Ngày Nghĩ cuối tuần càng nhiều thì code cứ tăng lên hơn số tổng là tối đa là 24 giờ/tháng và ưu tiên ngày Nghĩ Lễ trước, sau đó mới đến Ngày Nghĩ cuối tuần.

Bạn @HieuCD có thể xem lại dùm mình được không ah.
Xin cám ơn.
 
tnfsmith đã viết:
Mình đã test lại thì còn vấn đề này chưa giải quyết được đó là code chưa chạy đúng nếu tăng tô màu các Ngày Nghĩ cuối tuần càng nhiều thì code cứ tăng lên hơn số tổng là tối đa là 24 giờ/tháng và ưu tiên ngày Nghĩ Lễ trước, sau đó mới đến Ngày Nghĩ cuối tuần.

Bạn @HieuCD có thể xem lại dùm mình được không ah.
Xin cám ơn.
Nhấp chuột vào đây để mở rộng...
Code chỉ tính theo
tnfsmith đã viết:
Mình muốn thay vì để ngày nghỉ thì mình muốn cộng ngày giờ làm thêm theo màu được không nhỉ? ý là ngày lễ mình để màu đỏ, thứ 7, CN để màu xanh... và nó sẽ cộng theo ngày ra cho mình.
Nhấp chuột vào đây để mở rộng...
Màu nhập phải chuẩn
 
tnfsmith đã viết:
Màu mình nhập chuẩn rồi bạn. Nếu trong tháng có nhiều Ngày Nghỉ cuối tuần thì nó vẫn bị cộng dồn vào (nghĩa là lớn hơn 24giờ - số tối đa đc làm thêm trong 1 tháng)
Nhấp chuột vào đây để mở rộng...
Giớ hạn 24 giờ
Mã: 
Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, tmp&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If NghiLe = 0 And ChamCong(i, j).Font.ColorIndex = 42 Then
            tmp = tmp + 1
          ElseIf NghiLe = 1 And ChamCong(i, j).Font.ColorIndex = 3 Then
            tmp = tmp + 1
          End If
        End If
      Next j
    End If
  Next i
  If tmp >= 3 Then NgayNghi = 24 Else NgayNghi = tmp * 8
End Function
 
Muốn giới hạn ở mức 24 giờ không cần sửa UDF, dùng hàm min:

=MIN(24, công thức cũ)
 
HieuCD đã viết:
Giớ hạn 24 giờ
Mã: 
Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, tmp&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If NghiLe = 0 And ChamCong(i, j).Font.ColorIndex = 42 Then
            tmp = tmp + 1
          ElseIf NghiLe = 1 And ChamCong(i, j).Font.ColorIndex = 3 Then
            tmp = tmp + 1
          End If
        End If
      Next j
    End If
  Next i
  If tmp >= 3 Then NgayNghi = 24 Else NgayNghi = tmp * 8
End Function
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã hỗ trợ nhưng vấn đề là tổng của Ngày Lễ và ngày Nghỉ cuối tuần chỉ được 24 giờ thôi. Như yêu cầu bên dưới ấy bạn. Code hiện tại giới hạn cho chỉ ngày Lễ hoặc ngày Cuối Tuần là 24h tổng lại của 2 loại ngày nghỉ đó hơn 24h/tháng.
Tổng thời gian chấm công trong tháng của các ngày thứ bảy, chủ nhật và ngày lễ tối đa là 3 ngày tương đương 24 giờ (ưu tiên giờ chấm công cho ngày lễ, tết xong mới chuyển qua tính cho ngày thứ bảy, chủ nhật
Nhấp chuột vào đây để mở rộng...
 
tnfsmith đã viết:
Cám ơn bạn đã hỗ trợ nhưng vấn đề là tổng của Ngày Lễ và ngày Nghỉ cuối tuần chỉ được 24 giờ thôi. Như yêu cầu bên dưới ấy bạn. Code hiện tại giới hạn cho chỉ ngày Lễ hoặc ngày Cuối Tuần là 24h tổng lại của 2 loại ngày nghỉ đó hơn 24h/tháng.
Nhấp chuột vào đây để mở rộng...
Chỉnh tiếp
Mã: 
Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, Le&, CN&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If ChamCong(i, j).Font.ColorIndex = 42 Then
            CN = CN + 1
          ElseIf ChamCong(i, j).Font.ColorIndex = 3 Then
            Le = Le + 1
          End If
        End If
      Next j
    End If
  Next i
 
  If Le >= 3 Then NgayNghi = 24 Else NgayNghi = Le * 8
  If NghiLe = 0 Then
    If CN * 8 >= 24 - NgayNghi Then
      NgayNghi = 24 - NgayNghi
    Else
      NgayNghi = CN * 8
    End If
  End If
End Function
 
HieuCD đã viết:
Chỉnh tiếp
Mã: 
Function NgayNghi(MaNV$, Maso As Range, ChamCong As Range, Optional NghiLe& = 0) As Single
  Dim sRow&, sCol&, i&, j&, Le&, CN&
  sRow = ChamCong.Rows.Count: sCol = ChamCong.Columns.Count
  For i = 1 To sRow
    If MaNV = Maso(i, 1).Value Then
      For j = 1 To sCol
        If ChamCong(i, j).Value <> Empty Then
          If ChamCong(i, j).Font.ColorIndex = 42 Then
            CN = CN + 1
          ElseIf ChamCong(i, j).Font.ColorIndex = 3 Then
            Le = Le + 1
          End If
        End If
      Next j
    End If
  Next i

  If Le >= 3 Then NgayNghi = 24 Else NgayNghi = Le * 8
  If NghiLe = 0 Then
    If CN * 8 >= 24 - NgayNghi Then
      NgayNghi = 24 - NgayNghi
    Else
      NgayNghi = CN * 8
    End If
  End If
End Function
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn nhiều. Code chạy chuẩn rồi bạn. Chỉ có cái là khi mình đổi màu vào ô tương ứng để đánh dấu ngày nghỉ thì công thức nó không tự động tính toán lại số giờ, phải F2 tại ô đó hoặc kéo lại công thức thì mới tính toán lại. Trong thiết lập Formulas của Excel mình đã để Automatic rồi mà vẫn không hiệu quả.

Xin hỏi bạn @HieuCD là có cách nào để sau khi mình đổi màu đánh dấu ngày nghỉ thì công thức nó tự chạy mà không cần phải F2 hay kéo công thức cả cột để cập nhật lại số giờ.

Xin cám ơn bạn nhiều lắm
 
tnfsmith đã viết:
Cám ơn bạn nhiều. Code chạy chuẩn rồi bạn. Chỉ có cái là khi mình đổi màu vào ô tương ứng để đánh dấu ngày nghỉ thì công thức nó không tự động tính toán lại số giờ, phải F2 tại ô đó hoặc kéo lại công thức thì mới tính toán lại. Trong thiết lập Formulas của Excel mình đã để Automatic rồi mà vẫn không hiệu quả.

Xin hỏi bạn @HieuCD là có cách nào để sau khi mình đổi màu đánh dấu ngày nghỉ thì công thức nó tự chạy mà không cần phải F2 hay kéo công thức cả cột để cập nhật lại số giờ.

Xin cám ơn bạn nhiều lắm
Nhấp chuột vào đây để mở rộng...
Đổi màu Function không tự cập nhật được, bắt sự kiện mở sheet
Chép code dán vào sheet Tonghop
Mã: 
Private Sub Worksheet_Activate()
  Sheet2.Calculate
End Sub
 
Mình còn thêm 1 sheet để hoàn thành công việc mong bạn @HieuCD xem và hỗ trợ dùm mình cho xong luôn ah.
Yêu cầu chi tiết mình có đính kèm theo file Excel. (chủ yếu lấy ngày được đánh dấu chấm công để lên sheet Cham Cong)

Mình rất cám ơn bạn đã nhiệt tình giúp đỡ.
 

File đính kèm

tnfsmith đã viết:
Mình còn thêm 1 sheet để hoàn thành công việc mong bạn @HieuCD xem và hỗ trợ dùm mình cho xong luôn ah.
Yêu cầu chi tiết mình có đính kèm theo file Excel. (chủ yếu lấy ngày được đánh dấu chấm công để lên sheet Cham Cong)

Mình rất cám ơn bạn đã nhiệt tình giúp đỡ.
Nhấp chuột vào đây để mở rộng...
Không biết có giới hạn số giờ công không?
 

File đính kèm

HieuCD đã viết:
Làm thêm 5 ngày vậy bỏ ngày nào không liệt kê? cho ví dụ nha
Nhấp chuột vào đây để mở rộng...
Cũng tối đa là 3 ngày ah bạn mỗi ngày 8 giờ, ưu tiên thì cũng ngày Lễ sau đó đến ngày Cuối tuần. Ngày lễ thì theo bảng ngày Nghỉ lễ trong năm.

Cám ơn bạn nhiều lắm
 
tnfsmith đã viết:
Cũng tối đa là 3 ngày ah bạn mỗi ngày 8 giờ, ưu tiên thì cũng ngày Lễ sau đó đến ngày Cuối tuần. Ngày lễ thì theo bảng ngày Nghỉ lễ trong năm.

Cám ơn bạn nhiều lắm
Nhấp chuột vào đây để mở rộng...
Ý mình là trình bày kết quả như thế nào?
Nhập tay kết quả
 

File đính kèm

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

phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên (1 người xem)
    • Cảm ơn
Trả lời
3
Đọc
184
A-T
A
T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu
    • Cười
Trả lời
2
Đọc
71
HUONGHCKT
H
F
Mấy cao thủ giúp dùm mình với. File excel bị lỗi mà mình không biết lỗi chỗ nào để sửa.
Trả lời
2
Đọc
56
firstbood
F
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (10 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
438
Đọc
58K
sát thủ uyên ương
S
X
Làm thế nào để ẩn "Blank" trong Pivot table
    • Thích
Trả lời
15
Đọc
36K
nguyenngochieu761321
nguyenngochieu761321
V
Quản lý xuất nhập vật tư trong kho
Trả lời
17
Đọc
680
LOGANWover
L
H
Đánh số thự theo lượt
Trả lời
5
Đọc
123
hongminh_0306
H
D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL
Trả lời
2
Đọc
171
danhpheo
D
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show
Trả lời
2
Đọc
125
AnhThu-1976
A
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ. (1 người xem)
Trả lời
5
Đọc
190
truc.duong87
T
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
138
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới. (1 người xem)
Trả lời
7
Đọc
328
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter (1 người xem)
Trả lời
8
Đọc
193
eagle12
E
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox (2 người xem)
    • Cười
Trả lời
8
Đọc
435
ongke0711
ongke0711
befaint
[ Python và ứng dụng ] Công cụ trích xuất hàng loạt hóa đơn điện tử XML vào bảng Excel (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
9K
Hoale85
H
Nam168
Không mở được file excel
Trả lời
2
Đọc
119
Nam168
Nam168
phuongnam366377
Sử dụng COM DLL **không cần đăng ký** với Delphi 12 / C++ Builder (1 người xem)
    • Thích
Trả lời
0
Đọc
134
phuongnam366377
phuongnam366377
N
Định mức nguyên vật liệu (3 người xem)
Trả lời
49
Đọc
5K
ntan50
N
H
  • Question Question
Dò tìm giá trị từ bảng khác theo cột (1 người xem)
Trả lời
6
Đọc
344
Chả_biết_gì
C
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