Gå til hovedindhold

 Hvordan skal man altid i celle A1, når man åbner projektmappe?

Som vi alle vidste, når du åbner en projektmappe, viser den cellepositionen, hvor du gemte og lukkede den sidste gang. Hvordan kan du altid fortsætte med at åbne en projektmappe med hvert ark i en bestemt celle A1? Denne artikel vil tale om nogle måder at løse det på.

Åbn altid en projektmappe med hvert ark i celle A1 ved hjælp af VBA-kode

Åbn altid en projektmappe på et bestemt ark og celle A1 ved hjælp af VBA-kode


pil blå højre boble Åbn altid en projektmappe med hvert ark i celle A1 ved hjælp af VBA-kode

For eksempel vil du altid have, at projektmappen skal åbnes i celle A1 i hvert regneark, uanset hvor du var i projektmappen, da den sidst blev lukket. Gør følgende:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I venstre side Projekt-VBAProjekt dobbeltklik på ruden ThisWorkbook for at åbne et tomt modul og derefter kopiere og indsætte følgende kode i modulet, se skærmbillede:

VBA-kode: Åbn altid en projektmappe med hvert ark i celle A1:

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub

doc altid åben ved A1 1

2. Luk derefter denne kode, og klik File (Felt) > Gem som for at gemme projektmappen som Excel-makroaktiveret projektmappe format, se skærmbillede:

doc altid åben ved A1 2

3. Fra nu af, når du åbner denne projektmappe næste gang, skal du klikke på Aktivér indhold for at aktivere koden og skifte mellem arkene kan du se, at hvert regneark automatisk findes i celle A1.

doc altid åben ved A1 3


pil blå højre boble Åbn altid en projektmappe på et bestemt ark og celle A1 ved hjælp af VBA-kode

Hvis du bare skal åbne et specifikt ark i celle A1, når du starter projektmappen hver gang, kan følgende VBA-kode måske hjælpe dig.

For eksempel vil jeg altid gå til Sheet1 i celle A1, når jeg åbner projektmappen.

1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I venstre side Projekt-VBAProjekt dobbeltklik på ruden ThisWorkbook for at åbne et tomt modul og derefter kopiere og indsætte følgende kode i modulet, se skærmbillede:

VBA-kode: Åbn altid en projektmappe med et specifikt ark i celle A1:

Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub

doc altid åben ved A1 4

Bemærk: I ovenstående kode, Sheet1 , A1 er det regneark og den cellehenvisning, du vil gå til, når du åbner projektmappen. Du kan ændre dem til dit behov.

2. Luk derefter denne kode, og klik File (Felt) > Gem som for at gemme projektmappen som Excel-makroaktiveret projektmappe format, fra nu af, når du åbner denne projektmappe næste gang, skal du klikke på Aktivér indhold for at aktivere koden, og den går automatisk til Sheet1 i celle A1.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!
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