Nhờ giúp đỡ Advance Filter nhưng vẫn giữ được tên khu vực như file đính kèm (4 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

nghiemnd

Thành viên mới
Tham gia
12/10/07
Bài viết
11
Được thích
0
Dear các anh chị.
N có chút khó khăn chỗ này.
Dữ liệu về trường học của các tỉnh thành. N thực hiện advance filter được theo khu vực là 3 nhưng nó đang được để theo kiểu khu vực từng tỉnh (không theo cột, xem file đính kèm)

==> Làm thế nào N có thể filter ra mà có thể giữ lại khu vực được các anh chị nhỉ.
Cảm ơn các anh ch
 

File đính kèm

phải có dữ liệu gốc và kết quả tạo ra như thế nào mới giúp được
 
Dear các anh chị.
N có chút khó khăn chỗ này.
Dữ liệu về trường học của các tỉnh thành. N thực hiện advance filter được theo khu vực là 3 nhưng nó đang được để theo kiểu khu vực từng tỉnh (không theo cột, xem file đính kèm)

==> Làm thế nào N có thể filter ra mà có thể giữ lại khu vực được các anh chị nhỉ.
Cảm ơn các anh ch

1/ Cấu trúc như File bài #1 thì sử dụng Advance Filter lọc khu vực theo từng tỉnh là bình thường (Lưu ý: Phải có cột tên tỉnh thì khi lọc xong mới biết được dữ liệu nào của tỉnh nào).

2/ Nếu sử dụng Autofilter thì phải có cột thứ tự liên tục mới lọc được khu vực theo từng tỉnh (đọc lưu ý 1).
 
1/ Cấu trúc như File bài #1 thì sử dụng Advance Filter lọc khu vực theo từng tỉnh là bình thường (Lưu ý: Phải có cột tên tỉnh thì khi lọc xong mới biết được dữ liệu nào của tỉnh nào).

2/ Nếu sử dụng Autofilter thì phải có cột thứ tự liên tục mới lọc được khu vực theo từng tỉnh (đọc lưu ý 1).

Dear anh.
Như em đã mô tả. Vì dữ liệu chỉ có theo cấu trúc vậy. Do bộ GDĐT nhập vào file
Nếu có cột tỉnh thành thì em đã xử được

Với file hiện tại. Em đã làm được Autofilter. Advance filter nhưng nó sẽ gộp tất cả lại. Ko hiển thị được các tỉnh luôn.
==> Cái em đang mong muốn là làm thế nào có thể filter được các trường khu vực 3 nhưng vẫn thể hiện được tỉnh như vậy.
Cảm ơn anh
 
Dear anh.
Như em đã mô tả. Vì dữ liệu chỉ có theo cấu trúc vậy. Do bộ GDĐT nhập vào file
Nếu có cột tỉnh thành thì em đã xử được

Với file hiện tại. Em đã làm được Autofilter. Advance filter nhưng nó sẽ gộp tất cả lại. Ko hiển thị được các tỉnh luôn.
==> Cái em đang mong muốn là làm thế nào có thể filter được các trường khu vực 3 nhưng vẫn thể hiện được tỉnh như vậy.
Cảm ơn anh

Tôi đâu có nêu là thay đổi cấu trúc đâu, ví dụ:

- Cột A đánh số thứ tự.

- Cột G tên tỉnh giống như cột phụ H và I bạn làm.

Khi báo cáo bộ thì Copy File ra và xóa những cái không cần rồi gửi theo mẫu quy định.
 
Dear anh.
Như em đã mô tả. Vì dữ liệu chỉ có theo cấu trúc vậy. Do bộ GDĐT nhập vào file
Nếu có cột tỉnh thành thì em đã xử được

Với file hiện tại. Em đã làm được Autofilter. Advance filter nhưng nó sẽ gộp tất cả lại. Ko hiển thị được các tỉnh luôn.
==> Cái em đang mong muốn là làm thế nào có thể filter được các trường khu vực 3 nhưng vẫn thể hiện được tỉnh như vậy.
Cảm ơn anh

Bạn không tạo một bảng kết quả mẫu để mọi người hiểu bạn muốn gì.
Tôi lọc bằng VBA, bạn nhập khu vực muốn lọc vào ô B1 sheet GPE rồi xem kết quả, nếu chưa vừa ý thì nói rõ lại ý bạn muốn thế nào.
Nhớ chọn Enable Macros khi mở file.
 

File đính kèm

Chữ khu vực thêm vào, bạn cho font màu trắng để dấu đi
 

File đính kèm

Dạ, cảm ơn anh.
Quá hay khi sử dụng macro
 
Giải pháp tuyêt vời
Cảm ơn anh
 
Giải pháp tuyêt vời
Cảm ơn anh

Rất nhiều (hơn một) người tham gia trả lời bài cho bạn. không biết bạn nói bài nào vừa ý bạn?
------------------------
Nên bấm nút "Trả Lời Với Trích Dẫn" dưới bài viết của người mình muốn trao đổi, rồi mới viết ý kiến của mình.
 
Dear anh.
Như em đã mô tả. Vì dữ liệu chỉ có theo cấu trúc vậy. Do bộ GDĐT nhập vào file
Nếu có cột tỉnh thành thì em đã xử được

Với file hiện tại. Em đã làm được Autofilter. Advance filter nhưng nó sẽ gộp tất cả lại. Ko hiển thị được các tỉnh luôn.
==> Cái em đang mong muốn là làm thế nào có thể filter được các trường khu vực 3 nhưng vẫn thể hiện được tỉnh như vậy.
Cảm ơn anh
Bạn dùng auto filter cột G, chọn Custom, chọn 2 combobox dòng trên Equal và 3, bấm vào option button OR, chọn comboxbox dòng dưới bên trái Equal còn bên phải để trống. Mục đích để lọc các ô trống hoặc = 3.
 
Bạn dùng auto filter cột G, chọn Custom, chọn 2 combobox dòng trên Equal và 3, bấm vào option button OR, chọn comboxbox dòng dưới bên trái Equal còn bên phải để trống. Mục đích để lọc các ô trống hoặc = 3.
Dạ anh Hậu,
Em vẫn chưa hiểu ý của anh thao tác như thế nào? Anh giúp em mấy cái hình được ko ạ?
EM cảm ơn
 
Dạ anh Hậu,
Em vẫn chưa hiểu ý của anh thao tác như thế nào? Anh giúp em mấy cái hình được ko ạ?
EM cảm ơn
Bạn chọn vùng B5:F561 và sử dụng AutoFilter như sau:
- Với Excel 2003 (chỗ con trỏ là để trống):
Excel 2003.jpg
- Với Excel 2007+:
Excel 2007+.jpg
 
Dear anh.
Như em đã mô tả. Vì dữ liệu chỉ có theo cấu trúc vậy. Do bộ GDĐT nhập vào file
Nếu có cột tỉnh thành thì em đã xử được

Với file hiện tại. Em đã làm được Autofilter. Advance filter nhưng nó sẽ gộp tất cả lại. Ko hiển thị được các tỉnh luôn.
==> Cái em đang mong muốn là làm thế nào có thể filter được các trường khu vực 3 nhưng vẫn thể hiện được tỉnh như vậy.
Cảm ơn anh
MUỐN ADVANCE FILTER THÌ ĐÂY
PHP:
Sub FIND_ADVANCE()
Dim FoundItems As Range, FirstAddress As String, Items As Variant
Sheet2.Cells.Clear
With Sheet1.Range("B2:B" & [B6500].End(3).Row)
    Items = Sheet1.[B5].Value
    Set FoundItems = .Find(What:=Items, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not FoundItems Is Nothing Then
        FirstAddress = FoundItems.Address
        Do
            With FoundItems
            .Offset(-2).Copy Sheet2.Range("B10000").End(3).Offset(2)
            .CurrentRegion.AdvancedFilter 2, Sheet1.Range("A1:A2"), Sheet2.Range("B10000").End(3).Offset(2), False
            End With
    
        Set FoundItems = .FindNext(FoundItems)
        Loop While Not FoundItems Is Nothing And FoundItems.Address <> FirstAddress
    End If
End With
End Sub
 

File đính kèm

MUỐN ADVANCE FILTER THÌ ĐÂY
PHP:
Sub FIND_ADVANCE()
Dim FoundItems As Range, FirstAddress As String, Items As Variant
Sheet2.Cells.Clear
With Sheet1.Range("B2:B" & [B6500].End(3).Row)
    Items = Sheet1.[B5].Value
    Set FoundItems = .Find(What:=Items, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not FoundItems Is Nothing Then
        FirstAddress = FoundItems.Address
        Do
            With FoundItems
            .Offset(-2).Copy Sheet2.Range("B10000").End(3).Offset(2)
            .CurrentRegion.AdvancedFilter 2, Sheet1.Range("A1:A2"), Sheet2.Range("B10000").End(3).Offset(2), False
            End With
    
        Set FoundItems = .FindNext(FoundItems)
        Loop While Not FoundItems Is Nothing And FoundItems.Address <> FirstAddress
    End If
End With
End Sub

Code cũng hay mà sao bị ế vậy ta.

Chẳng ai cám ơn hết, lần sau úp úp, mở mở mới hấp dẫn, chứ hoạch tẹc ra thì hết ngon rồi, người ta chỉ biết lấy về dùng thôi.
 
Lần chỉnh sửa cuối:
Code cũng hay mà sao bị ế vậy ta.

Chẳng ai cám ơn hết, lần sau úp úp, mở mở mới hấp dẫn, chứ hoạch tẹc ra thì hết ngon rồi, người ta chỉ biết lấy về dùng thôi.
Cái quan trọng là mình có thể xử lý được tình huống này và không được phép đụng hàng trong 1 topic --=0
Vấn đề họ cứ copy thôi sao cấm được anh. đâu cần câu like--=0
 
Lần chỉnh sửa cuối:
Cái quan trọng là mình có thể xử lý được tình huống này và không được phép đụng hàng trong 1 topic --=0
Vấn đề họ cứ copy thôi sao cấm được anh. đâu cần câu like--=0

Câu like nó cũng quan trọng lắm, nó là động cơ để các thành viên ngẩm nghỉ, đưa ra giải pháp giúp đỡ lẫn nhau.

Mình có công sức và trí tuệ để suy nghĩ và đưa ra giải pháp chưa biết trúng trật thế nào nhưng cũng là công sức bỏ ra thì đáng được trân trọng và đáng được cám ơn tại sao không????????

Việc còn lại thì chủ Topic chỉ việc thò cái tay nhấn nút cám ơn (nếu làm 1 phép tính so sánh, ai tốn nhiều công sức hơn ai), cái vụ này thì chủ topic cũng thừa hiểu.

Anh chỉ mạn phép phân tích vậy thôi, chứ việc còn lại là quyền của họ, cám ơn thì càng tốt, không cám ơn thì cũng chẳng chết thằng Tây nào cả, chỉ có mấy thằng ta hết cãm hứng và không còn động cơ để giúp đỡ, nếu trường hợp này tiếp diễn dài dài thì đến 1 ngày nào đó diễn đàn chỉ có người hỏi mà chẳng có người trả lời, việc này anh đã thấy sảy ra trên diễn đàn rồi.

Nghĩa là: Có bạn hỏi nhưng chẳng ai trả lời cả, việc này cũng có nhiều lý do.

1/ Hỏi 1 câu hỏi nhưng không có đầu có đuôi.

2/ Hỏi 1 câu hỏi không rõ ràng nên chẳng ai hiểu để trả lời.

3/ Hỏi 1 câu hỏi mà không đính kèm File nên chẳng ai hiểu muốn làm việc gì ở sheet nào, dò tìm, tổng hợp cái gì dựa vào cột nào qua sheet nào (nhất là hỏi 1 câu hỏi mà không có tiêu đề cụ thể và không có dữ liệu).
 
Lần chỉnh sửa cuối:
Web KT

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

Back
Top Bottom