通过双击特定键find详细信息

你能帮我解决这个问题吗？

我想写一个VBA程序，当我点击Sheet1中的一个特定的键时，它会进入数据库并find与特定键相关的详细信息。

数据库是名为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

只要提到要search的工作表。

 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