Excel VBA, Slicer - Как выбрать 1 элемент из тысячи элементов в Excel Slicer с помощью VBA? - PullRequest
Новая
       21

Excel VBA, Slicer - Как выбрать 1 элемент из тысячи элементов в Excel Slicer с помощью VBA?

0 голосов
/ 24 сентября 2018

Давайте представим, что у нас есть срез с более чем 1000 наименований, и он продолжает расти с каждым днем.Я ищу решение, которое я могу выбрать только 1 элемент из тысячи, не прокручивая и не находя нужный элемент.То, как я это вижу, похоже на тумблер, где вы можете включить / выключить определенный элемент.При включении - выбран только этот элемент;при выключении - фильтр среза очищается.

Я пытался записать макрос, но это будет тысяча строк кода, в которых элементы среза будут активированы как True или False, что, я думаю, не сработаетучитывая, что список растет с каждым днем.

Спасибо за вашу поддержку!

Тони

1 Ответ

0 голосов
/ 24 сентября 2018

Может быть, приведенный ниже код полезен, также можете привести пример. 

Sub TestFilter()
    Const FilterCol1 = 4 '........... Your target column
    Const Criteria1 = "something" '.. Your target value
    Dim LastRow As Integer
    Dim LastCol As String

    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0

    With ActiveSheet
        LastRow = .Range("A" & .Rows.Count).End(xlUp).row
        LastCol = Split(.Range("A1").End(xlToRight).Address, "$")(1)
        .Range("A1" & ":" & LastCol & LastRow).AutoFilter field:=FilterCol1, Criteria1:=Criteria1
    End With
End Sub
...