0

希望有人可以帮助我在下面的代码部分出现错误，旁边有 >>>>>？

当我通过代码名称而不是选项卡名称引用工作表时，会发生这种情况。

有什么帮助或建议吗？？

Private Sub CommandButton1_Click()

 Dim lngStart As Long, lngEnd As Long
    lngStart = Sheet5.Range("A2").Value 'assume this is the start date
    lngEnd = Sheet5.Range("A3").Value 'assume this is the end date

    Application.ScreenUpdating = False
    Sheet100.Visible = True
    Sheet105.Visible = True

    'assume you have field name / label in D29
    Sheet100.Unprotect Password:="MM@MM.com"
    Sheet100.Select
   >>>>>>>>> ActiveSheet.ListObjects("tbl_summary_1").Range.AutoFilter field:=8,
   >>>>>     Criteria1:=">=" & lngStart, _
   >>>>>     Operator:=xlAnd, _
   >>>>>     Criteria2:="<=" & lngEnd
    Sheet100.Protect Password:="MM@MM.com", AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

    Sheet105.Unprotect Password:="MM@MM.com"
    Sheet105.Select
    ActiveSheet.ListObjects("tbl_kpi").Range.AutoFilter field:=7, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
    Sheet105.Protect Password:="MM@MM.com", AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

    Sheet3.Select

    Sheet100.Visible = xlVeryHidden
    Sheet105.Visible = xlVeryHidden
    Application.ScreenUpdating = True

On Error GoTo ErrorHandler
Sheets(Range("H19").Value).Select
Exit Sub

提前谢谢你

4

0 回答 0