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

Lisa1

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

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

下載次數: 13

2012-5-2 17:41

                                                                                                                                                         謝謝

Hsieh

回復 1# Lisa1

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

複製代碼

Lisa1

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

register313

回復 3# Lisa1

下載 (170.86 KB)

2012-5-2 21:22

Lisa1

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

register313

回復 5# Lisa1

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$A$1" Then Exit Sub
   
3. Application.ScreenUpdating = False
   
4. Rows.Hidden = False
   
5. For Each a In Range([A2], [A65536].End(xlUp))
   
6.    If a <> [A1] Then
   
7.    a.EntireRow.Hidden = True
   
8.    End If
   
9. Next
   
10. If Target = "全部" Then Rows.Hidden = False
    
11. Application.ScreenUpdating = True
    
12. End Sub

複製代碼

GBKEE

回復 5# Lisa1

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

複製代碼

Lisa1

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

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

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

下載次數: 3

2012-5-8 11:36

謝謝