Как автоматически сохранить файл Excel после ввода данных?

Иногда книга 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. А затем сохраните и закройте это окно кода, теперь, когда вы обновляете или вводите новые данные в определенные ячейки рабочего листа, книга будет сохранена автоматически без нажатия кнопки «Сохранить».

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!