首页 > 解决方案 > 使用特定标准浏览数据表

问题描述

我有这里使用的代码“导航箭头宏部分”-> 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

这基本上将查看 dataSheet 中的所有值,如何添加更多条件以允许我浏览在特定列中具有值“x”的行?例如,我想按照代码的预期进行导航,但仅当数据表在第 5 列中包含包含“Test”的行时。

有什么帮助吗?

标签: excelvba

解决方案


推荐阅读