Nhờ đặt công thức hàm chuyển từ sheet tổng của 1 nhân viên sang sheet khác chi tiết (1 người xem)

[nguyenphucdien]

Ở bảng "sheet 1" mình đang có danh sách của 4 nhân viên A,B,C,D tổng hợp các cửa hàng, 4 nhân viên này đi bán rất nhiều cửa hàng và các ngày trong tháng. Mình bây giờ muốn chuyển sang sheet "Nguyen Van A" để theo dõi chi tiết hơn Nhân viên Nguyễn Văn A này ngày nào đi được chi tiết những cửa hàng nào? và Bán được những mặt hàng nào? số lượng từng mặt hàng bao nhiêu?.
Nhờ các bạn giúp mình đặt công thức hàm cho Sheet "Nguyen Van A" từ "Sheet 1" giống như Autofilter và Pivot table

 

[Hai Lúa Miền Tây]

Ở bảng "sheet 1" mình đang có danh sách của 4 nhân viên A,B,C,D tổng hợp các cửa hàng, 4 nhân viên này đi bán rất nhiều cửa hàng và các ngày trong tháng. Mình bây giờ muốn chuyển sang sheet "Nguyen Van A" để theo dõi chi tiết hơn Nhân viên Nguyễn Văn A này ngày nào đi được chi tiết những cửa hàng nào? và Bán được những mặt hàng nào? số lượng từng mặt hàng bao nhiêu?.
Nhờ các bạn giúp mình đặt công thức hàm cho Sheet "Nguyen Van A" từ "Sheet 1" giống như Autofilter và Pivot table

Ai làm thế, thường thì người ta dựa vào sheet data để truy vấn dữ liệu ở 1 sheet báo biểu chứ làm mỗi nhân viên cho mỗi sheet thì không có hiệu quả đâu bạn. Bạn có muốn dùng VBA không? Nếu muốn thì mình sẽ có cách giúp bạn.

 

[nguyenphucdien]

Mình phải làm rất nhiều báo cáo trên nhiều sheet khác nhau mình muốn nhờ các bạn giúp mình giảm tiện chỉ gõ trên 1 sheet thì có thể link ra nhiều báo cáo khác nhau. VBA dùng như thế nào bạn có thể chỉ giúp cho mình với.

 

[Hai Lúa Miền Tây]

Mình phải làm rất nhiều báo cáo trên nhiều sheet khác nhau mình muốn nhờ các bạn giúp mình giảm tiện chỉ gõ trên 1 sheet thì có thể link ra nhiều báo cáo khác nhau. VBA dùng như thế nào bạn có thể chỉ giúp cho mình với.

Dùng code sau:

[GPECODE=sql]Sub Loc()
Dim cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"";"
.Open
End With
With lrs
.ActiveConnection = cnn
.Open "SELECT T2.F2,T2.F3,T2.F4,'',T1.F6,T1.F7,T1.F11,T1.F15,T1.F19,T1.F23,T1.F30,T1.F37 " _
& "FROM [Sheet1$A8:AS139] T1 " _
& "INNER JOIN [SHEET2$A7:E136] T2 " _
& "ON UCASE(T1.F2) =UCASE(T2.F1) " _
& "WHERE UCASE(T1.F5) = '" & UCase(Sheet3.[B2]) & "'"
End With
With Sheet3
.[B8:M289].ClearContents
.[B8].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing

End Sub

[/GPECODE]

 

[nguyenphucdien]

Ko được bạn ah .mình gõ Nguyễn Văn B ở ô B2 mà ko được

 

[Hai Lúa Miền Tây]

Ko được bạn ah .mình gõ Nguyễn Văn B ở ô B2 mà ko được

Gõ vào rồi bấm nút mũi tên đó bạn.
Lưu ý là phải Enable Macro nhé.

 

[nguyenphucdien]

Enable Macro ở chỗ nào thế ban

 

[nguyenphucdien]

mình tìm được rồi cám ơn bạn rất nhiều

 

[Hai Lúa Miền Tây]

Enable Macro ở chỗ nào thế ban

2007 trở lên

[video=youtube;vtTa8y6i_rM]http://www.youtube.com/watch?v=vtTa8y6i_rM[/video]

 

[Hai Lúa Miền Tây]

2003

[video=youtube;_EqHM5YnftY]http://www.youtube.com/watch?v=_EqHM5YnftY[/video]

 

[hoangdv]

cái này nên dùng Pivortable là nhanh nhất -

Bác viết hàm If tiếp vào các cột còn lại nhé

 

[nguyenphucdien]

nhưng mình muốn mở rộng thêm ra các bảng khác hoặc thêm dòng, thì mình dùng thêm câu lệnh ji ?và dùng như thế nào thế bạn?

 

[hoangdv]

Bác có thể sử dụng thêm nhiều điều kiện: Ví dụ từ ngày đến ngày chẳng hạn (tất nhiên công thức nó phải khác) - Bác thêm dòng bên sheet 1 đến đâu cũng được.

 

[nguyenphucdien]

Cám ơn bạn đã đóng góp ý kiến cho minh, nhưng mình thay tên " Nguyễn Văn A" Thành "Nguyễn Văn B" sao công thức ko nhảy ra nhỉ