Dò tìm và điền dữ liệu

  • Thread starter Thread starter LATHILE
  • Ngày gửi Ngày gửi
Liên hệ QC

LATHILE

Thành viên mới
Tham gia
24/8/13
Bài viết
41
Được thích
0
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
 

File đính kèm

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

cái khó nhất là cái định dạng thời gian ở bảng chấm công (cái này chắc là load về từ phần mềm chấm cộng?)
xem file thử
 

File đính kèm

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 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???

cthức nhì oải quá.......... số liệu lớn chắc là nó die thôi
tôi ko tìm được giải pháp nào hay hơn...............bạn xem lại file thử
 

File đính kèm

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.
 
Em loay hoay mãi mà làm công thức cũng không được, macro cũng không được. Các bác giúp em với!
 

File đính kèm

có ai có giải pháp nào giúp em với!
 
có ai có giải pháp nào giúp em với!

thử bằng vba nha
nhưng trước khi chạy code, bạn phải làm việc này trước --->vào control panel set lại địng dạng ngày là "mm/dd/yyyy" (thang/ngay/nam).
(tôi mất mấy tiếng mà ko sao làm bằng code cho dịnh dạng của 2 chuổi ngày giống nhau được, nên bạn set lại máy giúp vậy)

Mã:
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

nếu chạy được, tôi làm luôn cho cái validation ở cell C4
 
Lần chỉnh sửa cuối:
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??
 
Lần chỉnh sửa cuối:
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??

tôi vừa mới kiểm tra lại ở máy ở cty.(tôi làm ờ máy nhà)
nó chạy ok.
bạn có chắc là bạn đã set trong control panel? mm/dd/yyyy? (xin nhấn mạnh là control panel nha, chứ ko fải set trong format cell của excel)

=======
xem file kết quả
 

File đính kèm

Lần chỉnh sửa cuối:
Web KT

Bài viết mới nhất

Back
Top Bottom