Lisa1

小學生 Rank: 1

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

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

Excel, Office

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

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

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

謝謝

GBKEE

超級版主 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兔年全勤獎章

8^#

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

複製代碼

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

7^#

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

複製代碼

TOP

Lisa1

小學生 Rank: 1

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

6^#

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

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

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

5^#

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

回復 3# Lisa1

TOP

Lisa1

小學生 Rank: 1

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

4^#

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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