Блог

Главная - Вопросы по программированию - Навигация по Листу данных с конкретными критериями

Навигация по Листу данных с конкретными критериями

#excel #vba

Вопрос:

У меня есть этот код, который использовался здесь «Раздел макросов со стрелками навигации» -> >https://www.contextures.com/xlForm02.html

 Sub ViewLogFirst()
  
    Dim historyWks As Worksheet
    Dim InputWks As Worksheet

    Dim lRec As Long
    Dim lRecRow As Long
    Dim lLastRec As Long
    Dim lastrow As Long
    Application.EnableEvents = False
    
    Set InputWks = Worksheets("visibleSheet")
    Set historyWks = Worksheets("dataSheet")

    With InputWks
        .Range("CurrRec").Value = 1
        lRec = .Range("CurrRec").Value
        lRecRow = lRec   1
        Range("A2").Value = historyWks.Cells(lRecRow, 1)
        Range("A3").Value = historyWks.Cells(lRecRow, 2)
    End With
End Sub

Это в основном будет просматривать все значения в таблице данных, как я могу добавить дополнительные критерии, которые позволят мне перемещаться по строкам со значением «x» в определенном столбце?
Например, я хочу перемещаться так, как предполагалось в коде, но только в том случае, если в таблице данных есть строки, содержащие «Тест» в col № 5.

Какая-нибудь помощь?

Комментарии:

1. Вы сами добавили эти Range("A2").Value строки? Потому что они не квалифицированы с помощью вашего With заявления. Если вы намеревались сделать это, поставьте перед ними точку, как это сделал другой .Range . Без точки он предполагает ActiveSheet , что, вероятно, это не то, чего вы хотите.

2. Нет, он был написан в оригинальном коде и работает безупречно. но это показывает все. Я хочу добавить мини-фильтр в процесс навигации, чтобы перемещаться по строкам, имеющим определенное значение в столбце x. поэтому вместо навигации по всему, что у меня есть в таблице данных (например, 100 строк), он должен перемещаться по (15 строкам), которые соответствуют критериям (например: historyWks. Ячейки(lRecRow, 5) = «Тест»)

3. Как вы можете видеть, код плохо форматируется в комментариях. Вместо этого добавьте это в свой вопрос. (Отредактируйте свой вопрос)

Метки: