0

我正在制作用户表单。我设法使用下面的代码设置了一个查找功能，然后还循环并计算电子表格中的案例数量。

我还创建了一个函数来查找由单独的命令按钮操作的下一个项目，但它不会在用户表单中显示记录，因此可以对其进行修改。

有没有人对如何解决这个问题有任何想法？

Private Sub FindNext_Click()
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

Private Sub Find_Click()
    Worksheets("Master").Activate
    Dim strFind As String
    Dim FirstAddress As String
    Dim rSearch As Range
    Set rSearch = Range("a1", Range("e65536").End(xlUp))
    Dim f      As Integer

    strFind = Me.TextBox1.Value

    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then
            c.Select
            With Me
                .TextBox2.Value = c.Offset(0, 1).Value
                .TextBox3.Value = c.Offset(0, 2).Value
                .TextBox4.Value = c.Offset(0, 3).Value
                .TextBox5.Value = c.Offset(0, 4).Value
                .TextBox6.Value = c.Offset(0, 5).Value
                .TextBox7.Value = c.Offset(0, 6).Value
                .TextBox8.Value = c.Offset(0, 7).Value
                .TextBox9.Value = c.Offset(0, 8).Value
                .TextBox10.Value = c.Offset(0, 9).Value
                .TextBox11.Value = c.Offset(0, 10).Value
                .TextBox12.Value = c.Offset(0, 11).Value
                .TextBox13.Value = c.Offset(0, 12).Value
                .TextBox14.Value = c.Offset(0, 13).Value
                .TextBox20.Value = c.Offset(0, 14).Value
                .TextBox21.Value = c.Offset(0, 15).Value
                .TextBox15.Value = c.Offset(0, 16).Value
                .TextBox22.Value = c.Offset(0, 17).Value
                .TextBox16.Value = c.Offset(0, 18).Value
                .TextBox18.Value = c.Offset(0, 19).Value
                .TextBox19.Value = c.Offset(0, 20).Value
                .update.Enabled = True
                .Add.Enabled = False
                f = 0
            End With
            FirstAddress = c.Address
            Do
                f = f + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> FirstAddress
            If f > 1 Then
                Select Case MsgBox("There are " & f & " instances of " & strFind, vbOKCancel Or vbExclamation Or vbDefaultButton1, "Multiple entries")

                    Case vbOK
                    Case vbCancel

                End Select
                Me.Height = frmMax

            End If
        Else: MsgBox strFind & " not listed"
        End If
    End With

End Sub

谢谢

4

1 回答 1

1

您需要将更新代码封装到它自己的方法（子）中，然后您可以为 Find 和 Find Next 调用它。喜欢：

Private Sub FindNext_Click()
    Dim nextCell As Range
    Set nextCell = Cells.FindNext(After:=ActiveCell)
    'FindNext loops round to the initial cell if it finds no other so we test for it
    If Not nextCell.Address(external:=true) = ActiveCell.Address(external:=true) Then
        updateFields anchorCell:=nextCell
    End If
End Sub

Private Sub Find_Click()
    Worksheets("Master").Activate
    Dim strFind As String
    Dim FirstAddress As String
    Dim rSearch As Range
    Set rSearch = Range("a1", Range("e65536").End(xlUp))
    Dim f      As Integer

    strFind = Me.TextBox1.Value

    With rSearch
        Set c = .Find(strFind, LookIn:=xlValues)
        If Not c Is Nothing Then
            updateFields anchorCell:=c
            FirstAddress = c.Address
            Do
                f = f + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> FirstAddress
            If f > 1 Then
                Select Case MsgBox("There are " & f & " instances of " & strFind, vbOKCancel Or vbExclamation Or vbDefaultButton1, "Multiple entries")

                    Case vbOK
                    Case vbCancel

                End Select
                Me.Height = frmMax

            End If
        Else: MsgBox strFind & " not listed"
        End If
    End With

End Sub

Private Sub updateFields(anchorCell As Range)
    anchorCell.Select
    With Me
        .TextBox2.Value = anchorCell.Offset(0, 1).Value
        .TextBox3.Value = anchorCell.Offset(0, 2).Value
        .TextBox4.Value = anchorCell.Offset(0, 3).Value
        .TextBox5.Value = anchorCell.Offset(0, 4).Value
        .TextBox6.Value = anchorCell.Offset(0, 5).Value
        .TextBox7.Value = anchorCell.Offset(0, 6).Value
        .TextBox8.Value = anchorCell.Offset(0, 7).Value
        .TextBox9.Value = anchorCell.Offset(0, 8).Value
        .TextBox10.Value = anchorCell.Offset(0, 9).Value
        .TextBox11.Value = anchorCell.Offset(0, 10).Value
        .TextBox12.Value = anchorCell.Offset(0, 11).Value
        .TextBox13.Value = anchorCell.Offset(0, 12).Value
        .TextBox14.Value = anchorCell.Offset(0, 13).Value
        .TextBox20.Value = anchorCell.Offset(0, 14).Value
        .TextBox21.Value = anchorCell.Offset(0, 15).Value
        .TextBox15.Value = anchorCell.Offset(0, 16).Value
        .TextBox22.Value = anchorCell.Offset(0, 17).Value
        .TextBox16.Value = anchorCell.Offset(0, 18).Value
        .TextBox18.Value = anchorCell.Offset(0, 19).Value
        .TextBox19.Value = anchorCell.Offset(0, 20).Value
        .Update.Enabled = True
        .Add.Enabled = False
    End With
End Sub
于 2013-08-11T23:06:03.023 回答