Question

我有一个运行InputBox的宏，用户在其中键入数字，然后excel在某个范围内找到一个包含该值的单元格。我想制作一个MsgBox，如果找不到给定的数字，它将发出警报，然后再次运行InputBox，直到该值在范围内。

我有点知道该怎么做，但是不能使发现本身起作用。我已经录制了一个宏，但是如果找不到任何宏，我不知道如何正确设置它。

到目前为止，我的代码：

Sub leftbutton()

Start: n = InputBox("Podaj numer punktu z wykresu") 'give me a point number from a chart
If n = "" Then Exit Sub
If n = "0" Then
MsgBox ("Liczba musi byc wieksza od zera") 'number must be > 0
GoTo Start
End If
If Not IsNumeric(n) Then
MsgBox ("Podaj liczbe!") 'give me a number!
GoTo Start
End If


Range("AS3:AS50000").Select
if
    Selection.Find(What:=n, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
    :=False, SearchFormat:=False).Activate     'now how to know if it finds value or not?

Then msgbox("Nie ma takiego punktu na wykresie") 'there's no such point on a chart
Goto Start
Else '~> select cell with the found value
End If

End Sub

Answer 1

下面的代码将检查您指定的范围，如果找不到任何内容或具有匹配项的单元格的行号，则会给您错误。

Dim FindResult As Object

    n=... 'set whatever value you want to find

    Range("AS3:AS50000").Select
    Set FindResult = Selection.Find(n, LookIn:=xlFormulas, LookAt:=xlWhole)

    If FindResult Is Nothing Then
        MsgBox ("missing")
    Else
        MsgBox (FindResult.Row)
    End If

找不到值后的MsgBox

1 个答案: