Xin hướng dẫn trích xuất (lọc) dữ liệu từ 1 sheet sang 1 sheet khác (1 người xem)

[cuchuoi_bi]

Thử file này xem sao, thêm dòng TOTAL để khỏi "hỏi" thêm. Hổng chịu thì dễ hơn.

Chào bác, em mới tập tọe excel ở cấp độ trên sơ đẳng một chút và VBA thì đang ở cấp độ gà con. Bác có thể cho e hỏi, trong file của bác gửi ở sheet "in cong no" có cái ô I3 như kiểu list box tạo ra kiểu gì ko?
Mong bác giúp chứ đừng ném đá em

 

[Ba Tê]

Chào bác, em mới tập tọe excel ở cấp độ trên sơ đẳng một chút và VBA thì đang ở cấp độ gà con. Bác có thể cho e hỏi, trong file của bác gửi ở sheet "in cong no" có cái ô I3 như kiểu list box tạo ra kiểu gì ko?
Mong bác giúp chứ đừng ném đá em

Chỉ có Ô K7 dùng Validation thôi, không có I3 nào cả.

 

[cuchuoi_bi]

Chỉ có Ô K7 dùng Validation thôi, không có I3 nào cả.

bác xem lại cho e có cái ô I3 trong file GPE888 của bác dùng để lọc dữ liệu như kiểu advanced filter nhưng lại cuốn như list box. Em vẫn chưa hiểu chỗ đó là ntn

 

[Ba Tê]

bác xem lại cho e có cái ô I3 trong file GPE888 của bác dùng để lọc dữ liệu như kiểu advanced filter nhưng lại cuốn như list box. Em vẫn chưa hiểu chỗ đó là ntn

"Chời đất". Đến bài #41 mới hỏi trên bài #7 mà hổng có trich dẫn rõ ràng là hỏi bài nào, file nào.
I3 cũng sử dụng Validation.
Bạn muốn tìm hiểu về nó nhập từ "Validation" vào ô tìm kiếm sẽ thấy.
Ví dụ như ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?98-Hiểu-thêm-về-Validation&p=383#post383

 

[cuchuoi_bi]

"Chời đất". Đến bài #41 mới hỏi trên bài #7 mà hổng có trich dẫn rõ ràng là hỏi bài nào, file nào.
I3 cũng sử dụng Validation.
Bạn muốn tìm hiểu về nó nhập từ "Validation" vào ô tìm kiếm sẽ thấy.
Ví dụ như ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?98-Hiểu-thêm-về-Validation&p=383#post383

sorry bác. em có trích dẫn rồi nhưng lại ko trích được cái file đính kèm

 

[minhnn0312]

Em có nhu cầu tương tự bạn hungtt24nhưng theo form khác và em muốn thêm dòng subtotal cho từng hợp đồng.(Dữ liệu của em có nhiều khách hàng, mỗi khách hàng có nhiều hợp đồng, mỗi hợp đồng có nhiều hạng mục, mỗi dòng excel là 1 hạng mục).
Nhờ bác Ba Tê giúp em với.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[minhnn0312]

Bạn nhờ giúp mà ví dụ dữ liệu có mỗi 1-2 dòng...thì ai ngồi hình dung ra mà giúp bạn. Chí ít cũng làm được 10 dòng...

Nhưng bài của bạn dùng Pivot Table là hợp lý. Vì tất cả các ý bạn mong muốn thì công cụ Pivot Table trên excel đáp ứng rất tốt...

Sorry, em gửi lại file ạ. em muốn là chỉ nhập mã khách hàng vào sheet bảng in KH3 thì toàn bộ dữ liệu của Khách hàng đó tại sheet Data được trích xuất sang sheet bảng in
Hoặc em nhập các mã khách hàng cần trích xuất dữ liệu vào sheet Danh sách KH và chương trình tự động trích xuất toàn bộ dữ liệu của từng khách hàng theo form, mỗi khách hàng xuất ra 1 file.
Nếu bác giúp được cách 2 thì tốt quá, em đỡ fải save as từng khách hàng

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[minhnn0312]

Bạn copy code sau vào sheet1. Thay đổi mã khách hàng tại B8 thì code chạy.
Sau khi chạy code thì sẽ tự động Save cho bạn 1 file theo Mã khách hàng bạn gõ tại B8. File này nằm chung thư mục với File bạn đang sử dụng.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, dArr, I

 

[minhnn0312]

Em chạy thử bị lỗi khi trích xuất khách hàng có 700 dòng dữ liệu. em chụp màn hình gửi kèm.
Ngoài ra nhờ bác để tên khách hàng ô B7 update tự động theo mã khách hàng ô B8.
Số hợp đông sau khi trích xuất bị chuyển sang định dạng number nhờ bác chuyển về định dạng text.
Em cám ơn

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[genius111]

Thử file này xem sao, thêm dòng TOTAL để khỏi "hỏi" thêm. Hổng chịu thì dễ hơn.

Anh Ba tê ơi, anh cho em hỏi trong file của anh mình làm thế nào để file tự ẩn hiện dòng ạ, trong code đoạn mã ẩn hiện dòng nằm ở đâu ạ

 

[Ba Tê]

Anh Ba tê ơi, anh cho em hỏi trong file của anh mình làm thế nào để file tự ẩn hiện dòng ạ, trong code đoạn mã ẩn hiện dòng nằm ở đâu ạ

Ít nhất bạn cũng viết rõ là trong file nào, tải xuống từ bài số mấy.
Đến bài #53 rồi mà bạn hỏi vậy tôi phải dò ngược lên từng bài để tìm xem bạn hỏi cái gì, ở đâu, mới biết là ở bài #7, từ tháng 4/2013.
Trong code làm gì có chuyện ẩn hiện dòng, chỉ là khi kết thúc thì cho nó thêm 1 dòng Total cuối cùng thôi.
Híc!

If K Then
            .Resize(K, C).Value = Darr
            .Offset(K, 2).Value = "TOTAL"'<---------------------'
            .Offset(K, 7).Resize(, 2).Value = "=Sum(R7C:R[-1]C)"'-----------------------'
            .Offset(K).Resize(, C).Interior.ColorIndex = 6
            .Resize(K + 1, C).Borders.LineStyle = xlContinuous
        End If

 

[genius111]

Ít nhất bạn cũng viết rõ là trong file nào, tải xuống từ bài số mấy.
Đến bài #53 rồi mà bạn hỏi vậy tôi phải dò ngược lên từng bài để tìm xem bạn hỏi cái gì, ở đâu, mới biết là ở bài #7, từ tháng 4/2013.
Trong code làm gì có chuyện ẩn hiện dòng, chỉ là khi kết thúc thì cho nó thêm 1 dòng Total cuối cùng thôi.
Híc!

If K Then
            .Resize(K, C).Value = Darr
            .Offset(K, 2).Value = "TOTAL"'<---------------------'
            .Offset(K, 7).Resize(, 2).Value = "=Sum(R7C:R[-1]C)"'-----------------------'
            .Offset(K).Resize(, C).Interior.ColorIndex = 6
            .Resize(K + 1, C).Borders.LineStyle = xlContinuous
        End If

Em sơ xuất quá, cứ nghĩ trả lời với trích dẫn là sẽ tự trích dẫn luôn cả file đính kèm. Em thấy trong đoạn code trên có 5 dòng, anh có thể giải thích ý nghĩa từng dòng giúp em được không ạ, em không biết về VBA nên cần hiểu 1 chút để ghép vào file của em. Em cảm ơn anh nhiều ạ

 

[manhketoan77]

Anh ơi, cty em làm đại lý vé máy bay, em muốn lọc danh sách công nợ cụ thể như theo đại lý trên, em có xem anh viết code mà không hiểu gì hết trơn, nhìn em mù tịt, anh nào giúp em với

 

[kh0jy3n]

Vậy thì tôi hướng dẫn bạn tự làm cho bớt "gà" nhé.
1/ Chèn thêm bên trên sheet In Cong No 4 dòng nữa.
2/ Xem lại dòng tiêu đề STT, Ngày.... phải dòng 10 không.
3/ Nếu đúng dòng 10 thì ấn Alt + F11, Kích đúp vào Module1.
4/ Tìm trong Sub GPE888 mấy dòng giống như vầy:

Sửa [A7] thành [A11]
Xong, cho Sub chạy thử. Hổng được thì "la lên".

cái chữ ký của đại ka hay quá đi @@ đọc làm em phì cười . không những học dc Excel ở đây mà còn học dc văn )