- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
本帖最後由 luhpro 於 2011-6-8 22:19 編輯
回復 1# like_azure
Sub vbaAFilter()
.
.
.
On Error GoTo Skip
With Sheets("Orders") '在Orders工作表中
.
.
.
End With
For Each theArea In Rng.Areas
.
.
.
Next
Skip:
Rng.AutoFilter '解除自動篩選狀態
On Error GoTo 0
End Sub |
|
發表於 2011-6-8 22:12
| 