标签： VBA

高级筛选VBA代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("Q4:S5")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        '高级筛选
        Worksheets("明细账").Activate
        Sheets("登记表").Range("getData[[#Headers],[#Data]]").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("Q3").CurrentRegion, CopyToRange:=Range("B4:N4"), Unique:=False
            
        '定位到最后一个非空单元格
        'ActiveCell.SpecialCells(xlLastCell).Select
        '自动筛选
        'Selection.AutoFilter
    End If
End Sub

继续阅读“EXCEL高级筛选”

摘要

在 Microsoft Excel 中，你可以创建一个宏，该宏仅在特定工作表或当前打开的任何工作表的单元格中输入值时才调用。

但是，请注意，在不需要时不应调用宏，因为它们会影响 Excel 的性能。

继续阅读“当Excel中的某些单元格发生更改时如何运行宏”