Перейти к основному содержанию

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

Автор: Сяоян Последнее изменение: 2020 июля 01 г.

Если вы хотите автоматически увеличивать числовую ячейку на 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.

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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you! Too easy! My simple quote form now allots a new number every time I open it. Previous forum help pages I visited assume too much prior knowledge of Excel and terminology. This was "Macros for Dummies"
This comment was minimized by the moderator on the site
Both screenshots are the same. There is no screenshot for #3 "save the Excel file as Excel Macro-Enabled Workbook format" as directed.
This comment was minimized by the moderator on the site
Hi, Leslie,
Thanks for your comment, the second picture has been updated, please chek it.
Thanks a lot!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations