我已经编写了这个宏来在保存电子表格之前撤消任何过滤器。
这是我的代码:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub
当我将过滤器添加到列中然后单击“保存”时,它工作正常,过滤器会自动删除。但是,如果我将过滤器添加到日期格式列中,则不会发生同样的情况。有什么想法、原因是什么以及可以做些什么来补救这种情况。
非常感谢您宝贵的时间并感谢您的帮助。
最诚挚的问候