Sut i guddio colofnau yn awtomatig yn seiliedig ar ddyddiad yn Excel?
Gan dybio, mae gen i ystod o ddata mewn taflen waith, nawr, rydw i eisiau cuddio'r colofnau ar sail dyddiad penodol yn awtomatig. Er enghraifft, pan fyddaf yn nodi'r dyddiad 5/16/2016 mewn cell, rwyf am guddio'r colofnau sy'n dyddio sy'n llai na'r dyddiad penodol hwn ar unwaith fel y dangosir y screenshot canlynol. Bydd yr erthygl hon yn cyflwyno rhai triciau ar gyfer ei datrys.
Cuddio colofnau yn awtomatig yn seiliedig ar ddyddiad penodol gyda chod VBA
Cuddio colofnau yn seiliedig ar ddyddiad penodol gyda Kutools for Excel
Cuddio colofnau yn awtomatig yn seiliedig ar ddyddiad penodol gyda chod VBA
I gyflawni'r dasg hon, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:
1. Dewiswch y tab dalen rydych chi am ei guddio yn ôl dyddiad, a chliciwch ar y dde i ddewis Gweld y Cod o'r ddewislen cyd-destun i fynd i'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna copïo a gludo'r cod canlynol i'r Modiwl:
Cod VBA: Cuddio colofnau yn awtomatig yn seiliedig ar ddyddiad penodol:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Yna arbed a chau'r cod hwn, ewch yn ôl i'r daflen waith, ac yn awr, pan fyddwch chi'n nodi'r dyddiad yn y gell K4, bydd y colofnau sy'n dyddio yn llai na'r dyddiad penodol hwn yn cael eu cuddio'n awtomatig.
Nodyn: Yn y cod uchod, K4 yw'r gell ddyddiad benodol rydych chi am guddio'r colofnau yn seiliedig arni, A1: I1 ydy'r celloedd rhes yn cynnwys y dyddiad y gwnaethoch chi ei ddefnyddio.
Cuddio colofnau yn seiliedig ar ddyddiad penodol gyda Kutools for Excel
Os nad ydych chi'n gyfarwydd â'r cod, dyma offeryn defnyddiol-Kutools for Excel, Gyda'i Dewiswch Gelloedd Penodol cyfleustodau, gallwch chi orffen y swydd hon yn rhwydd.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch fel a ganlyn:
1. Dewiswch y penawdau dyddiad, a chlicio Kutools > dewiswch > Dewiswch Gelloedd Penodol, gweler y screenshot:
2. Yn y popped allan Dewiswch Gelloedd Penodol blwch deialog, dewiswch Colofn gyfan oddi wrth y Math o ddewis, ac yna dewiswch y meini prawf, fel Llai na oddi wrth y Math penodol rhestr ostwng, a nodi'r dyddiad yn y blwch testun nesaf yr ydych am guddio colofnau yn seiliedig arno, gweler y screenshot:
3. Ac yna cliciwch Ok botwm, dewisir y colofnau penodol sy'n dyddio llai na 5/16/2016 ar unwaith, gweler y screenshot:
4. Yna cliciwch ar y dde ar unrhyw un pennawd colofn a ddewiswyd, a dewiswch cuddio i guddio'r colofnau dethol hyn yn ôl yr angen. Gweler y screenshot:
Cliciwch Lawrlwytho Am Ddim Kutools for Excel Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
