0

您好我正在尝试使用宏在在线 excel（www.editgrid.com）上创建一个搜索页面，以锁定除（B2 单元格）以外的所有单元格，并且每次打开页面时它都会清除/重置（B2 单元格）和我不断收到此错误Missing ; before 第 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
4

1 回答 1

0

看起来 EditGrid 的宏应该用 JavaScript 而不是 VBA 编写。有关更多详细信息，请参阅本指南

于 2013-01-11T22:22:37.277 回答