本文深入探讨了PublicSub在VBA中的使用技巧，包括如何利用PublicSub实现自动化操作、避免命名冲突以及提高代码效率的方法。
Public Sub 技巧10_021()
Dim ws As Worksheet
Dim myAutoFilter As AutoFilter
Dim myRange As Range
Set ws = ActiveSheet
Set myAutoFilter = ws.AutoFilter
If Not myAutoFilter Is Nothing Then
myAutoFilter.Range.AutoFilter
Else
MsgBox "没有自动筛选"
End If
Set myRange = Nothing
Set myAutoFilter = Nothing
Set ws = Nothing
End Sub
Dim ws As Worksheet
Dim myAutoFilter As AutoFilter
Dim myRange As Range
Set ws = ActiveSheet
Set myAutoFilter = ws.AutoFilter
If Not myAutoFilter Is Nothing Then
myAutoFilter.Range.AutoFilter
Else
MsgBox "没有自动筛选"
End If
Set myRange = Nothing
Set myAutoFilter = Nothing
Set ws = Nothing
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
