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

Как да запазя автоматично Excel файл след въвеждане на данни?

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

Понякога работната книга на Excel ще се срине случайно след актуализиране или въвеждане на множество данни и нововъведените данни ще бъдат загубени. Това може да ни подлуди, така че тук ще говоря за автоматично запазване на файла на Excel след въвеждане на данни, за да избегна този инцидент.

Автоматично запазване на Excel файла след въвеждане на данни с VBA код


Автоматично запазване на Excel файла след въвеждане на данни с VBA код

Следният VBA код може да ви помогне да запазите файла на Excel автоматично след въвеждане или актуализиране на данни в работен лист, моля, направете следното:

1. Щракнете с десния бутон върху раздела на листа, който искате да запазите автоматично в работната книга след въвеждане на нови данни, и след това изберете Преглед на кода от контекстното меню, в отворения Microsoft Visual Basic за приложения прозорец, копирайте и поставете следния код в празния модул:

VBA код: Автоматично запазване на Excel файл след въвеждане на данни:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1:AA1000")) Is Nothing Then
        ThisWorkbook.Save
    End If
End Sub

Забележка: В горния код, A1:AA1000 е диапазонът от клетки, към който искате да приложите този код.

2. И след това запазете и затворете този прозорец с код, сега, когато актуализирате или въведете нови данни в конкретните клетки на работния лист, работната книга ще бъде запазена автоматично, без да щракнете върху бутона Запазване.

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

🤖 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
Great script. Thank you!
How would you do to target the whole workbook, I mean any worksheet that changes would trigger the save?
This comment was minimized by the moderator on the site
Option undo is useless, so be careful!!
This comment was minimized by the moderator on the site
haha thanks for the heads up dude!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations