lọc dữ liệu sang một sheet khác

[phuongnamdh]

tôi có một sheet gồm có nhiều trường, nhưng bây giờ tôi muốn lọc danh sách từng trường sang một sheet khác thì làm không được, mong các ban chỉ giùm

 

[ndu96081631]

tôi có một sheet gồm có nhiều trường, nhưng bây giờ tôi muốn lọc danh sách từng trường sang một sheet khác thì làm không được, mong các ban chỉ giùm

Trong file của bạn thì "trường" là cái nào vậy?
Đưa file mà chẳng giải thích rõ ràng, thật khó cho người khác ---> Muốn giúp cứ phải hỏi lại!

 

[phuongnamdh]

lọc dữ liệu sang sheet khác

tôi gửi lại bàn chỉ giúp với

 

[Lê Duy Thương]

tôi có một sheet gồm có nhiều trường, nhưng bây giờ tôi muốn lọc danh sách từng trường sang một sheet khác thì làm không được, mong các ban chỉ giùm

thử xài công thức này xem
nếu không được thì đành tìm cao thủ khác vậy

 

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

tôi có một sheet gồm có nhiều trường, nhưng bây giờ tôi muốn lọc danh sách từng trường sang một sheet khác thì làm không được, mong các ban chỉ giùm

Bạn xem file đính kèm coi đúng ý chưa nhe

 

[ndu96081631]

tôi gửi lại bàn chỉ giúp với

tặng bạn món đổ chơi này!



Cứ việc quét chọn dữ liệu và cột cần lọc như trong hình rồi bấm nút LỌC là xong!
Mai này cứ dùng cái này vào tất cả các file khác cũng được! (Tổng quát luôn)

----------------------
Code dùng trong file:
1> Trong Module

Function UniqueList(SrcArray)
  Dim Item, Temp
  Temp = SrcArray
  With CreateObject("Scripting.Dictionary")
    For Each Item In Temp
      If Not .Exists(Item) And Item <> "" Then .Add Item, ""
    Next
    UniqueList = .Keys
  End With
End Function

2> Trong Form

Private Sub ComboBox1_DropButtonClick()
  On Error Resume Next
  ComboBox1.List() = WorksheetFunction.Transpose(Range(RefEdit1).Resize(1))
End Sub

Private Sub CommandButton1_Click()
  Dim FilterField As Range, Sh As Worksheet, Item
  On Error Resume Next
  Application.ScreenUpdating = False
  With Range(RefEdit1)
    Set FilterField = Intersect(.Offset(1), .Resize(, 1).Offset(, ComboBox1.ListIndex))
  End With
  For Each Item In UniqueList(FilterField)
    If Sheets(CStr(Item)) Is Nothing Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)
    Set Sh = Sheets(CStr(Item))
    Sh.Cells.Clear
    With Range(RefEdit1)
      .AutoFilter ComboBox1.ListIndex + 1, CStr(Item)
      .SpecialCells(12).Copy Sh.Range("A1")
      Sh.Cells.Columns.AutoFit
      .AutoFilter
    End With
  Next
  Range(RefEdit1).Parent.Activate
  Unload Me
  Application.ScreenUpdating = True
End Sub

 

[phuongnamdh]

cảm ơn các anh, tôi đang cần cái này. nhưng tôi muốn hỏi thêm nếu tách theo trường nhưng chi trong cùng một sheet có được không mong anh giúp đỡ. xin cảm ơn

 

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

cảm ơn các anh, tôi đang cần cái này. nhưng tôi muốn hỏi thêm nếu tách theo trường nhưng chi trong cùng một sheet có được không mong anh giúp đỡ. xin cảm ơn

Làm = tay, Bạn dùng Advanced filter để giải quết bài toán này



P/S: Bạn mở topic này mục đích là tách sang sheet mới, giờ bạn cần ở tại sheet gốc, như vậy mọi người bỏ công ra giúp bạn xem như vô nghĩa sao?

 

[Ba Tê]

Làm = tay, Bạn dùng Advanced filter để giải quết bài toán này

P/S: Bạn mở topic này mục đích là tách sang sheet mới, giờ bạn cần ở tại sheet gốc, như vậy mọi người bỏ công ra giúp bạn xem như vô nghĩa sao?

Tôi nghĩ chắc bạn ấy giải thích không rõ ý muốn:

cảm ơn các anh, tôi đang cần cái này. nhưng tôi muốn hỏi thêm nếu tách theo trường nhưng chi trong cùng một sheet có được không mong anh giúp đỡ. xin cảm ơn

Chỉ cần trong 1 sheet có thể lọc ra 1 trường nào đó theo ý muốn (trường ở đây là trường học, không phải trường là cột của bảng tính)
Do hiểu như thế nên thử lọc như thế này, có điều là chưa làm được DS các trường trong cột phụ, các vị biết cách thì hỗ trợ tiếp.
Chúc tất cả vui vẻ.

 

[Hoàng Trọng Nghĩa]

Tôi có nhận được cái Mail của một ai đó gửi, nhờ lọc giúp. Tôi thì không có thời gian mà bài thì tôi thấy hơi khó nếu làm sẽ lâu nên tôi gửi File lên, Kính nhờ các Thầy Cô, Anh Chị giúp đỡ!

Nguyên văn: "hiện tại mình đang không rành về macro cho lắm nhưng mình đang gặp khó khắc trong làm một file này, bạn giúp mình chút được không vậy?"

 

[Hoàng Trọng Nghĩa]

Tôi có nhận được cái Mail của một ai đó gửi, nhờ lọc giúp. Tôi thì không có thời gian mà bài thì tôi thấy hơi khó nếu làm sẽ lâu nên tôi gửi File lên, Kính nhờ các Thầy Cô, Anh Chị giúp đỡ!

Nguyên văn: "hiện tại mình đang không rành về macro cho lắm nhưng mình đang gặp khó khắc trong làm một file này, bạn giúp mình chút được không vậy?"

Xin vui lòng giúp đỡ mình về đề tài này nhé! Cảm ơn rất nhiều!

 

[ndu96081631]

Xin vui lòng giúp đỡ mình về đề tài này nhé! Cảm ơn rất nhiều!

Nếu làm bằng tay thì:
- Quét chọn 1 lúc 2 cột Lot và Size
- Dùng Advanced Filter lọc với tùy chọn Unique Records Only
- Copy dữ liệu sang nới khác
----------------------------
Nếu muốn tự động, ta dùng VBA (dựa trên cơ sở Advanced Filter như trên)
Cũng đâu khó mấy ---> Dạng bài này trên GPE làm chắc độ mấy trăm lần rồi... Ẹc... Ẹc...

 

[thaithien09]

Phát triển thêm lọc dữ liệu sang một sheet khác

Em chào ndu96081631

Trước tiên xin cám ơn ndu96081631 đã cho Diễn đàn GPE một công cụ hay để lọc. nhưng Em muốn phát triển thêm 1 ít nữa nhưng làm hoài không được, cứ báo lỗi. xin nhờ Thầy ndu96081631 giải thích code hoặc làm thêm như file Em kèm theo ( xin phép được sửa form của tác giã theo như mong muốn) tức là để cho chương trình tính cột tổng cộng dẽ dàng và linh động hơn. Cụ thể là sau khi lọc muốn tính tổng cộng ở cuối cột ĐIỂM như file.

 

[trannguyenduythong]

Loc dữ liệu sang sheet khác có điều kiện

Trong form tác giã muc đích là chọn cột để lọc ra các sheet tương ứng.
Nhưng ở đây Em muốn lọc thêm có điều kiện như sau:
Chọn vào tên trường chỉ lọc ra các lớp có trong trường thôi, còn lại các lớp có trong trường khác thì bỏ qua không lọc;
Ví dụ ở bảng dữ liệu:Chọn ĐÔNG XUÂN thì lọc ra các sheet là 7A, 7C

Xin tác giã hướng dân thêm. Xin cám ơn

 

[vodoi2x]

Tóm lại, ai là người hỏi ai là người trả lời nhỉ,

Lưu ý các bạn hỏi nên mở topic mới, topic trả lời xong, còn để người hỏi , người trả lời biết mà viết, thanks