Giúp đỡ công thức trong bảng công

[Quang Tinh]

Đây là file một thành viên GPE nhờ mình đưa lên nhờ các bạn giúp. Yêu cầu được nói rõ ở file đính kèm

 

[dat_butmuc]

Đây là file một thành viên GPE nhờ mình đưa lên nhờ các bạn giúp. Yêu cầu được nói rõ ở file đính kèm

Quang Tinh?
File đính kèm có nói gì đâu, chỉ thấy mấy thứ, mấy con số và công thức?
Vẫn chưa hiểu cần giúp gì?

 

[Quang Tinh]

Có rồi mà lúc trước mình có gửi lại bạn down thử lại xem. Mấy cái dòng yêu cầu ở dưới ấy

 

[Quang Tinh]

Cái này tớ cũng đang làm yêu cầu thứ nhất về giờ làm việc thì dùng hàm sumif khỏe rồi mấy yêu cầu sau đang làm để tớ gửi lại file vậy

 

[Quang Tinh]

Không biết bạn yoomi có online không hỏi bạn cái yêu cầu thứ nhất và thứ 3 thì dùng hàm sumif và countif thì có thể thực hiện được . Nhưng cái vấn đề bạn yêu cầu về ngừng việc và ngày lễ không hiểu rõ lắm .Có phải những ngày có ô trống là tính luôn làm 0 giờ không hay bỏ qua. Và ngày lễ có phải là ngày chủ nhật không???

 

[dat_butmuc]

Cái này tớ cũng đang làm yêu cầu thứ nhất về giờ làm việc thì dùng hàm sumif khỏe rồi mấy yêu cầu sau đang làm để tớ gửi lại file vậy

Xem file đính kèm nhé !

 

[Quang Tinh]

Bác đat but muc ơi cái này dùng sumif và countif cũng được mà cần gì SUMPRODUCT .Công nhận bác làm cũng nhanh thật

 

[dat_butmuc]

Bác đat but muc ơi cái này dùng sumif và countif cũng được mà cần gì SUMPRODUCT .Công nhận bác làm cũng nhanh thật

Bạn thử làm và gửi lên xem nào? Tôi chưa làm được khi mà dùng sumif và countif ?

 

[Quang Tinh]

Xin lỗi bác datbutmuc bây giờ mới gửi được, bác xem góp ý nhá (tại ghost lại máy bên cạnh cài lại một số phần mềm nữa ). Mà cái vấn đề ngày lễ chả hiểu biết ngày nào là ngày lễ nhỉ dữ liệu còn thiếu chăng?

 

[SA_DQ]

Hàm tự tạo tính tất các loại công cho bạn đây, xin mời

Option Explicit
Function TKCong(LookUpRange As Range, Optional Tuan As Range, _
   Optional LoaiCong As String = "X") As Variant
 Dim Clls As Range
 
 For Each Clls In LookUpRange
   With Clls
      Select Case UCase$(LoaiCong)
      Case "X"
         If IsNumeric(.Value) And .Value <= 8 Then TKCong = TKCong + .Value
      Case "N"
         If IsNumeric(.Value) And .Value < 8 And .Value <> "" Then _
            TKCong = TKCong + (8 - .Value)
      Case "T", "TG"
         If IsNumeric(.Value) And .Value > 8 Then TKCong = TKCong + .Value - 8
      Case "C", "CN"
         If Cells(Tuan.Cells(1, 1).Row, .Column).Value = "CN" Then _
            TKCong = TKCong + .Value
      Case "L"
         If InStr(.Value, "L") And Len(.Value) > 1 Then _
            TKCong = TKCong + CDbl(Mid(.Value, 2))
      Case Else
      End Select
   End With
 Next Clls
End Function

Chú í khi sử dụng:

(*) Trong VBA rất khó chịu với tiếng Việt, nên mình đã thay dòng D4:AH4 bằng các ký tự CN, T2, T3, , , , & vùng này mình đã gán tên là 'Tuan'

(*) Cú pháp hàm tại 'AI7' như sau: =tkcong($D7:$AH7,,"X"), hay ta chỉ cần =tkcong($D7:$AH7) cũng OK
(Khi Copy xuống dưới ta chú í địa chỉ hỗn hợp trong công thức)

Công thức ô bên phải liền kề sẽ có cú pháp: =tkcong($D7:$AH7,,"N")

Tiếp theo sẽ là: =tkcong($D7:$AH7,,"T")
=tkcong($D7:$AH7,Tuan,"CN")
& cuối cùng là tính công làm ngày lễ: =tkcong($D7:$AH7,,"L")
Qui ước làm ngày lễ chấm công là L8 (làm 8 giờ) hay L4 (tương ứng với làm 4 giờ)

Các bạn xem thêm trong file đính kèm của nhân viên thứ hai.

Chúc thanh công!

 

[buttri]

Hỏi về in trong winword

Xin chào tất cả
trên trang giấy ngang chia làm 2 cột dữ liệu,cho hỏi về:
- đánh số trang (cho 2 cột trên 1 trang)
- trong word có chức năng điều chỉnh dữ liệu để đóng thành sách ko
xin hướng dẫn giúp
thank