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

　頭銜: 麻辣路人甲

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

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

9^#

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

回復 8# av8d

VBA的寫作技巧與增進效能

av8d

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

8^#

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

回復 7# register313

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

　頭銜: 麻辣路人甲

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

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

7^#

發表於 2012-6-5 10:19 | 只看該作者

回復 6# av8d

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

av8d

帖子: 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 但是他卻出現屬性錯誤的提示@@

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

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

回復 3# av8d

錄製巨集就知道了

學海無涯_不恥下問

　頭銜: 麻辣路人甲

帖子: 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檔案是不是更能知道問題所在

av8d

帖子: 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 按鈕會消失~是不是我哪你弄錯了@@

　頭銜: 麻辣路人甲

帖子: 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

複製代碼