Hoppa till huvudinnehåll

Hur låser man en arkposition så att den alltid syns i Excel Workbook?

Om det finns flera ark i en arbetsbok, när du växlar till det sista arket, kommer det första arket att döljas i arkfältet enligt nedan. Nu vill du låsa ett huvudblads position för alltid synlig, hur kan du hantera det?

doc låsplåt 1 doc pil till höger doc låsplåt 2

Låsa arkposition med VBA


Låsa arkposition med VBA

Här introducerar jag två VBA-koder för dig att hantera det här jobbet.

Hoppa till arket

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för Windows.

2. klick Insert > Modulerna, kopiera och klistra sedan in koden nedan i skriptet.

VBA: Hoppa till huvudbladet

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

Anmärkningar: I koddelen av Sheets ("Master"). Aktivera, du kan ändra Mästare till valfritt arknamn som du behöver.

3. Spara sedan den här koden och gå tillbaka till arbetsboken, klicka Utvecklare > Makron.
doc låsplåt 3

4. I Makro dialogrutan, välj kodnamnet du infogade nyss, klicka Tillbehör, skapa en genväg för att köra den här koden.
doc låsplåt 4

5. klick OK och stäng Makro dialog.

Från och med nu, medan du trycker på genvägen du skapade, har huvudarket aktiverats vilket ark du än använder.

Håll alltid lakanet framme

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för Windows.

2. Dubbelklicka Denna arbetsbok från Projekt-VBAProjekt och kopiera och klistra in nedanstående kod i skriptet.

VBA: Ha alltid lakan framme

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

doc låsplåt 5

3. Spara koden och stäng VBA-fönstret. Från och med nu, vilket ark du än klickar på, stannar huvudarket alltid framme i flikfältet.

doc låsplåt 6 doc pil till höger doc låsplåt 7

Notera: I ovanstående kod, "bemästra" är arknamnet du vill behålla synligt, ändra det efter behov.

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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