Gå til hovedindhold

Hvordan øges antallet automatisk, når projektmappen åbnes?

Hvis du automatisk vil øge en celle med 1, når du åbner projektmappen hver gang, kan du selvfølgelig tilføje 1 manuelt. Men er der nogen bedre metode til automatisk at tilføje 1 til nummeret, når du åbner Excel-dokumentet?

Forøg et tal automatisk, når projektmappen åbnes med VBA-kode


Forøg et tal automatisk, når projektmappen åbnes med VBA-kode

Følgende enkle VBA-kode kan hjælpe dig med automatisk at tilføje 1 til nummercellen, når projektmappen åbnes hver gang, gør som dette:

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. I Projekt-VBAProjekt dobbeltklik på ruden ThisWorkbook at åbne Moduler, kopier og indsæt derefter nedenstående kode i modulet, se skærmbillede:

VBA-kode: Forøg et tal automatisk, når projektmappen åbnes:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

Bemærk: I ovenstående kode, Sheet1 , A2 er arket og cellen, som indeholder det tal, du vil øge automatisk. Venligst ændre dem til dit behov.

3. Så skal du gemme Excel-filen som Excel-makroaktiveret projektmappe format, se skærmbillede:

Fra nu af, når du åbner denne specifikke projektmappe, vil nummeret i celle A2 i Ark1 automatisk blive tilføjet 1.

Bemærk: Denne kode anvendes kun på nummercellen.

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you! Too easy! My simple quote form now allots a new number every time I open it. Previous forum help pages I visited assume too much prior knowledge of Excel and terminology. This was "Macros for Dummies"
This comment was minimized by the moderator on the site
Both screenshots are the same. There is no screenshot for #3 "save the Excel file as Excel Macro-Enabled Workbook format" as directed.
This comment was minimized by the moderator on the site
Hi, Leslie,
Thanks for your comment, the second picture has been updated, please chek it.
Thanks a lot!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations