Skip i'r prif gynnwys

Sut i gloi safle dalen i'w gweld bob amser yn Llyfr Gwaith Excel?

Os oes sawl taflen mewn llyfr gwaith, pan fyddwch yn toglo i'r un ddalen olaf, bydd y ddalen gyntaf yn cael ei chuddio yn y bar tab dalen fel y dangosir isod. Nawr rydych chi am gloi safle prif ddalen i'w gweld bob amser, sut allwch chi ei drin?

safle taflen glo doc 1 saeth doc dde safle taflen glo doc 2

Safle dalen cloi gyda VBA


Safle dalen cloi gyda VBA

Yma, rwy'n cyflwyno dau god VBA i chi drin y swydd hon.

Neidio i'r ddalen

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Windows.

2. Cliciwch Mewnosod > Modiwlau, yna copïo a gludo islaw'r cod i'r sgript.

VBA: Neidio i'r brif ddalen

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

Nodyn: Yn y sleisen cod o Taflenni ("Meistr"). Activate, gallwch chi newid y Meistr i unrhyw enw dalen yn ôl yr angen.

3. Yna arbedwch y cod hwn, ac ewch yn ôl i'r llyfr gwaith, cliciwch Datblygwr > Macros.
safle taflen glo doc 3

4. Yn y Macro deialog, dewiswch yr enw cod a fewnosodwyd gennych yn awr, cliciwch Dewisiadau, creu llwybr byr ar gyfer rhedeg y cod hwn.
safle taflen glo doc 4

5. Cliciwch OK a chau y Macro deialog.

Ar hyn o bryd, wrth i chi wasgu'r llwybr byr y gwnaethoch chi ei greu, mae'r brif ddalen wedi'i actifadu pa bynnag ddalen rydych chi'n ei defnyddio.

Cadwch y ddalen bob amser yn y tu blaen

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Windows.

2. Cliciwch ddwywaith Llyfr Gwaith hwn oddi wrth y Prosiect-VBAProject cwarel, a chopïo a gludo islaw'r cod i'r sgript.

VBA: Cadwch y ddalen bob amser yn y tu blaen

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

safle taflen glo doc 5

3. Arbedwch y cod a chau'r ffenestr VBA. O nawr, pa bynnag ddalen rydych chi'n ei chlicio, mae'r brif ddalen bob amser yn aros ym mlaen y bar tab.

safle taflen glo doc 6 saeth doc dde safle taflen glo doc 7

Nodyn: Yn y cod uchod, “Meistr” yw'r enw dalen rydych chi am ei gadw'n weladwy, ei newid yn ôl yr angen.

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations