Question

我在下面有这个宏，非常适合查找数字并确认它是否正确（然后突出显示）。首先它会询问您要查找的号码，然后输入号码并点击“确定”。然后，如果它找到了号码，那么你将有机会说是否或取消（以防它们是你正在寻找的多个号码而不是正确的号码）。如果您点击是，则会突出显示该单元格。

问题：

如果您要查找的号码不在工作表上，则宏将出错。
如果你点击了＃34; NO＆＃34;我希望它能找到下一个数字，如果它们没有下一个数字，那么就退出。（也可以调用此按钮＆＃34;下一步＆＃34;因为它可以更准确地描述情况。

任何帮助将不胜感激！谢谢！

Sub find_highlight()
    Dim w As Variant
    Dim FoundCell As Range
    Dim ans As String

    Do
        w = InputBox("What to find?")

        Cells.Find(What:=(w), After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False).Activate

        Select Case MsgBox("Is this the number?", vbYesNoCancel)

            Case vbNo

            Case vbYes
                With Selection.Interior
                    .ColorIndex = 6
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                End With

            Case vbCancel
                Exit Do

        End Select
    Loop
End Sub

Answer 1

你真的应该把它分成多个帖子。请发一个问题。

至于您所看到的错误：您必须检查错误情况。

Sub find_highlight()
    Dim w As Variant
    Dim FoundCell As Range
    Dim ans As String

    Do
        w = InputBox("What to find?")

        On Error Resume Next
        thisRng1 = ActiveCell.Address
        Cells.Find(What:=(w), After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False).Activate
        thisRng2 = ActiveCell.Address
        If thisRng1 = thisRng2 Then
            MsgBox "Value Not Found"
        End If
        On Error GoTo 0

        Select Case MsgBox("Is this the number?", vbYesNoCancel)

            Case vbNo

            Case vbYes
                With Selection.Interior
                    .ColorIndex = 6
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                End With

            Case vbCancel
            Exit Do

        End Select
    Loop
End Sub

Answer 2

以下代码：

允许用户通过简单地不提供值来搜索
查看＆＃34;值＆＃34;而不是＆＃34;公式＆＃34; （仅仅是因为我怀疑你想要搜索公式的结果，而不是公式本身 - 即如果你有一个公式=5+4，你会想要匹配它，如果用户正在搜索{{1} }，而不是他们正在搜索9）
避免错误，当您尝试4未发生匹配时发生匹配的单元格时，通过在尝试执行测试以确保匹配之前不尝试Activate来发生错误发生
退出搜索值。经常会回到第一场比赛

Activate

通过确认查找并突出显示宏

2 个答案: