Hỏi về cách làm bảng chấm công tự động (1 người xem)

ducmagic88 · 30/9/21

Em chào các bác! Em đang có vấn đề về bảng chấm công muốn được các bác giúp đỡ ạ. Em muốn nhập dữ liệu vào ô đã tô vàng trong file từ đó sẽ tự động đánh số công như thông tin mình đã điền vào ô vàng ạ, các bác trợ giúp em với, em cảm ơn các bác nhiều ạ!

Hoàng Trọng Nghĩa · 30/9/21

ducmagic88 đã viết:
Em chào các bác! Em đang có vấn đề về bảng chấm công muốn được các bác giúp đỡ ạ. Em muốn nhập dữ liệu vào ô đã tô vàng trong file từ đó sẽ tự động đánh số công như thông tin mình đã điền vào ô vàng ạ, các bác trợ giúp em với, em cảm ơn các bác nhiều ạ!

Cho hỏi nha, Chủ nhật cũng chấm công nữa hả bạn?
Và CN có 5 cái trong tháng là dữ lắm, nhưng bạn tính sao thành 6 ngày vậy?

SA_DQ · 30/9/21

Hoàng Trọng Nghĩa đã viết:
Và CN có 5 cái trong tháng là dữ lắm, nhưng bạn tính sao thành 6 ngày vậy?

Nếu ngày đầu tháng là CN thì ngày CN cuối cùng của tháng đó sẽ là ngày 29 & như thế chỉ 5 cái CN thôi.
Nhưng chắc tác giả bài đăng tính cả ngày nghỉ lễ nên thành 6 CN chăng(?!). Nếu đúng như mình nghĩ thì đó là tháng 3 (mùa con ong đi lấy mật. . . .!)

Thường là tạo ra bảng chấm công này để đối phó với CQ quản lý LĐ; Lúc đó chả cần tính toán gì sất, lấy tờ chấm công mẫu ra mà phết vô thôi.

ducmagic88 · 30/9/21

Hoàng Trọng Nghĩa đã viết:
Cho hỏi nha, Chủ nhật cũng chấm công nữa hả bạn?
Và CN có 5 cái trong tháng là dữ lắm, nhưng bạn tính sao thành 6 ngày vậycBác ơi, em bấm nhầm bác ạ

Có nơi lại làm chủ nhật nghỉ thứ bảy bác ạ.
Còn chỗ chủ nhật là em nhìn nhầm ạ, xin lỗi các bác!

Hoàng Trọng Nghĩa · 30/9/21

ducmagic88 đã viết:
Có nơi lại làm chủ nhật nghỉ thứ bảy bác ạ.
Còn chỗ chủ nhật là em nhìn nhầm ạ, xin lỗi các bác!

Nghỉ ngày T7, CN vậy nghỉ ngày thường nhét vào đâu? Ngày lễ và ngày phép để chung cột nghỉ nguyên lương à? Tổng số ngày được tính lương bao gồm ngày phép và ngày lễ? Ngày lễ nếu làm việc có nhân hệ số không?

ducmagic88 · 30/9/21

Hoàng Trọng Nghĩa đã viết:
View attachment 267035

Nghỉ ngày T7, CN vậy nghỉ ngày thường nhét vào đâu? Ngày lễ và ngày phép để chung cột nghỉ nguyên lương à? Tổng số ngày được tính lương bao gồm ngày phép và ngày lễ? Ngày lễ nếu làm việc có nhân hệ số không?

- Em sửa lại rồi ạ
- Ngày lễ không nhân hệ số ạ

Hoàng Trọng Nghĩa · 30/9/21

ducmagic88 đã viết:
- Em sửa lại rồi ạ
- Ngày lễ không nhân hệ số ạ

Lẽ ra như vầy mới đúng chứ nhỉ?

Tôi hỏi lại là ngày phép P có hưởng lương không? còn nếu nghỉ phép không hưởng lương thì xem như nghỉ việc riêng R.

ducmagic88 · 30/9/21

Hoàng Trọng Nghĩa đã viết:
Lẽ ra như vầy mới đúng chứ nhỉ?
View attachment 267038

Tôi hỏi lại là ngày phép P có hưởng lương không? còn nếu nghỉ phép không hưởng lương thì xem như nghỉ việc riêng R.

dạ không hưởng lương ạ, xem như mình có việc mình xin nghỉ thôi ạ

Hoàng Trọng Nghĩa · 30/9/21

ducmagic88 đã viết:
dạ không hưởng lương ạ, xem như mình có việc mình xin nghỉ thôi ạ

1) Hàng 1, tại ô A1 bạn chỉ gõ ngày 1/12/2020 (nói chung là ngày đầu tháng của một tháng nào đó), tôi đã định dạng cho nó thành "BẢNG CHẤM CÔNG THÁNG " mm/yyyy, như thế bạn không phải gõ gì thêm.
2) Bạn chỉ cần gõ tại ô A1 như thế thì hàng 3, các cột ngày sẽ tự động điều chỉnh theo ngày trong tháng.
3) Hàng 4 các cột thứ tôi cũng đã làm công thức theo ngày của hàng 3: =IF(WEEKDAY(E3)=1,"CN","Thứ " & WEEKDAY(E3))
4) Còn lại là các công thức theo yêu cầu của bạn.

ducmagic88 · 30/9/21

Hoàng Trọng Nghĩa đã viết:
1) Hàng 1, tại ô A1 bạn chỉ gõ ngày 1/12/2020 (nói chung là ngày đầu tháng của một tháng nào đó), tôi đã định dạng cho nó thành "BẢNG CHẤM CÔNG THÁNG " mm/yyyy, như thế bạn không phải gõ gì thêm.
2) Bạn chỉ cần gõ tại ô A1 như thế thì hàng 3, các cột ngày sẽ tự động điều chỉnh theo ngày trong tháng.
3) Hàng 4 các cột thứ tôi cũng đã làm công thức theo ngày của hàng 3: =IF(WEEKDAY(E3)=1,"CN","Thứ " & WEEKDAY(E3))
4) Còn lại là các công thức theo yêu cầu của bạn.

Bác ơi, hình như bác hiểu nhầm ý em rồi ạ. Em muốn làm bài toán ngược ấy bác ạ, điền hết các ngày công, nghỉ lễ, nghỉ phép rồi sau đó bấm là chạy ngược ra đánh "x", "x/2", "P",... sao cho phù hợp với thông tin mình đã điền ở ô bôi vàng ấy bác ạ

Hoàng Trọng Nghĩa · 30/9/21

ducmagic88 đã viết:
Bác ơi, hình như bác hiểu nhầm ý em rồi ạ. Em muốn làm bài toán ngược ấy bác ạ, điền hết các ngày công, nghỉ lễ, nghỉ phép rồi sau đó bấm là chạy ngược ra đánh "x", "x/2", "P",... sao cho phù hợp với thông tin mình đã điền ở ô bôi vàng ấy bác ạ

Bạn cho tôi biết nếu như x/2 thì sẽ được nhét vào ngày nào?
Số ngày nghỉ (phép, lễ, riêng) sẽ nhét vào đâu?
Xin lỗi, tôi không có khả năng truy ngược được.

ducmagic88 · 30/9/21

Hoàng Trọng Nghĩa đã viết:
Bạn cho tôi biết nếu như x/2 thì sẽ được nhét vào ngày nào?
Số ngày nghỉ (phép, lễ, riêng) sẽ nhét vào đâu?
Xin lỗi, tôi không có khả năng truy ngược được.

Bác ơi, vậy có cách nào đơn giản chỉ cần đánh số ngẫu nhiên theo ngày công không ạ, ví dụ là 26 thì nó tự đánh ngẫu nhiên 26 "x" cho mình không ạ, không cần phải theo từng trường hợp nữa ạ

SA_DQ · 1/10/21

Trước tiên phải nói rằng:
Bộ LĐ TB & XH có ban hành BCC (bảng chấm công chuẩn), trong đó có các loại công F, CO, Ô, TN, RC, H (. . .) là các công có lương (được trả từ BHXH hay BHYT)
Ở các cơ sở tư nhân thì có thể ghi trong thỏa ước răng nghỉ việc 1 vài ngày phải xin phép & là không lương, cái này qui định của Bộ là RO (nghỉ không lương); Nhưng họ vẫn quen gọi F (không lương)

(Có thể xem như cố tình xài từ ngữ nhập nhèm nhằm mục đích gì đó (có trời mới biết))

Thứ đến: Đây là BCC để đối phó, nhưng công trình lớn hàng vạn CNV, nên mới cần tự động tạo ra nhưng BCC trời ơi như thế;
Nếu ngay từ đầu nói rõ ra thì đã xong từ lâu rồi, cứ nhập nhèm chi cho tốn thời gian;
Cách đây vài năm mình có làm file 'BCC láo' này trên diễn đàn rồi; Giờ mình không muốn tìm lại được vì khả năng 'tìm' của mình là hữu hạn.
Còn làm mới theo iêu cầu tối thiểu như #12 thì OK, hãy đợi đấy,. . . . . (tuy hơi dài)!

Bác ơi, vậy có cách nào đơn giản chỉ cần đánh số ngẫu nhiên theo ngày công không ạ, ví dụ là 26 thì nó tự đánh ngẫu nhiên 26 "x" cho mình không ạ, không cần phải theo từng trường hợp nữa ạ

Phương án mình nghỉ là vầy:
(*) (Số liệu ban đầu) cần xác định là tháng cân chấm công có bao nhiêu ngày & bao nhiêu trong ý là ngày CN
Tạo vòng lặp duyệt từ đầu tháng, ngày nào là CN thì bỏ ra, còn ngày thường thì biến thành chuỗi & nối lại như kiểu
'010203040607,. . . . .2527282930' (Tháng 04/2020)
Như vậy ta biết độ dài của chuỗi & đối chiếu với số công được vẽ ra trong tháng đó có còn đủ thì ấn vô;
Tinh vi hơn thì ấn ngẫu nhiên các công RO vô trước & chịu khó duyệt lại lần 2 cho công 'X' & 'X/2'

Chúc các bạn khỏe & vui!

Hoàng Trọng Nghĩa · 1/10/21

ducmagic88 đã viết:
Bác ơi, vậy có cách nào đơn giản chỉ cần đánh số ngẫu nhiên theo ngày công không ạ, ví dụ là 26 thì nó tự đánh ngẫu nhiên 26 "x" cho mình không ạ, không cần phải theo từng trường hợp nữa ạ

Khó cái là 11 ngày lễ, trong đó những ngày lễ âm lịch như Giỗ Tổ Hùng Vương, Tết Nguyên Đán thì làm sao mà biết ngày nào mà chấm? Giờ lễ Quốc khánh lại có thêm 1 ngày, chẳng biết nó là ngày 1/9 hay 3/9, rồi nghỉ bù lễ như thế nào v.v...

SA_DQ · 1/10/21

Hoàng Trọng Nghĩa đã viết:
Khó cái là 11 ngày lễ, trong đó những ngày lễ âm lịch như Giỗ Tổ Hùng Vương, Tết Nguyên Đán thì làm sao mà biết ngày nào mà chấm? Giờ lễ Quốc khánh lại có thêm 1 ngày, chẳng biết nó là ngày 1/9 hay 3/9, rồi nghỉ bù lễ như thế nào v.v...

Tất tần tật các ngày lễ đều phải qui chuyển về dương lịch;
Còn nghỉ vô ngày 1/09 hay 3/09 Ô. nhà nước đã giao cho cấp dưới tùy xử rồi, có nghĩa là sao cũng OK & chỉ là 1 ngày; Nếu kỹ chút thì ngày nào gần CN hơn thì lấy sẽ là OK;
& các ngày lễ này có danh sách riêng để tra & loại ra;
Thêm nữa, CQ phải làm BCC láo này thường là ngành XD, & như vậy 'Làm' xuyên lễ là chuyện bình thường, khỏi lăn tăn ai bắt bẽ, cự nự được với mấy ông nội này! Zây với họ (riêng chuyện này) sẽ đâm ngu ra!
. . . . . . . .

HieuCD · 1/10/21

ducmagic88 đã viết:
- Em sửa lại rồi ạ
- Ngày lễ không nhân hệ số ạ

Theo file không xét ngày lể
Code bắt sự kiện sheet data

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim j&
  If Target.Address = "$A$1" Then
    If IsDate(Target.Value) Then
      Application.EnableEvents = False
      Target.Value = Target.Value - Day(Target.Value) + 1
      j = DateAdd("m", 1, Range("E3")) - Range("E3")
      Range("AF3:AI3").EntireColumn.Hidden = False
      If j < 31 Then Range("E3").Offset(, j).Resize(, 31 - j).EntireColumn.Hidden = True
      Application.EnableEvents = True
    End If
  End If
End Sub

Code chấm công ngẫu nhiên

Mã:

Sub XYZAB()
  Dim sArr(), aNgay(), aThuong(), aT7(), aCN(), arr, res()
  Dim soNgay&, NgayThuong&, soT7&, soCN&
  Dim NgayLV&, lvCH&, lvT7&, NuaNgay#
  Dim sRow&, i&, j&, k&, k2&, k3&, N&, M&

  Randomize
  soNgay = DateAdd("m", 1, Range("E3")) - Range("E3")
  aNgay = Range("E3").Resize(, soNgay)
  sArr = Range("AJ7:AN" & Range("B1000").End(xlUp).Row).Value
  sRow = UBound(sArr)
  ReDim res(1 To sRow + 1, 1 To 31)
  ReDim aThuong(1 To soNgay)
  ReDim aT7(1 To 10):  ReDim aCN(1 To 10)
 
  For j = 1 To soNgay
    res(sRow + 1, j) = Weekday(aNgay(1, j), vbMonday)
    If res(sRow + 1, j) = 7 Then
      soCN = soCN + 1                                 'So ngay CN
      k = k + 1
      aCN(k) = j
    ElseIf res(sRow + 1, j) = 6 Then
      soT7 = soT7 + 1                                 'So ngay Thu 7
      k2 = k2 + 1
      aT7(k2) = j
    Else
      k3 = k3 + 1
      aThuong(k3) = j
    End If
  Next j
  For i = 1 To sRow
    If sArr(i, 4) > soT7 Or sArr(i, 5) > soCN Then _
        MsgBox ("So ngay nghi T7 hoac CN sai!"): Exit Sub
'Ngay thuong
    NgayThuong = soNgay - soT7 - soCN                     'So ngay thuong
    sArr(i, 4) = soT7 - sArr(i, 4)                        'So ngay lam viec thu 7
    sArr(i, 5) = soCN - sArr(i, 5)                        'So ngay lam viec CN
    sArr(i, 1) = sArr(i, 1) - Int(sArr(i, 4) + 0.5) - Int(sArr(i, 5) + 0.5)
    NuaNgay = NgayThuong - sArr(i, 1) - sArr(i, 2) - sArr(i, 3)             'So ngay thuong lam nua ngay
    If NuaNgay < 0 Then MsgBox ("So ngay Lam Viec va Nghi qua lon!"): Exit Sub
    NgayLV = sArr(i, 1) - NuaNgay                         'So ngay thuong lam 1 ngay
    NuaNgay = NuaNgay * 2                                 'So ngay thuong lam nua ngay
    arr = UniqueRand(NgayThuong)
    k = 0
    For j = 1 To NgayLV       '1 Ngay
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To NuaNgay      'Nua ngay
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "X/2"
    Next j
    For j = 1 To sArr(i, 2)   'Nghi khong luong
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "0"
    Next j
    For j = 1 To sArr(i, 2)   'Nghi co luong
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "L"
    Next j
'Thu 7
    k = 0
    N = Int(sArr(i, 4))
    M = Int(sArr(i, 4) + 0.5)
    arr = UniqueRand(soT7)
    For j = 1 To N            '1 ngay
      k = k + 1
      jcol = aT7(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To M - N        'Nua ngay
      k = k + 1
      jcol = aT7(arr(k))
      res(i, jcol) = "X/2"
    Next j
'Chu nhat
    k = 0
    N = Int(sArr(i, 5))
    M = Int(sArr(i, 5) + 0.5)
    arr = UniqueRand(soCN)
    For j = 1 To N            '1 ngay
      k = k + 1
      jcol = aCN(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To M - N        'Nua ngay
      k = k + 1
      jcol = aCN(arr(k))
      res(i, jcol) = "X/2"
    Next j
  Next i
  Range("E7").Resize(sRow, 31) = res
End Sub

Function UniqueRand(ByVal N As Long) As Variant
Dim arr() As Long, i As Long, RndNum As Long, tmp As Long
ReDim arr(1 To N)
'Randomize
For i = 1 To N
    RndNum = Int(N * Rnd() + 1)
    If arr(RndNum) = 0 Then tmp = RndNum Else tmp = arr(RndNum)
    If arr(N) = 0 Then arr(RndNum) = N Else arr(RndNum) = arr(N)
    arr(N) = tmp
    N = N - 1
Next i
UniqueRand = arr
End Function

Maika8008 · 1/10/21

HieuCD đã viết:

Theo file không xét ngày lể
Code bắt sự kiện sheet data

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim j&
  If Target.Address = "$A$1" Then
    If IsDate(Target.Value) Then
      Application.EnableEvents = False
      Target.Value = Target.Value - Day(Target.Value) + 1
      j = DateAdd("m", 1, Range("E3")) - Range("E3")
      Range("AF3:AI3").EntireColumn.Hidden = False
      If j < 31 Then Range("E3").Offset(, j).Resize(, 31 - j).EntireColumn.Hidden = True
      Application.EnableEvents = True
    End If
  End If
End Sub

Code chấm công ngẫu nhiên

Mã:

Sub XYZAB()
  Dim sArr(), aNgay(), aThuong(), aT7(), aCN(), arr, res()
  Dim soNgay&, NgayThuong&, soT7&, soCN&
  Dim NgayLV&, lvCH&, lvT7&, NuaNgay#
  Dim sRow&, i&, j&, k&, k2&, k3&, N&, M&

  Randomize
  soNgay = DateAdd("m", 1, Range("E3")) - Range("E3")
  aNgay = Range("E3").Resize(, soNgay)
  sArr = Range("AJ7:AN" & Range("B1000").End(xlUp).Row).Value
  sRow = UBound(sArr)
  ReDim res(1 To sRow + 1, 1 To 31)
  ReDim aThuong(1 To soNgay)
  ReDim aT7(1 To 10):  ReDim aCN(1 To 10)
 
  For j = 1 To soNgay
    res(sRow + 1, j) = Weekday(aNgay(1, j), vbMonday)
    If res(sRow + 1, j) = 7 Then
      soCN = soCN + 1                                 'So ngay CN
      k = k + 1
      aCN(k) = j
    ElseIf res(sRow + 1, j) = 6 Then
      soT7 = soT7 + 1                                 'So ngay Thu 7
      k2 = k2 + 1
      aT7(k2) = j
    Else
      k3 = k3 + 1
      aThuong(k3) = j
    End If
  Next j
  For i = 1 To sRow
    If sArr(i, 4) > soT7 Or sArr(i, 5) > soCN Then _
        MsgBox ("So ngay nghi T7 hoac CN sai!"): Exit Sub
'Ngay thuong
    NgayThuong = soNgay - soT7 - soCN                     'So ngay thuong
    sArr(i, 4) = soT7 - sArr(i, 4)                        'So ngay lam viec thu 7
    sArr(i, 5) = soCN - sArr(i, 5)                        'So ngay lam viec CN
    sArr(i, 1) = sArr(i, 1) - Int(sArr(i, 4) + 0.5) - Int(sArr(i, 5) + 0.5)
    NuaNgay = NgayThuong - sArr(i, 1) - sArr(i, 2) - sArr(i, 3)             'So ngay thuong lam nua ngay
    If NuaNgay < 0 Then MsgBox ("So ngay Lam Viec va Nghi qua lon!"): Exit Sub
    NgayLV = sArr(i, 1) - NuaNgay                         'So ngay thuong lam 1 ngay
    NuaNgay = NuaNgay * 2                                 'So ngay thuong lam nua ngay
    arr = UniqueRand(NgayThuong)
    k = 0
    For j = 1 To NgayLV       '1 Ngay
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To NuaNgay      'Nua ngay
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "X/2"
    Next j
    For j = 1 To sArr(i, 2)   'Nghi khong luong
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "0"
    Next j
    For j = 1 To sArr(i, 2)   'Nghi co luong
      k = k + 1
      jcol = aThuong(arr(k))
      res(i, jcol) = "L"
    Next j
'Thu 7
    k = 0
    N = Int(sArr(i, 4))
    M = Int(sArr(i, 4) + 0.5)
    arr = UniqueRand(soT7)
    For j = 1 To N            '1 ngay
      k = k + 1
      jcol = aT7(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To M - N        'Nua ngay
      k = k + 1
      jcol = aT7(arr(k))
      res(i, jcol) = "X/2"
    Next j
'Chu nhat
    k = 0
    N = Int(sArr(i, 5))
    M = Int(sArr(i, 5) + 0.5)
    arr = UniqueRand(soCN)
    For j = 1 To N            '1 ngay
      k = k + 1
      jcol = aCN(arr(k))
      res(i, jcol) = "X"
    Next j
    For j = 1 To M - N        'Nua ngay
      k = k + 1
      jcol = aCN(arr(k))
      res(i, jcol) = "X/2"
    Next j
  Next i
  Range("E7").Resize(sRow, 31) = res
End Sub

Function UniqueRand(ByVal N As Long) As Variant
Dim arr() As Long, i As Long, RndNum As Long, tmp As Long
ReDim arr(1 To N)
'Randomize
For i = 1 To N
    RndNum = Int(N * Rnd() + 1)
    If arr(RndNum) = 0 Then tmp = RndNum Else tmp = arr(RndNum)
    If arr(N) = 0 Then arr(RndNum) = N Else arr(RndNum) = arr(N)
    arr(N) = tmp
    N = N - 1
Next i
UniqueRand = arr
End Function

Chà, dài ơi là dài.

HieuCD · 1/10/21

Maika8008 đã viết:
Chà, dài ơi là dài.