卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

在VBA中,正則表達(dá)式實(shí)例應(yīng)用(8)——符合條件人員篩選

本篇經(jīng)驗(yàn)將和大家分享如何在VBA中使用正則表達(dá)式實(shí)現(xiàn)符合條件的人員篩選。 首先,在工作表中,我們需要篩選出同年入職和離職的人員。請(qǐng)參考下圖進(jìn)行操作: 步驟一:點(diǎn)擊菜單欄【開發(fā)工具】,在其工具欄內(nèi),

本篇經(jīng)驗(yàn)將和大家分享如何在VBA中使用正則表達(dá)式實(shí)現(xiàn)符合條件的人員篩選。

首先,在工作表中,我們需要篩選出同年入職和離職的人員。請(qǐng)參考下圖進(jìn)行操作:

步驟一:點(diǎn)擊菜單欄【開發(fā)工具】,在其工具欄內(nèi),點(diǎn)擊【Visual Basic】。

步驟二:進(jìn)入VBA編輯界面后,點(diǎn)擊菜單欄【插入】,選擇【模塊】。

步驟三:在代碼編輯窗口輸入以下代碼:


Sub 后向引用()
    Set regx  CreateObject("")
    With regx
        .Global  True
        .Pattern  "(d{4}).*1.*"
        For Each Rng In Range([B2], Cells(, 2).End(xlUp))
            If .test(Rng) Then
                n  n   1
                Cells(n, 4)  Cells(, 1)
            End If
        Next
    End With
    Set rg  [D1].CurrentRegion
    With rg
          1
        .HorizontalAlignment  xlCenter
          8
    End With
End Sub

步驟四:在工作表界面的【開發(fā)工具】菜單下,點(diǎn)擊【插入】按鈕,插入表單控件,并與上述代碼關(guān)聯(lián)。將表單控件命名為【人員篩選】。

步驟五:點(diǎn)擊【人員篩選】按鈕,符合條件的人員將被立即篩選出來。

通過以上步驟,你可以輕松利用VBA中的正則表達(dá)式功能,快速篩選出同年入職和離職的人員。這對(duì)于數(shù)據(jù)分析和人事管理非常有幫助!

標(biāo)簽: