Board logo

標題: [發問] 想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法 [打印本頁]
作者: Lisa1    時間: 2012-5-2 17:43     標題: 想請問大家Excel的下拉式選單可以結合篩選嗎?

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

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

[attach]10781[/attach]
                                                                                                                                                         謝謝
作者: Hsieh    時間: 2012-5-2 18:41

回復 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    時間: 2012-5-2 20:54

請問程式碼是要放在excel的哪裡呢?
謝謝
作者: register313    時間: 2012-5-2 21:22

回復 3# Lisa1

[attach]10782[/attach]
作者: Lisa1    時間: 2012-5-3 14:47

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

不好意思~再請問一下
如果我還有一個選項是全部(選了以後會讓全部資料都顯示出來)
程式碼應該加上什麼呢?
謝謝
作者: register313    時間: 2012-5-3 15:20

回復 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    時間: 2012-5-3 18:32

回復 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    時間: 2012-5-8 11:38     標題: 想請問大家Excel使用下拉式選單後直接跳到該條件區域的方法

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

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

[attach]10854[/attach]

謝謝



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