更改数据后如何自动刷新Excel自动筛选器？
用例：我将一个单元格的值更改为已过滤的值。我希望看到当前行消失而无需执行其他任何操作。
右键单击您的工作表名称，选择“查看代码”，然后粘贴以下代码。粘贴后，单击左上方“文件”下方的Excel图标，或键入Alt-F11，以返回到电子表格视图。
这将启用自动刷新。别忘了将文件保存为具有宏支持lie的格式.xlsm。
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.FilterMode = True Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
With ActiveWorkbook
.CustomViews.Add ViewName:="Mine", RowColSettings:=True
Me.AutoFilterMode = False
.CustomViews("Mine").Show
.CustomViews("Mine").Delete
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End If
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句