Giúp em về lập Danh sách (1 người xem)

[thangpdt92]

Các bro giúp e với. Dưới đây là bản excel đính kèm của em. Em muốn tạo 1 sheet " Chi phí 1 nhân viên". Khi mà điền mã nhân viên vào thì biết nhân viên đó được cấp sử dụng cho công cụ dụng cụ gì. Em đã làm qua sheet đó nhưng ko biết làm tiếp thế nào cả. Mong mọi người giúp em.
Em xin chân thành cảm ơn!
http://www.mediafire.com/download/663mufc1b6w9sns/Quan_ly_CCDC-Sekonix.rar

 

[nhapmon]

Các bro giúp e với. Dưới đây là bản excel đính kèm của em. Em muốn tạo 1 sheet " Chi phí 1 nhân viên". Khi mà điền mã nhân viên vào thì biết nhân viên đó được cấp sử dụng cho công cụ dụng cụ gì. Em đã làm qua sheet đó nhưng ko biết làm tiếp thế nào cả. Mong mọi người giúp em.
Em xin chân thành cảm ơn!
http://www.mediafire.com/download/663mufc1b6w9sns/Quan_ly_CCDC-Sekonix.rar

lấy dữ liệu từ sheet nào?

 

[bd1808]

Các bro giúp e với. Dưới đây là bản excel đính kèm của em. Em muốn tạo 1 sheet " Chi phí 1 nhân viên". Khi mà điền mã nhân viên vào thì biết nhân viên đó được cấp sử dụng cho công cụ dụng cụ gì. Em đã làm qua sheet đó nhưng ko biết làm tiếp thế nào cả. Mong mọi người giúp em.
Em xin chân thành cảm ơn!
http://www.mediafire.com/download/663mufc1b6w9sns/Quan_ly_CCDC-Sekonix.rar

Bạn tải về xem thử coi có đúng yêu cầu chưa nha:
https://docs.google.com/uc?authuser=0&id=0B-sqwxk7WVZgdW5BSC02VWN0WEU&export=download

 

[thangpdt92]

em cảm ơn bác. Khá là ổn! Cảm ơn bác rất nhiều

 

[thangpdt92]

Bạn tải về xem thử coi có đúng yêu cầu chưa nha:
https://docs.google.com/uc?authuser=0&id=0B-sqwxk7WVZgdW5BSC02VWN0WEU&export=download

Giờ bác có thể giúp em thêm khoảng 5, 6 dòng trước đó không, để em nhập mấy khoản chi cố định cho công nhân như là chi tiền quần áo cty, quần áo phòng sạch....

 

[thangpdt92]

Bạn paste code sau vào sheet cần chạy

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
Dim DL, Kq(1 To 50000, 1 To 6), Dk As String
Dim r As Long, I As Long
Dk = [B4].Value
DL = Sheet1.Range("A7", Sheet1.Range("A65000").End(3)).Resize(, 22)
Application.ScreenUpdating = False
    For r = 1 To UBound(DL)
        If DL(r, 7) = Dk And Dk <> Empty Then
            I = I + 1
                Kq(I, 1) = I
                Kq(I, 2) = DL(r, 4)
                Kq(I, 3) = Application.WorksheetFunction.VLookup(DL(r, 4), Sheet3.Range("B5:C1000"), 2, 0)
                Kq(I, 4) = DL(r, 12)
                Kq(I, 6) = DL(r, 15)
        End If
    Next r
If I Then
    Range("A7:F65000").ClearContents
    Range("A7").Resize(I, 6) = Kq
    Range("A7:F65000").Borders.LineStyle = xlNone
    Range("A6", Range("A65000").End(3)).Resize(, 6).Borders.LineStyle = xlContinuous
Else
    Range("A7:F65000").ClearContents
    Range("A7:F65000").Borders.LineStyle = xlNone
End If
End If
End Sub

Em không làm đc bác ạ! E đã thử xóa code cũ và code này ko đc. và e cũng thử thêm code này đằng sau code cũ cũng ko đc. e ko biết gì về code cả

 

[khuongvietphong]

Em không làm đc bác ạ! E đã thử xóa code cũ và code này ko đc. và e cũng thử thêm code này đằng sau code cũ cũng ko đc. e ko biết gì về code cả

Tại cửa sổ VBA , bạn dán code đó vào sheet chi phí 1 nhân viên , sau đó ra bên ngoài cũng tại sheet này bạn gõ mã số nhân viên vào ô B4 là code chạy mà

 

[giangleloi]

Em không làm đc bác ạ! E đã thử xóa code cũ và code này ko đc. và e cũng thử thêm code này đằng sau code cũ cũng ko đc. e ko biết gì về code cả

hpkhuong mà đã code thì khỏi chê rồi, không được chỗ nào thì bạn hãy mang lên đây mổ banh code đó ra luôn.