双击特定键

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

只需提及要搜索的工作表。

plot(0, xlab = expression("k_xy_13"))