0

こんにちは、マクロを使用して (B2 セル) を除くすべてのセルをロックするオンライン Excel (www.editgrid.com) で検索ページを作成しようとしています。ページを開くたびに、クリア/リセット (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
4

1 に答える 1

0

EditGrid のマクロは、VBA ではなく JavaScript で記述する必要があるようです。詳細については、このガイドを参照してください

于 2013-01-11T22:22:37.277 に答える