返回列表 上一主題 發帖

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-4 10:28 | 顯示全部帖子

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

本帖最後由 av8d 於 2012-6-5 11:24 編輯

Sheets("Data").Select
    Sheets("Data").Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter

以上是將第一列篩選~如果在執行一次則將篩選取消~

篩選狀態(會出現一個方形箭頭向下的按鈕)

我想下IF判斷~
問題一:
判斷第一列如果有(方形箭頭向下的按鈕)~則幫我取消這些按鈕~如果沒有(方形箭頭向下的按鈕)~則不做任何動作
問題二:
判斷第一列如果沒有(方形箭頭向下的按鈕)~則幫我增加這些按鈕~如果有(方形箭頭向下的按鈕)~則不做任何動作

以上兩個問題是分開的~請問該怎麼下IF去判斷? 謝謝
收藏 分享

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2012-6-4 21:53 | 顯示全部帖子
回復 2# register313


    大大~我的按鈕是CommandButton1

當資料篩選時~我去執行If .AutoFilterMode = True Then .AutoFilterMode = False

他有成功取消篩選了~但是CommandButton1 按鈕會消失~是不是我哪你弄錯了@@

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2012-6-5 10:07 | 顯示全部帖子
本帖最後由 av8d 於 2012-6-5 10:12 編輯

回復 4# register313


    test1.rar (49.66 KB)

請點選左上角的紅色按鈕  ~  然後點 全部總覽  ~ 紅色按鈕就消失了~

我後來發現是暫時消失的~當我點A1又會出現了~於是我就多一行 Range("A1").Select 給他~謝謝大大


我記得 Range("A1").Select  可以改寫成 Range [A1].Select 但是他卻出現屬性錯誤的提示@@

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
4#
發表於 2012-6-5 22:23 | 顯示全部帖子
回復 7# register313


    請問Sheets("Data").Select是否也有省略寫法~請問大大的省略寫法都是如何學會的呢? 謝謝!

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題