返回列表 上一主題 發帖

[發問] (已解決，謝謝大大們) 關於如何在篩選上下判斷?

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-6-4 11:50 | 顯示全部帖子
回復 1# av8d
  1. Sub xx()
  2. With Sheets("Data")
  3.   If .AutoFilterMode = True Then .AutoFilterMode = False
  4.   If .AutoFilterMode = False Then .[A1].AutoFilter
  5. End With
  6. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-6-4 22:22 | 顯示全部帖子
回復 3# av8d

1.gif

上傳你的excel檔案是不是更能知道問題所在

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-6-5 10:19 | 顯示全部帖子
回復 6# av8d


Range("A1").Select
[A1].Select
Cells(1,1).select
Cells(1,"A").select

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-6-5 22:53 | 顯示全部帖子
回復 8# av8d


    VBA的寫作技巧與增進效能

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題