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

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

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

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

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

3. Затем вам нужно сохранить файл Excel в формате Книга Excel с поддержкой макросов, как показано на скриншоте:

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

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