Giúp em tính thưởng theo sản phẩm (1 người xem)

[SA_DQ]

Bạn kiểm số ngày làm việc của từng SF theo bảng sau:

Mã SF

Tên máy

Ngày LV

m1gvs

23​

m2gvs

16​

m1nk

18

m2nk

2​

m3rut

5​

m4uot

17​

Chờ tin từ bạn!

 

[Kieutri123]

Bạn kiểm số ngày làm việc của từng SF theo bảng sau:

Mã SF

Tên máy

Ngày LV

m1gvs

23​

m2gvs

16​

m1nk

18

m2nk

2​

m3rut

5​

m4uot

17​

Chờ tin từ bạn!

Dạ đúng rồi anh. Mong thư anh rất nhiều.

 

[SA_DQ]

Đây là macro để tính ra các số liệu đó & có trong file:

Sub TinhSoNgayLamViecTrongThang()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim fDat As Date, SoNgay As Integer, lDat As Date, J As Integer, NgayLV As Integer
 Dim MyAdd As String
 
 Set Sh = ThisWorkbook.Worksheets("Data"):      Rws = Sh.[A2].CurrentRegion.Rows.Count
 Set Rng = Sh.[A3].Resize(Rws):                 Sheets("TK Ngay").Select
 fDat = DateSerial(Year(Sh.[A3].Value), Month(Sh.[A3].Value), 1)
 lDat = DateSerial(Year(Sh.[A3].Value), 1 + Month(Sh.[A3].Value), 0)
 SoNgay = lDat - fDat + 1:                      Rng.NumberFormat = "MM/DD/yyyy"
 For Each Cls In Range([B8], [B8].End(xlDown))  'Duyêt Theo Mã Hàng '
    For J = 1 To SoNgay                         'Duyêt Theo Các Ngày Trong Tháng    '
        Set sRng = Rng.Find(Format(J + fDat, "MM/DD/yyyy"), , xlValues, xlWhole)
        If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
                If sRng.Offset(, 1).Value = Cls.Value Then
                    NgayLV = NgayLV + 1:        Exit Do
                End If
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Else
        End If
    Next J
    Cells(Cls.Row, "AO").Value = NgayLV:    NgayLV = 0
 Next Cls
End Sub

 

[Kieutri123]

Đây là macro để tính ra các số liệu đó & có trong file:

Sub TinhSoNgayLamViecTrongThang()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim fDat As Date, SoNgay As Integer, lDat As Date, J As Integer, NgayLV As Integer
 Dim MyAdd As String
 
 Set Sh = ThisWorkbook.Worksheets("Data"):      Rws = Sh.[A2].CurrentRegion.Rows.Count
 Set Rng = Sh.[A3].Resize(Rws):                 Sheets("TK Ngay").Select
 fDat = DateSerial(Year(Sh.[A3].Value), Month(Sh.[A3].Value), 1)
 lDat = DateSerial(Year(Sh.[A3].Value), 1 + Month(Sh.[A3].Value), 0)
 SoNgay = lDat - fDat + 1:                      Rng.NumberFormat = "MM/DD/yyyy"
 For Each Cls In Range([B8], [B8].End(xlDown))  'Duyêt Theo Mã Hàng '
    For J = 1 To SoNgay                         'Duyêt Theo Các Ngày Trong Tháng    '
        Set sRng = Rng.Find(Format(J + fDat, "MM/DD/yyyy"), , xlValues, xlWhole)
        If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
                If sRng.Offset(, 1).Value = Cls.Value Then
                    NgayLV = NgayLV + 1:        Exit Do
                End If
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Else
        End If
    Next J
    Cells(Cls.Row, "AO").Value = NgayLV:    NgayLV = 0
 Next Cls
End Sub

Em cảm ơn anh rất nhiều. Anh ơi em vừa thêm 1 ngày 26 ở sheet "Data" máy 1 (Đông) đáng lẽ số ngày làm việc sẽ nhẩy lên 24 chứ anh nhỉ, e thấy không nhẩy số, hay em chưa biết sửa. anh chỉ giúp em với, em cũng không biết sử dụng code anh.

 

[SA_DQ]

. . . . . . Anh ơi em vừa thêm 1 ngày 26 ở sheet "Data" máy 1 (Đông) đáng lẽ số ngày làm việc sẽ nhẩy lên 24 chứ anh nhỉ, e thấy không nhẩy số, hay em chưa biết sửa. anh chỉ giúp em với, em cũng không biết sử dụng code anh.

Mình bị cấm mở file của bạn, không biết vì sao?
. . . . . .

 

[SA_DQ]

Đành đoán mò:
Bạn phải thêm mã máy là

m1gvs

chứ không phải thêm "máy 1 (Đông) " vô cột tên máy!
(Macro chưa chịu làm việc với tên máy, nó thích với 'mã máy' mà thôi.)

 

[Hoàng Tuấn 868]

Đành đoán mò:

Em tặng anh. . .

 

[VetMini]

Thêm cái này cho đủ bộ:

 

[SA_DQ]

Thêm cái này cho đủ bộ:

View attachment 273744 View attachment 273745

Còn thiếu cái cù nèo nữa thì phải; Ai có xin cho nốt dùm cái & tiện cảm ơn luôn thể!

 

[VetMini]

Còn thiếu cái cù nèo nữa thì phải; Ai có xin cho nốt dùm cái & tiện cảm ơn luôn thể!

Còn kiểu cỗ bài Tây hay bài Tam Cút cáu ghét.
Nếu là cỗ Tam Cút thì có thể thêm con chim chích nó bốc bài giùm. Tôi nhớ mang máng là người nam thì bốc 7 lá, nữ bốc 9 lá. Sau đó con chim chọn 3 lá trong nhóm này.
Tuy nhiên cái này quá cổ, không tìm được hình.

Thầy bói còn đi cặp với cây dù làm gậy và một cái chuông (để tránh người ta trong ngõ tối). Tuy nhiên tôi nghĩ hình ảnh này có khi không đẹp với người khuyết tật.

Và cái này có lẽ đúng với GPE nhất: