Skip i'r prif gynnwys

Sut i chwyddo i fyny neu i lawr y celloedd wrth glicio ar restr dilysu data yn Excel?

Mae'r ffont yn y rhestr dilysu data yn sefydlog ni waeth pa faint o ffont rydych chi'n ei newid yn y ddalen, dyma fi'n cyflwyno'r cod macro i chwyddo i fyny neu i lawr wrth glicio celloedd dilysu data yn Excel.

Chwyddo i fyny neu i lawr y rhestr dilysu data


Chwyddo i fyny neu i lawr y rhestr dilysu data

I chwyddo rhestr ddilysu data benodol, gallwch ei defnyddio o dan y cod.

1. De-gliciwch ar y tab dalen rydych chi'n ei ddefnyddio, cliciwch Gweld y Cod i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
rhestr chwyddo doc trwy glicio 1

2. Yn y ffenestr, copïwch a gludwch y cod i'r sgript. Gweler y screenshot:

VBA: Chwyddo rhestr ddilysu data benodol

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
    On Error GoTo xErr
    If Target.Validation.Type > -1 Then
        ActiveWindow.Zoom = 140
        Exit Sub
    End If
xErr:
        ActiveWindow.Zoom = 100
End Sub

rhestr chwyddo doc trwy glicio 2

3. Cadwch y cod ac ewch yn ôl i'r ddalen, wrth glicio ar y gell C1 sy'n cynnwys rhestr dilysu data, bydd y chwyddo yn cael ei chwyddo.

rhestr chwyddo doc trwy glicio 3 saeth doc dde rhestr chwyddo doc trwy glicio 4

Tip:

Os ydych chi eisiau chwyddo i fyny neu i lawr wrth glicio unrhyw restrau dilysu data, gallwch ddefnyddio'r cod hwn:

VBA : Chwyddo i fyny neu i lawr wrth glicio ar restr dilysu data

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
    On Error GoTo xErr
    If Target.Validation.Type > -1 Then
        ActiveWindow.Zoom = 140
        Exit Sub
    End If
xErr:
        ActiveWindow.Zoom = 100
End Sub

rhestr chwyddo doc trwy glicio 5


Enwau Hollti gall swyddogaeth rannu enwau cyntaf, enwau canol ac enwau olaf yn gyflym o un gell yn golofnau ar wahân

enw rhaniad doc

Erthyglau Perthynas:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...

Disgrifiad


Mae 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations