最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

搜索框加持 即時呈現查詢結果! Excel動態(tài)查詢新玩法

  發(fā)布時間:2025-05-08 14:35:06   作者:佚名   我要評論
我們介紹過使用vba制作動態(tài)數據查詢,今天我們就來看看動態(tài)篩選查詢并即時顯現方法,詳細請看下文介紹

之前我們介紹過利用VBA窗體設計并實現工作表數據的動態(tài)查詢(利用VBA實現工作表數據的動態(tài)查詢)。在這一篇,我們將直接在Excel工作表上,實現動態(tài)篩選查詢并即時顯現。實現效果如下:

1.我們可以在B1單元格選擇查找字段;

2.當我們在E1單元格的搜索框輸入時,工作表數據會自動篩選并即時呈現;當清空搜索框內容時,則取消篩選狀態(tài)并顯示全部數據。

實現效果GIF

實現步驟

1.查找字段下拉框

為B1單元格增加數據驗證,驗證條件設置“允許”為序列,“來源”為=$3:$3

增加數據驗證

2.搜索文本框

依次選擇開發(fā)工具--->插入--->ActiveX控件,點擊“文本框”控件,并拖動放置在E1單元格。

插入“文本框”控件

3.TextBox控件的Change事件

我們雙擊“文本框”控件,即可直接進入Change事件的VBA編輯區(qū)界面。

Private Sub TextBox1_Change()
    '設置在搜索之前,先選擇查找字段
    If Range("B1").Value = "" Then
        TextBox1.Text = ""
        Exit Sub
    End If
    '獲取工作表數據的篩選列號
    Dim fieldColumn As Integer
    '選中第三行數據
    Range(Range("a3"), Range("a3").End(xlToRight)).Select
    fieldColumn = Selection.Find(What:=Range("B1").Value, LookAt:=xlWhole).Column
    '篩選搜索的數據
    Selection.AutoFilter
    ActiveSheet.Range("A3").CurrentRegion.AutoFilter Field:=fieldColumn, Criteria1:="*" & TextBox1.Text & "*"
    '激活文本框
    TextBox1.Activate
    '當文本框內容為空,取消篩選狀態(tài)
    If TextBox1.Text = "" Then
        ActiveSheet.Range("A3").CurrentRegion.AutoFilter
    End If
End Sub

以上就是 Excel動態(tài)查詢的使用方法,希望大家喜歡,請繼續(xù)關注腳本之家。

相關文章

最新評論

肃宁县| 闻喜县| 东阳市| 庆元县| 文水县| 阜新市| 全州县| 搜索| 安仁县| 九台市| 如东县| 达孜县| 西和县| 铜陵市| 乐业县| 怀集县| 晋江市| 乌兰察布市| 安远县| 奎屯市| 沁源县| 旬阳县| 鄯善县| 永川市| 巩义市| 上犹县| 色达县| 阿鲁科尔沁旗| 茂名市| 读书| 广德县| 榆林市| 乳源| 达孜县| 高安市| 咸阳市| 瓦房店市| 平陆县| 兴化市| 深圳市| 揭东县|