Hoe een getal automatisch te verhogen wanneer het werkboek wordt geopend?

Als u een getalcel automatisch met 1 wilt verhogen wanneer u het werkboek elke keer opent, kunt u natuurlijk handmatig 1 toevoegen. Maar is er een betere methode om 1 automatisch toe te voegen aan het getal wanneer u het Excel-document opent?

Verhoog een getal automatisch wanneer het werkboek wordt geopend met VBA-code

Verhoog een getal automatisch wanneer het werkboek wordt geopend met VBA-code

De volgende eenvoudige VBA-code kan u helpen om 1 automatisch toe te voegen aan de getalcel wanneer het werkboek elke keer wordt geopend. Doe dit als volgt:

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Dubbelklik in het Project-VBAProject-paneel op ThisWorkbook om de Module te openen, kopieer en plak vervolgens de onderstaande code in de module, zie screenshot:

VBA-code: Verhoog een getal automatisch wanneer het werkboek wordt geopend:

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

Opmerking: In de bovenstaande code zijn Sheet1 en A2 het werkblad en de cel die het getal bevatten dat u automatisch wilt verhogen. Pas ze aan naar uw behoefte.

3. Vervolgens moet u het Excel-bestand opslaan in het formaat Excel Macro-Enabled Workbook, zie screenshot:

Vanaf nu zal, wanneer u dit specifieke werkboek opent, het getal in cel A2 in Sheet1 automatisch met 1 worden verhoogd.

Opmerking: Deze code is alleen van toepassing op de getalcel.