失踪 ; before 第 1 行 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 的语句

Question

您好，我正在尝试在在线 excel (www.editgrid.com) 上创建一个搜索页面，使用宏来锁定除 (B2 单元格) 以外的所有单元格，并且每次打开页面时它都会清除/重置 (B2单元格）并且我不断收到此错误 Missing ；在第 1 行 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 的语句之前我该如何解决这个错误。谢谢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Selection, Range("A1:AS57")) Is Nothing Then
    Range("B2").Select
  End If
End Sub


Option Explicit

Private Sub Worksheet_Activate()

    [search_string] = "Type your search here."
    [search_string].Select

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Const CRITERIA_HEADER = "Description"
    Const TEMPORARY_NAME_CREATED_BY_ADVANCED_FILTER = "Extract"

    ' If change was from any cell other than our lookup, then exit
    If Intersect(Target, [search_string]) Is Nothing Then Exit Sub
    [search_string].Select
End Sub

Answer 1

看起来 EditGrid 的宏应该用 JavaScript 而不是 VBA 编写。详情请见this guide