亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

搜索框加持 即時(shí)呈現(xiàn)查詢結(jié)果! Excel動(dòng)態(tài)查詢新玩法

  發(fā)布時(shí)間：2025-05-08 14:35:06   作者：佚名   我要評(píng)論
我們介紹過(guò)使用vba制作動(dòng)態(tài)數(shù)據(jù)查詢，今天我們就來(lái)看看動(dòng)態(tài)篩選查詢并即時(shí)顯現(xiàn)方法，詳細(xì)請(qǐng)看下文介紹

之前我們介紹過(guò)利用VBA窗體設(shè)計(jì)并實(shí)現(xiàn)工作表數(shù)據(jù)的動(dòng)態(tài)查詢（利用VBA實(shí)現(xiàn)工作表數(shù)據(jù)的動(dòng)態(tài)查詢）。在這一篇，我們將直接在Excel工作表上，實(shí)現(xiàn)動(dòng)態(tài)篩選查詢并即時(shí)顯現(xiàn)。實(shí)現(xiàn)效果如下：

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

2.當(dāng)我們?cè)贓1單元格的搜索框輸入時(shí)，工作表數(shù)據(jù)會(huì)自動(dòng)篩選并即時(shí)呈現(xiàn)；當(dāng)清空搜索框內(nèi)容時(shí)，則取消篩選狀態(tài)并顯示全部數(shù)據(jù)。

實(shí)現(xiàn)效果GIF

實(shí)現(xiàn)步驟

1.查找字段下拉框

為B1單元格增加數(shù)據(jù)驗(yàn)證，驗(yàn)證條件設(shè)置“允許”為序列，“來(lái)源”為=$3:$3。

增加數(shù)據(jù)驗(yàn)證

2.搜索文本框

依次選擇開(kāi)發(fā)工具--->插入--->ActiveX控件，點(diǎn)擊“文本框”控件，并拖動(dòng)放置在E1單元格。

插入“文本框”控件

3.TextBox控件的Change事件

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

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

以上就是 Excel動(dòng)態(tài)查詢的使用方法，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。

相關(guān)文章

最新評(píng)論