làm sao lấy được List của menu AutoFilter

[doveandrose]

Khi bấm vào cái nút hình mũi tên của AutoFilter , ta thấy hiện ra danh sách không trùng của cột đó . Vậy Làm sao ta lấy được List trên menu của AutoFilter ? Mong các anh chị và các bạn chỉ giúp

 

[Hoàng Trọng Nghĩa]

Trong cái list đó, hình như nó không hiển thị ra nếu trên 2000 dòng thì phải.

 

[Cá ngừ F1]

Tôi ko xem được file của bạn (do đang online bằng điện thoại).
Nhưng theo ý hiểu của tôi là lấy ra các ký tự duy nhất.
Có 1 hàm rất hay của sư phụ NDU.
bạn tìm từ khóa uniquelist xem sao.

 

[Hoàng Trọng Nghĩa]

Theo tôi thì copy cái Cột đó sang sheet khác, sort cột đó rồi nhấn vào nút Remove Duplicates là có ngay cái list giống với AutoFilter!

 

[Ngoai Thanh]

Hình như ý bạn là muốn làm được như thằng autoFilter , tức là nó chẳng cần "cót , két " gì mà bấm 1 phát là cho ngay một cái list cho danh sách không trùng, bên cạnh lại có nút để check . Dựa trên đó ta có thể lọc đủ kiểu ...Nếu đúng vậy thì...mình khoanh tay ngồi chờ...để xem thôi .

 

[doveandrose]

hình như các anh tưởng tượng cao siêu quá rùi . mình chỉ có 1 ước mơ nhỏ nhoi là lấy được item từ cái List của menu Autofilter thôi mà ...

 

[Ngoai Thanh]

Theo tôi thì copy cái Cột đó sang sheet khác, sort cột đó rồi nhấn vào nút Remove Duplicates là có ngay cái list giống với AutoFilter!

Nếu đúng vậy thì bạn ấy đâu có đến 6 sao quay và là "thợ to" của " cót, két "cơ chứ !

 

[doveandrose]

Nếu đúng vậy thì bạn ấy đâu có đến 6 sao quay và là "thợ to" của " cót, két "cơ chứ !

trời ơi em có nhiều bài viết là do chuyên môn đi chọc ghẹo phá đám các thành viên khác thôi mà . Đâu phải do viết code nhiều đâu anh . Đừng hiểu lầm em tội nghiệp . ...

 

[giangleloi]

mình chỉ có 1 ước mơ nhỏ nhoi là lấy được item từ cái List của menu Autofilter thôi mà ...

Không biết có hiểu đúng ý của chàng không. Nhưng cứ quăng bom vô hên xui vậy:

Sub Chimhong()
 On Error Resume Next
    With ActiveSheet
         .Range("B3", .Range("B65536").End(xlUp)).AdvancedFilter _
             Action:=xlFilterCopy, CopyToRange:=.[A3], Unique:=True
    End With
On Error GoTo 0
End Sub

 

[Ngoai Thanh]

trời ơi em có nhiều bài viết là do chuyên môn đi chọc ghẹo phá đám các thành viên khác thôi mà . Đâu phải do viết code nhiều đâu anh . Đừng hiểu lầm em tội nghiệp . ...

Trời đất ! Nếu lấy item của autoFilter thì mình chưa thấy, còn làm giống nó thì bài của của bạn Hoàng trọng Nghĩa và các bạn đã giúp ...Nhiều khi ta quan tâm đến những cái to đùng , để rồi cái nhỏ tý có khi không để ý ...

 

[Ngoai Thanh]

hình như các anh tưởng tượng cao siêu quá rùi . mình chỉ có 1 ước mơ nhỏ nhoi là lấy được item từ cái List của menu Autofilter thôi mà ...

Thêm một tý cho vui , để bạn tham khảo :

Sub loc()
Sheet1.Range("B3:B10000").AdvancedFilter 2, [B3:B10000], [D3], Unique:=True
End Sub

Cùng quan điểm hên, xui như Giang " đơn chiếc" thôi ...

 

[Hoàng Trọng Nghĩa]

Không biết có hiểu đúng ý của chàng không. Nhưng cứ quăng bom vô hên xui vậy:

Sub Chimhong()
 On Error Resume Next
    With ActiveSheet
         .Range("B3", .Range("B65536").End(xlUp)).AdvancedFilter _
             Action:=xlFilterCopy, CopyToRange:=.[A3], Unique:=True
    End With
On Error GoTo 0
End Sub

Thật ra cái List của Filter nó đặc biệt ở chỗ này, nó không những sắp xếp từ nhỏ đến lớn các Item, nó còn lọc duy nhất các Item nữa.

Nhưng thật sự không biết cái anh chàng này muốn lấy nó làm cái gì không biết!

 

[doveandrose]

Thật ra cái List của Filter nó đặc biệt ở chỗ này, nó không những sắp xếp từ nhỏ đến lớn các Item, nó còn lọc duy nhất các Item nữa.

Nhưng thật sự không biết cái anh chàng này muốn lấy nó làm cái gì không biết!

trời ơi , em phải nêu mục đích nữa anh mới chịu giúp sao ? hu hu .
Lọc 1 Duy nhất cho 1 cột dữ liệu rồi Sort nữa viết code chắc cũng tương tự các anh ở trên .
Nhưng mà em muốn hỏi là có phương thức nào giúp ta truy cập trực tiếp vào cái menu hiện ra của AutoFilter , rồi lấy List của nó không anh ?

 

[Hoàng Trọng Nghĩa]

trời ơi , em phải nêu mục đích nữa anh mới chịu giúp sao ? hu hu .
Lọc 1 Duy nhất cho 1 cột dữ liệu rồi Sort nữa viết code chắc cũng tương tự các anh ở trên .
Nhưng mà em muốn hỏi là có phương thức nào giúp ta truy cập trực tiếp vào cái menu hiện ra của AutoFilter , rồi lấy List của nó không anh ?

No way! Nếu có lấy được nó cũng hạn chế Items trong nó! Nếu lấy thiếu thì sẽ làm gì?

 

[Cá ngừ F1]

Khi bấm vào cái nút hình mũi tên của AutoFilter , ta thấy hiện ra danh sách không trùng của cột đó . Vậy Làm sao ta lấy được List trên menu của AutoFilter ? Mong các anh chị và các bạn chỉ giúp

List menu của AutoFilter. Ý tôi hiểu (đoán mò) là cho nó vào Combobox ??? Nếu muốn sắp xếp theo thứ tự nữa thì dùng thêm hàm Sort1DArray

 

[doveandrose]

List menu của AutoFilter. Ý tôi hiểu (đoán mò) là cho nó vào Combobox ??? Nếu muốn sắp xếp theo thứ tự nữa thì dùng thêm hàm Sort1DArray

Những code của các anh viết giúp , mình rất trân trọng và cảm ơn . Nhưng mình có ghi tiêu đề là

làm-sao-lấy-được-List-của-menu-AutoFilter

có nghĩa là trong VBA liệu có phương thức nào cho phép ta truy cập trực tiếp vào menu của Autofilter rồi lấy List của nó
đại khái như là :

dim arr
arr = application.menus("Autofiler").List  ???

chỉ vậy thôi . Còn mấy khái niệm lấy danh sách duy nhất , hay là Sort đối với mình nó đã là bản năng ăn vào máu , có đang xỉn vẫn viết được code .

 

[ndu96081631]

có nghĩa là trong VBA liệu có phương thức nào cho phép ta truy cập trực tiếp vào menu của Autofilter rồi lấy List của nó
.

Thật ra mình đã nghiên cứu loại object này (AutoFilter list và Validation List) cách đây nhiều năm rồi và cũng từng có thắc mắc như bạn. Đã tìm đủ các cách mà vẫn không có manh mối
Với mình thì bài này là vô phương. Tuy nhiên vẫn hóng xem ai có phát hiện gì đặc biệt thì sẽ học hỏi thêm vậy!