檢查值是否出現在不同的工作表中

Question

我有一個清單。 我想看看它是否出現在其他工作表中，並根據它所在的工作表返回一個字符串。

例如偽代碼：

value = "Hi"
If value in sheet 2 Then
  return "Yes"
If value in sheet 3 Then
  return "TDB"
Else
  return " "

我到目前為止的代碼

Public Function Check(product As String) As String

    Dim BLRange As Range
    Dim xlCell As Range
    Dim BL As Worksheet
    Dim TBDRange As Range
    Dim TBD As Worksheet
    Dim result As String

    Set BL = ActiveWorkbook.Worksheets("Sheet2")
    Set BLRange = BL.Range("A1:A1000")
    Set TBD = ActiveWorkbook.Worksheets("Sheet3")
    Set TBDRange = TBD.Range("A1:A1000")

    For Each xlCell In BLRange
        If xlCell.Value = product Then
            Check = "Yes"
        End If
    Next xlCell

    For Each xlCell In TBDRange
        If xlCell.Value = product Then
            Check = "TBD"
        End If
    Next xlCell

    Check = ""
End Function

當我調用Check("Hi")我得到了#VALUE!

Answer 1

這是使用像@urdearboy 提到的find的函數的一個版本......

Public Function Check(product As String) As String

    Dim BLRange As Range
    Dim TBDRange As Range
    Dim fndRng As Range

    With ActiveWorkbook
        Set BLRange = .Worksheets("Sheet2").Columns("A")
        Set TBDRange = .Worksheets("Sheet3").Columns("A")
    End With

    Set fndRng = BLRange.Find(product)
    If Not fndRng is Nothing Then Check = "Yes": Exit Function

    Set fndRng = TBDRange.Find(product)
    If Not fndRng is Nothing Then Check = "TBD": Exit Function

End Function

Answer 2

試試這個代碼（已經測試和工作）

Public Function Check(product As String) As String

Dim BLRange As Range
Dim BL As Worksheet
Dim TBDRange As Range
Dim TBD As Worksheet
Dim result As String

Set BL = ActiveWorkbook.Worksheets("Sheet2")
Set BLRange = BL.Range("A1:A1000")
Set TBD = ActiveWorkbook.Worksheets("Sheet3")
Set TBDRange = TBD.Range("A1:A1000")

Check = "none"

For Each xlCell In BLRange
 If xlCell.Text = product Then
    Check = "Yes"
    GoTo a
 End If
Next xlCell

For Each xlCell In TBDRange
 If xlCell.Text = product Then
    Check = "TBD"
    GoTo a
 End If
Next xlCell

Exit Function

a:


End Function