在VBA中设置“查找下一个”和“查找上一个”按钮

Private Sub btnFindNext_Click()
    Dim searchText As String
    Dim startPosition As Long
    
    searchText = InputBox("请输入要查找的文本：")
    startPosition = ActiveSheet.Cells.Find(What:=searchText, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
    
    If startPosition > 0 Then
        ActiveSheet.Cells(startPosition, 1).Select
    Else
        MsgBox "未找到匹配的文本。"
    End If
End Sub

Private Sub btnFindPrevious_Click()
    Dim searchText As String
    Dim startPosition As Long
    
    searchText = InputBox("请输入要查找的文本：")
    startPosition = ActiveSheet.Cells.Find(What:=searchText, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
    
    If startPosition > 0 Then
        ActiveSheet.Cells(startPosition, 1).Select
    Else
        MsgBox "未找到匹配的文本。"
    End If
End Sub