Прескочи на основното съдържание

Как да увеличите число автоматично, когато работната книга е отворена?

Автор: Xiaoyang Последна промяна: 2020-01-15

Ако искате да увеличавате числова клетка с 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 формат, вижте екранната снимка:

Отсега нататък, когато отворите тази конкретна работна книга, числото в клетка A2 в Sheet1 автоматично ще бъде добавено 1.

Забележка: Този код се прилага само към числовата клетка.

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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