Conas gach cealla dáta a scagadh roimh Excel nó ina dhiaidh sin?
San alt seo, labhróidh mé faoi conas gach cealla dáta a scagadh a bhí roimh bhileog oibre Excel roimh nó ina dhiaidh sin.
Scag gach cealla dáta roimh nó tar éis an lae inniu le feidhm Scagaire
Scag gach cealla dáta roimh nó tar éis inniu le cód VBA
Scag gach cealla dáta roimh nó tar éis an lae inniu le feidhm Scagaire
Déanta na fírinne, is féidir leis an ngné Scagaire in Excel cabhrú leat an tasc seo a réiteach chomh tapa agus is féidir leat, déan é seo le do thoil:
1. Roghnaigh an colún dáta is mian leat a scagadh, agus ansin cliceáil Dáta > scagairí, féach ar an scáileán:
2. Ansin cliceáil ar an saighead anuas, agus ansin roghnaigh Scagairí Dáta > Roimh / Tar éis de réir mar a theastaíonn uait, féach an pictiúr:
3. Sa an AutoFilter Saincheaptha dialóg, cliceáil Piocálaí Dáta cnaipe, agus ansin cliceáil Inniu cnaipe san fhéilire roghnóir dáta, féach screesnhot:
4. Ansin cliceáil OK chun an dialóg a dhúnadh, agus rinneadh na dátaí uile roimh nó tar éis an lae inniu a scagadh mar a leanas an pictiúr a thaispeántar:
Scag gach cealla dáta roimh nó tar éis inniu le cód VBA
Is féidir leis na cóid VBA seo a leanas cabhrú leat gach dáta a scagadh roimh an lá reatha nó dá éis i mbileog oibre. Déan na céimeanna thíos le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh ceann de na cóid seo a leanas sa Modúil Fuinneog.
Cód VBA: Scag gach cealla dáta roimh inniu:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
Cód VBA: Scag gach cealla dáta tar éis an lae inniu:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. Tar éis ceann de na cóid thuas a chóipeáil agus a ghreamú, ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit gur roghnaigh tú an colún dáta is mian leat a scagadh, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, gach cealla dáta a scagfar amach láithreach nó ina dhiaidh sin.
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á!