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

Posted 2023-03-29

【中文标题】失踪 ; before 第 1 行 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 的语句

【英文标题】：Missing ; before statement at line 1 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

【发布时间】：2012-12-25 19:06:55

【问题描述】：

您好，我正在尝试在在线 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

【问题讨论】：

将Option Explicit移到顶部

嗨@SiddharthRout。我试了一下，这次又出现了另一个错误，它给了 Missing ；第 1 行选项显式之前的语句

我刚刚意识到您正在在线执行此操作...我不确定，因为我从未尝试过。我什至不确定 vba 宏是否可以在网页上运行...

【参考方案1】：

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