通過雙擊特定鍵找到詳細信息

Question

你能幫我解決這個問題嗎？

我想編寫一個VBA程序，當我點擊sheet1中的一個特定鍵時，它會進入數據庫並找到與特定鍵相關的詳細信息。

數據庫是名爲PSN的Excel工作表。

我在下面寫了我的代碼錯在哪裏。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Columns("E")) Is Nothing Then 
    Cancel = True 

    Worksheets("PSN").Activate 

    Dim cell As Range 
    Set cell = Range("A1:A10000").Find(Target.Value, LookIn:=xlValues) 
    End If 
End Sub 

Answer 1

只提那幾頁搜索。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As 
Boolean) 
If Not Intersect(Target, Columns("E")) Is Nothing Then 
     Cancel = True 
     Dim cell As Range 
    Set cell = sheets("PSN").Range("A1:A10000").Find(Target.Value, LookIn:=xlValues) 
End If 
End Sub