Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


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


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

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

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

Код 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 для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.