Question

我有一个工作的Excel工作表，打开后会要求用户输入产品类型。这是通过VBA代码InputBox完成的，并将输入内容放置在活动工作表的单元格A6中。我有一个隐藏的工作表，其中列出了单元格A2：A160中的所有可能的类型。我想有一种方法可以检查用户输入的内容是否有效，如果不能再试一次。

Answer 1

此宏将搜索隐藏的工作表（将Sheet2更改为隐藏的工作表名称）。和MsgBox。您应该将ActiveSheet更改为实际的工作表。

Sub FindInHiddenSht()

    Dim findVal As Variant

    With Sheet2 'Your hidden worksheet
        Set findVal = .Cells.Find(What:=ActiveSheet.Range("A6").Value, After:=.Cells(1), _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
    End With

        If findVal Is Nothing Then
            MsgBox "Not Found"

        Else
            MsgBox "Found at " & findVal.Address
        End If

End Sub

如何检查通过VBA输入框输入的文本何时存在于隐藏工作表的单元格区域中。

1 个答案: