Conas a sheiceáil an gcuirtear scagaire i bhfeidhm ar bhileog oibre in Excel?
I gcás go bhfuil cuid mhór sonraí i mbileog oibre, an féidir a sheiceáil an gcuirtear an scagadh i bhfeidhm i gcolún sonraithe nó sa bhileog oibre iomlán gan seiceáil de láimh do na colúin ceann ar cheann? Sa rang teagaisc seo, taispeánfaimid dhá chód VBA duit chun an tasc seo a láimhseáil.
Seiceáil an gcuirtear scagaire i bhfeidhm i gcolún áirithe
Seiceáil an gcuirtear scagaire i bhfeidhm i mbileog oibre
Seiceáil an gcuirtear scagaire i bhfeidhm i gcolún áirithe
Chun a sheiceáil an bhfuil colún áirithe scagtha, is féidir leis an gcód VBA san alt seo bhfabhar a dhéanamh duit.
1. Oscail an bhileog oibre is mian leat a sheiceáil an bhfuil scagaire i bhfeidhm i gcolún áirithe.
2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin cóipeáil an cód VBA seo a leanas i bhfuinneog an Mhodúil (Cód).
Cód VBA: Seiceáil an bhfuil colún sonraithe scagtha
Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
xBol = True
End If
Next xFNum
If xBol Then
MsgBox "The specified column is filled"
Else
MsgBox "The specified column is not filled"
End If
End Sub
nótaí: Sa chód VBA, an uimhir 3 sa líne seo “xColún = 3Seasann ” don tríú colún sa bhileog oibre reatha. Más mian leat seiceáil an gcuirtear scagaire i bhfeidhm i colún E, an uimhir a athrú 3 chun 5.
4. Brúigh an F5 eochair chun an cód a rith.
Má tá an colún sonraithe scagtha, beidh an bosca dialóige seo a leanas aníos.
Seachas sin, gheobhaidh tú an bosca dialóige seo a leanas.
Seiceáil an gcuirtear scagaire i bhfeidhm i mbileog oibre
Más mian leat a sheiceáil an bhfuil scagaire i bhfeidhm i mbileog oibre, bain triail as an gcód VBA san alt seo.
1. Oscail an bhileog oibre is mian leat a sheiceáil an bhfuil scagaire i bhfeidhm.
2. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
3. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin cóipeáil an cód VBA seo a leanas sa Modúl (Cód) fhuinneog.
Cód VBA: Seiceáil an gcuirtear scagaire i bhfeidhm i mbileog oibre
Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On Then
xBol = True
Exit For
End If
Next xFNum
If xBol Then
MsgBox "Filter is applied in the curren worksheet"
Else
MsgBox "Filter does not apply in the current worksheet"
End If
End Sub
4. Ansin, brúigh F5 eochair chun an cód seo a rith, má tá scagadh sa bhileog oibre, gheobhaidh tú bosca dialóige mar seo a leanas.
Seachas sin, gheobhaidh tú an bosca dialóige seo a leanas.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!