Em có bảng G lấy dữ liệu từ bảng CHAMCONG sang theo SOTHE NV, có công thức nào điền được dữ liệu như trên các bác chỉ giúp em với
Vâng cái bảng này lấy từ máy chấm công.
Có một vấn đề là 1 người một ngày nếu không tăng ca thì bấm thẻ 4 lần, nếu tăng ca thì bấm thẻ 6 lần. Nếu kéo công thức của bác Let'GâuGâu : người nào không tăng ca thì lần bấm thẻ vào 3, ra 3 vào 4, ra 4 sẽ lấy giá trị của ngày hôm sau? và nếu như ngày đó không bấm thẻ thì em để trống như thế nào???
.Vâng! Ở cái bảng của bác Let'GâuGâu tôi đọc cũng chẳng hiểu hết được công thức chỉ biết dùng mấy cái hàm thông thường, vừa tìm hiểu vừa học.
có ai có giải pháp nào giúp em với!
Sub Time()
'On Error Resume Next
Dim CCArr, BArr As Variant, NArr(), TArr(), i, j, k As Long
With Sheet2
CCArr = .[b2].Resize(.[b20000].End(3).Row, 3).Value
End With
With Sheet1
BArr = .Range(.[a7], .[a38].End(3)).Value
End With
ReDim TArr(1 To UBound(BArr), 1 To 8)
For i = 1 To UBound(CCArr)
If Val(CCArr(i, 1)) = Val(Sheet1.[c4]) Then
k = k + 1
ReDim Preserve NArr(1 To k)
NArr(k) = CCArr(i, 3)
End If
Next
For i = 1 To UBound(BArr)
k = 1
For j = 1 To UBound(NArr)
If DateSerial(Year(BArr(i, 1)), Month(BArr(i, 1)), Day(BArr(i, 1))) = DateSerial(Year(NArr(j)), Month(NArr(j)), Day(NArr(j))) Then
TArr(i, k) = Trim(Mid(NArr(j), 10, 6))
k = k + 1
End If
Next j
Next i
Sheet1.[b7:l38].ClearContents
Sheet1.[b7].Resize(i - 1, 8).Value = TArr
End Sub
em sửa lại định dạng trên máy rồi nhưng nó chỉ chạy được từ ngày 13/02 thôi những ngày trước không được??