Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan een nummer automatisch worden verhoogd wanneer de werkmap wordt geopend?

Als u een getallencel bij 1 automatisch wilt verhogen wanneer u de werkmap opent, kunt u natuurlijk 1 handmatig toevoegen. Maar is er een betere methode om automatisch 1 voor het nummer toe te voegen bij het openen van het Excel-document?

Verhoog automatisch een nummer wanneer de werkmap wordt geopend met VBA-code


Verhoog automatisch een nummer wanneer de werkmap wordt geopend met VBA-code


De volgende eenvoudige VBA-code kan u helpen om 1 voor de nummercel automatisch toe te voegen wanneer de werkmap elke keer wordt geopend, doe als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. In de Project-VBAProject deelvenster, dubbelklik ThisWorkbook om de te openen modulekopieer en plak vervolgens de onderstaande code in de module, zie screenshot:

VBA-code: verhoog een nummer automatisch wanneer de werkmap wordt geopend:

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

Notes: In de bovenstaande code, Sheet1 en A2 zijn het blad en de cel met het nummer dat u automatisch wilt verhogen. Verander ze alstublieft naar uw behoefte.

3. Sla vervolgens het Excel-bestand op als Excel Macro-Enabled werkmap formaat, zie screenshot:

Vanaf nu, wanneer u deze specifieke werkmap opent, wordt het nummer in cel A2 in Sheet1 automatisch 1 toegevoegd.

Notes: Deze code wordt alleen toegepast op de cijfercel.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.