返回列表 上一主題 發帖

[發問] 下拉式選單連結篩選功能

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-7-28 17:05 | 只看該作者

[發問] 下拉式選單連結篩選功能

各位前輩好

最近又遇到一個問題，需要新增資料篩選的功能，
在毫無頭緒的狀況下到處爬文，看看別人的做法，
其中有看到"准提部林"大大的多條件搜尋與篩選，
我想詢問有沒有辦法在同一個頁面裡面處理這些資料?(現況工作表已經有點多)
舉個例子：
關鍵字在sheet2的B欄
資料在sheet1的B欄
想要在sheet1的B欄上方連結一個下拉式選單(或加個按鈕執行等方式)，選單裡面連結關鍵字
點選完下拉式選單後，下面的資料已篩選出含有關鍵字的內容
這個能做得到嗎? 或是使用VBA?


資料篩選問題.rar (7.46 KB)
收藏 分享

Michelle-W

帖子
63 
主題
13 
精華
0 
積分
122 
點名
0  
作業系統
Windows 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2015-4-22 
最後登錄
2019-7-19 
3#
發表於 2016-7-29 13:57 | 只看該作者
回復 2# 准提部林


謝謝准提部林的指點
我的需求就是這個!!!
原來可以對儲存格這樣使用~!!!
又學了一課~真的非常感謝您

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 2016-7-29 11:45 | 只看該作者
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3.      If .Address = "$B$1" Then
  4.         If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
  5.         If .Value = "" Then Exit Sub
  6.         Range([A3], [A65536].End(xlUp).Cells(1, 2)).AutoFilter Field:=2, Criteria1:="=*" & .Value & "*"
  7.      End If
  8. End With
  9. End Sub
複製代碼
資料篩選問題_V1.rar (10.12 KB)

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題