Board logo

標題: [發問] (已解決，謝謝大大們) 關於如何在篩選上下判斷? [打印本頁]
作者: av8d    時間: 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    時間: 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
複製代碼
作者: av8d    時間: 2012-6-4 21:53

回復 2# register313


    大大~我的按鈕是CommandButton1

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

他有成功取消篩選了~但是CommandButton1 按鈕會消失~是不是我哪你弄錯了@@
作者: register313    時間: 2012-6-4 22:22

回復 3# av8d

[attach]11252[/attach]
[attach]11253[/attach]
上傳你的excel檔案是不是更能知道問題所在
作者: Hsieh    時間: 2012-6-4 23:55

回復 3# av8d

錄製巨集就知道了
[attach]11254[/attach]
作者: av8d    時間: 2012-6-5 10:07

本帖最後由 av8d 於 2012-6-5 10:12 編輯

回復 4# register313


    [attach]11258[/attach]

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

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


我記得 Range("A1").Select  可以改寫成 Range [A1].Select 但是他卻出現屬性錯誤的提示@@
作者: register313    時間: 2012-6-5 10:19

回復 6# av8d


Range("A1").Select
[A1].Select
Cells(1,1).select
Cells(1,"A").select
作者: av8d    時間: 2012-6-5 22:23

回復 7# register313


    請問Sheets("Data").Select是否也有省略寫法~請問大大的省略寫法都是如何學會的呢? 謝謝!
作者: register313    時間: 2012-6-5 22:53

回復 8# av8d


    VBA的寫作技巧與增進效能



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)