Wie kann eine Zahl beim Öffnen der Arbeitsmappe automatisch erhöht werden?
Wenn Sie eine Zahlenzelle beim Öffnen der Arbeitsmappe jedes Mal automatisch um 1 erhöhen möchten, können Sie natürlich 1 manuell hinzufügen. Aber gibt es eine bessere Methode, um beim Öffnen des Excel-Dokuments automatisch 1 für die Nummer hinzuzufügen?
Erhöhen Sie eine Zahl automatisch, wenn die Arbeitsmappe mit VBA-Code geöffnet wird
Erhöhen Sie eine Zahl automatisch, wenn die Arbeitsmappe mit VBA-Code geöffnet wird
Der folgende einfache VBA-Code kann Ihnen helfen, automatisch 1 für die Zahlenzelle hinzuzufügen, wenn die Arbeitsmappe jedes Mal geöffnet wird. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.
2. In dem Projekt-VBAProject Doppelklicken Sie DiesesWorkbook öffnen ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Modul ein, siehe Screenshot:
VBA-Code: Erhöhen Sie eine Zahl automatisch, wenn die Arbeitsmappe geöffnet wird:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Note: Im obigen Code, Sheet1 und A2 sind das Blatt und die Zelle, die die Zahl enthalten, die Sie automatisch erhöhen möchten. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
3. Dann sollten Sie die Excel-Datei unter speichern Excel Makroaktivierte Arbeitsmappe Format, siehe Screenshot:
Wenn Sie von nun an diese spezielle Arbeitsmappe öffnen, wird der Zahl in Zelle A2 in Tabelle 1 automatisch 1 hinzugefügt.
Note: Dieser Code wird nur auf die Zahlenzelle angewendet.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
