返回列表下一主題上一主題發帖

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

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

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去判斷? 謝謝

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-4 11:50 | 只看該作者

回復 1# av8d

Sub xx()
With Sheets("Data")
If .AutoFilterMode = True Then .AutoFilterMode = False
If .AutoFilterMode = False Then .[A1].AutoFilter
End With
End Sub

複製代碼

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

3^#

發表於 2012-6-4 21:53 | 只看該作者

回復 2# register313

大大~我的按鈕是CommandButton1

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

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-6-4 22:22 | 只看該作者

回復 3# av8d

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 259
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-30

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-6-4 23:55 | 只看該作者

回復 3# av8d

錄製巨集就知道了

學海無涯_不恥下問

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

6^#

發表於 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

register313