Question

我有两个工作表。第一个已经定义，另一个用户需要输入值。

假设问题的两个工作表的B列。现在，当用户在B列中输入值时，代码应将其与表A的B列进行比较。如果它存在于第一张表中，则程序应恢复其他操作，否则应显示错误消息，指示不存在的值。

Answer 1

下面我将Worksheets("Sheet2")中B列中输入的值与Range(B1:B10)中Worksheets("Sheet1")中找到的值进行比较

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range

    Set rng = Worksheets(1).Range("B1:B10")

    If Not Intersect(Range("B:B"), Target) Is Nothing Then
        If Not IsError(Application.VLookup(Target, rng, 1, False)) Then
            //Value found. Do something...
        Else
            MsgBox "Value not found"
        End If
    End If
End Sub

请注意，此代码需要放在Sheet2模块

中

比较值以查找是否存在（VBA）？

1 个答案: