從一個單元格中獲取價值並將其集中在另一張表上 Vba Excel

Question

我需要在另一個工作表中搜索一個元素，我認為我以某種方式應用了錯誤的方法，我無法激活單元格並聚焦該元素。 我在執行代碼時沒有收到任何錯誤

我留下圖解的照片，以防我的想法和使用的代碼一起被理解得不太好

If Target.Count = 1 Then
       If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
           Set wsSearch = ThisWorkbook.Sheets("TARJETAS")
           Set f = wsSearch.Columns("B:B").Find( _
                             what:=Target.Value, lookat:=xlWhole)
           If Not f Is Nothing Then
               Cancel = True
               wsSearch.Activate
               f.Select
           End If
       End If
   End If

Answer 1

對於合並的單元格， Target.Count可能大於 1，但您不必擔心這一點，因為您不能一次雙擊多個單元格（除非合並）。

似乎 Target 作為整個合並范圍傳入，因此Value是一個數組：

您可以使用Target(1,1)獲取要搜索的值：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim wsSearch As Worksheet, f As Range, v
    Debug.Print Target.Count

    If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
        v = Target(1, 1).Value '<<< get the value
        Set wsSearch = ThisWorkbook.Sheets("TARJETAS")

        Debug.Print "Searching for " & v
        Set f = wsSearch.Columns("B:B").Find(what:=v, lookat:=xlWhole)
        If Not f Is Nothing Then
            Debug.Print "Found at " & f.Address()
            Cancel = True
            wsSearch.Activate
            f.Select
        End If
    End If

End Sub