麻辣家族討論版版 » Excel程式區 » 想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法

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

[發問] 想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-5-2
最後登錄: 2012-5-10

1^# 跳轉到 »

發表於 2012-5-2 17:43 | 只看該作者

想請問大家Excel的下拉式選單可以結合篩選嗎?

本帖最後由 Lisa1 於 2012-5-2 20:50 編輯

請問大家在Excel2007裡的下拉式選單可以結合篩選嗎?
附檔中我的紅色儲存格是下拉式選單
那我想要依照下拉式選單所選取的月份來做為資料顯示的篩選請問該如何做才好呢?

請幫忙，謝謝.zip (3.93 KB)
謝謝

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-5-2 18:41 | 只看該作者

回復 1# Lisa1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False
For Each a In Range([A2], [A65536].End(xlUp))
If a <> [A1] Then
a.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

複製代碼

學海無涯_不恥下問

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-5-2
最後登錄: 2012-5-10

3^#

發表於 2012-5-2 20:54 | 只看該作者

請問程式碼是要放在excel的哪裡呢?
謝謝

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

4^#

發表於 2012-5-2 21:22 | 只看該作者

回復 3# Lisa1

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-5-2
最後登錄: 2012-5-10

5^#

發表於 2012-5-3 14:47 | 只看該作者

本帖最後由 Lisa1 於 2012-5-3 15:15 編輯

不好意思~再請問一下
如果我還有一個選項是全部(選了以後會讓全部資料都顯示出來)
程式碼應該加上什麼呢?
謝謝

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

6^#

發表於 2012-5-3 15:20 | 只看該作者

回復 5# Lisa1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False
For Each a In Range([A2], [A65536].End(xlUp))
If a <> [A1] Then
a.EntireRow.Hidden = True
End If
Next
If Target = "全部" Then Rows.Hidden = False
Application.ScreenUpdating = True
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-5-3 18:32 | 只看該作者

回復 5# Lisa1

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.AutoFilter field:=1, Criteria1:=Target, VisibleDropDown:=False
'AutoFilter 方法 [自動篩選] 篩選出一個清單。為 Variant。
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Me.AutoFilterMode = False
'儲存格位置不是A1 取消 [自動篩選] 全部資料顯示
End Sub

複製代碼

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 女
註冊時間: 2012-5-2
最後登錄: 2012-5-10

8^# 倒序看帖

字體大小: tT

發表於 2012-5-8 11:38 | 只看該作者

[發問] 想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法

想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法

如果選擇Dec的話畫面就可以直接跳到Dec的那一塊，但其他的資料不會隱藏

請幫忙，謝謝.rar (13.8 KB)

謝謝

收藏

靜思自在 : 君子立恆志，小人恆立志。

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