Hvordan låses en arkposition, så den altid er synlig i Excel-projektmappe?
Hvis der er flere ark i en projektmappe, skjules det første ark, når du skifter til det sidste ark, i arkfanen som vist nedenfor. Nu vil du låse et masterarks position for altid synlig, hvordan kan du håndtere det?
 |
 |
 |
Lås arkposition med VBA
Her introducerer jeg to VBA-koder, som du kan håndtere dette job.
Spring til arket
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til Windows.
2. klik indsatte > Moduler, kopier og indsæt derefter nedenstående kode i scriptet.
VBA: Gå til masterarket
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End SubBemærk: I kodestykket af Sheets ("Master"). Aktiver, du kan ændre Mestre til ethvert arknavn, som du har brug for.
3. Gem derefter denne kode, og gå tilbage til projektmappen, klik Udvikler > Makroer.
4. i Makro dialogboksen, vælg det kodenavn, du har indsat lige nu, klik Indstillinger, opret en genvej til at køre denne kode.
5. klik OK og luk Makro dialogen.
Fra lige nu, mens du trykker på den genvej, du har oprettet, er masterarket blevet aktiveret, uanset hvilket ark du bruger.
Hold arket altid foran
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til Windows.
2. Dobbeltklik ThisWorkbook fra Projekt-VBAProjekt rude, og kopier og indsæt nedenstående kode til scriptet.
VBA: Hold arket altid foran
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
3. Gem koden og luk VBA-vinduet. Fra nu af, hvilket ark du klikker på, forbliver masterarket altid foran på fanelinjen.
 |
|
 |
Bemærk: I ovenstående kode, "mestre" er det arknavn, du vil beholde synligt, skal du ændre det efter behov.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
