在用户窗体中创建一个下一步按钮以跳转到过滤后的 Excel 工作表中的下一行

Question

我制作了一个带有多个文本框的用户表单，这些文本框中的值将被填充或显示在 Excel 工作表中找到的值。

我的问题是让 Next 和 OK 按钮起作用。 当我按 Ok 时，它应该将所有数据转储到正确行的 Excel 表中，并使用 Next 按钮移动到下一行。

问题是我不能简单地增加一个计数器，因为它应该跳到有源过滤器的下一行，即 45 之后的下一行可能是 66。那么我该如何实现呢？

下面是我应用正确过滤器的代码：

Dim columnHeader As Integer
Dim ws As Worksheet
Dim Wb As Workbook
Dim lo As ListObject
Dim lsColumn As Integer
Dim counter As Integer
Dim rRange As Range, filRange As Range, Rng As Range

'set the worksheet we will be dealing with
Set Wb = ActiveWorkbook
Set ws = Wb.Sheets("List")
Call Filter.Unhide_All_Columns ' just clear all filters

'Filter our sheet
columnHeader = 2
lsColumn = HelpFunctions.getColumn("LS", ws, columnHeader, True) 'Find correct colum, i.e 18 in this case
Set lo = ws.ListObjects("FilterParts")
lo.Range.AutoFilter Field:=lsColumn, Criteria1:=""
lo.Range.Cells.ClearFormats
lo.AutoFilter.ApplyFilter

'~~> Filter, offset(to exclude headers)
Settings.filRange = lo.Range.Offset(columnHeader, 0).SpecialCells(xlCellTypeVisible).EntireRow ' Assign it to a global variable so it can be reused

我有一个名为 nextLine(rowNumber as long) 的函数，它用正确的值填充 GUI。

Answer 1

您的代码看起来不错，除了我认为的一件事，在您执行以下操作时的 init 方法中：

Settings.nextIndex = columnHeader + 1
ws.Cells(Settings.nextIndex, 1).Select

Call Creo.updateGUI(Settings.nextIndex)

您将在 GUI 中显示表格的第三行而不是过滤后的第一行（我希望这是您想要的），因为columnheader被设置为2 ，然后您执行上面的代码，该代码将为您提供nextindex = 3 （列标题 + 1 )。
相反，您可以执行上面的代码

Settings.NextIndex = columnHeader
call nextButton()

并让nextButton子查找过滤后的第一行并将其显示在 GUI 中。 我从来没有测试过代码，这只是阅读你的一个想法。

埃托雷

Answer 2

所以这是我的下一个按钮命令，虽然我不完全喜欢活动单元格方法（如果有人在使用 GUI 时单击工作表可能会失败。

'*********************************************************************************************************
'****************** This one gets triggered when the next button event occurs ****************************
'*********************************************************************************************************
Public Sub nextButton()
    Dim i As Long
    For i = Settings.nextIndex To Settings.filRange.Row
        ActiveCell.Offset(1, 0).Select
        If Not ActiveCell.EntireRow.Hidden Then
            Exit For
        End If
    Next i
    Settings.nextIndex = ActiveCell.Row
    Call Creo.updateGUI(Settings.nextIndex)


    'Reached last row
    If Settings.nextIndex = Settings.filRange.Row Then
        'Remove any filters
        Call Filter.Unhide_All_Columns
        'Hide GUI
        MOM.Hide
    End If

End Sub

这是我的初始化方法：

'*******************************************************************************************************
'****************** THIS ONE GETS CALLED FROM EXCEL ****************************************************
'*******************************************************************************************************

Sub addNewLs()
    Dim columnHeader As Integer
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim lo As ListObject
    Dim lsColumn As Integer
    Dim counter As Integer
    Dim rRange As Range, filRange As Range, Rng As Range

    'set the worksheet we will be dealing with
    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("List")
    Call Filter.Unhide_All_Columns ' just clear all filters

    'Filter our sheet
    columnHeader = 2
    lsColumn = HelpFunctions.getColumn("LS", ws, columnHeader, True) 'Find correct colum, i.e 18 in this case
    Set lo = ws.ListObjects("FilterParts")
    lo.Range.AutoFilter Field:=lsColumn, Criteria1:=""
    lo.Range.Cells.ClearFormats
    lo.AutoFilter.ApplyFilter

    Set Settings.filRange = lo.Range.Cells(lo.Range.Rows.Count, lo.Range.Columns.Count)

    'lo.Range.Offset(columnHeader, 0).SpecialCells(xlCellTypeVisible).EntireRow ' Assign it to a global variable so it can be reused

    Settings.nextIndex = columnHeader + 1
    ws.Cells(Settings.nextIndex, 1).Select

    Call Creo.updateGUI(Settings.nextIndex)
    Call MOMModule.initiliazeMOM
End Sub