Salt la conținutul principal

Cum se blochează o poziție a foii pentru a fi întotdeauna vizibilă în registrul de lucru Excel?

Autor: Sun Ultima modificare: 2020-09-22

Dacă există mai multe foi într-un registru de lucru, atunci când comutați la ultima coală, prima coală va fi ascunsă în bara de file a foii, așa cum se arată mai jos. Acum doriți să blocați poziția unei foi principale pentru a fi întotdeauna vizibilă, cum o puteți gestiona?

poziția foii de blocare doc 1 doc săgeată dreapta poziția foii de blocare doc 2

Blocați poziția foii cu VBA


Blocați poziția foii cu VBA

Aici vă introduc două coduri VBA pentru a vă ocupa de această sarcină.

Salt la foaie

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru Windows.

2. clic Insera > Module, apoi copiați și lipiți codul de mai jos în script.

VBA: Salt la foaia principală

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

notițe: În felia de cod a Foi de calcul („Maestru”). Activați, puteți modifica Maestru la orice nume de foaie după cum aveți nevoie.

3. Apoi salvați acest cod și reveniți la registrul de lucru, faceți clic pe Dezvoltator > Macrocomenzi.
poziția foii de blocare doc 3

4. În Macro , selectați numele de cod pe care l-ați introdus chiar acum, faceți clic pe Opţiuni, creați o comandă rapidă pentru rularea acestui cod.
poziția foii de blocare doc 4

5. clic OK și închideți Macro dialog.

În acest moment, în timp ce apăsați comanda rapidă pe care ați creat-o, foaia principală a fost activată oricare dintre foile pe care le utilizați.

Păstrați foaia întotdeauna în față

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru Windows.

2. Dublu click Acest manual de lucru de la Proiect-VBAProject și copiați și lipiți codul de mai jos în script.

VBA: Păstrați foaia întotdeauna în față

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

poziția foii de blocare doc 5

3. Salvați codul și închideți fereastra VBA. De acum, indiferent de foaia pe care faceți clic, foaia principală rămâne întotdeauna în partea din față a barei de file.

poziția foii de blocare doc 6 doc săgeată dreapta poziția foii de blocare doc 7

Notă: În codul de mai sus, "maestru" este numele foii pe care doriți să o păstrați vizibilă, schimbați-o după cum aveți nevoie.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations