Как автоматически увеличить число при открытии книги?

Если вы хотите автоматически увеличивать числовую ячейку на 1 при каждом открытии книги, конечно, вы можете добавить 1 вручную. Но есть ли лучший способ добавить 1 для числа автоматически при открытии документа Excel?

Автоматическое увеличение числа при открытии книги с кодом VBA

Автоматическое увеличение числа при открытии книги с кодом VBA

Следующий простой код VBA может помочь вам автоматически добавлять 1 для числовой ячейки при каждом открытии книги, сделайте следующее:

1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

2. В Проект-VBAProject панель, дважды щелкните Эта рабочая тетрадь для открытия Модули, затем скопируйте и вставьте приведенный ниже код в модуль, см. снимок экрана:

Код VBA: автоматическое увеличение числа при открытии книги:

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

Внимание: В приведенном выше коде Sheet1 и A2 - это лист и ячейка, содержащие число, которое вы хотите автоматически увеличить. Пожалуйста, измените их по своему усмотрению.

3. Затем вы должны сохранить файл Excel как Excel Macro-Enabled Workbook формат, см. снимок экрана:

С этого момента, когда вы открываете эту конкретную книгу, к числу в ячейке A2 в Sheet1 будет автоматически добавляться 1.

Внимание: Этот код применяется только к числовой ячейке.