Excel - Повторная установка значений ячеек в 0 при каждом открытии файла

Excel - Повторная установка значений ячеек в 0 при каждом открытии файла
Excel - Повторная установка значений ячеек в 0 при каждом открытии файла - thombradley @ Unsplash

Я создал файл, который выполняет несколько простых вычислений для пользователей на основе ввода данных из ячеек B8:B15. Все остальные ячейки закрыты для пользователей.

Проблема в том, что вышеупомянутые ячейки ввода должны быть переустановлены в 0 каждый раз, когда пользователь открывает файл (файл сохраняется в Microsoft Teams, и я не хочу, чтобы пользователи использовали вводы друг друга).

Заранее благодарю за любой полезный совет!

можно использовать эту ссылку для вставки кода VBA, который будет очищать диапазон ячеек на определенном рабочем листе каждый раз при открытии или закрытии файла.

Согласно предложенным комментариям, приведенная ниже информация взята с сайта, который объясняет, как это делается, "www.extendoffice.com".

чтобы очистить содержимое заданных ячеек при открытии и выходе из рабочей книги.

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

  1. Для этого нажмите Файл > Сохранить как > Обзор. См. скриншот:

  1. В диалоговом окне Сохранить как выберите папку для сохранения рабочей книги, введите новое имя в поле Имя файла по своему усмотрению, выберите Excel Macro-Enabled Workbook из раскрывающегося списка Sava as type, а затем нажмите кнопку Сохранить.

  1. В появившемся диалоговом окне Microsoft Excel нажмите кнопку OK, как показано на скриншоте ниже.

  1. Откройте рабочую книгу с поддержкой макросов, которую вы только что сохранили, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

  2. В окне Microsoft Visual Basic for Applications дважды щелкните ThisWorkbook в левой панели, а затем скопируйте приведенный ниже код VBA в окно Code.

код 1: Очистить содержимое заданной ячейки при открытии рабочей книги

1 Private Sub Workbook_Open() 2 'Updated by Extendoffice 20190712 3 Application.EnableEvents = False 4 Worksheets("test").Range("A1:A11").Value = "" 5 Application.EnableEvents = True 6 End Sub ,br/>

Код VBA 2: Очистить содержимое указанной ячейки при выходе из рабочей книги

1 Private Sub Workbook_BeforeClose(Cancel As Boolean) 2 'Updated by Extendoffice 20190712 3 Worksheets("test").Range("A1:A11").Value = "" 4 End Sub

Примечание: В приведенных выше кодах, test и A1:A11 - это имя рабочего листа и диапазон ячеек, из которых вы будете очищать содержимое. Пожалуйста, измените их так, как вам нужно.

  1. клавиши Alt + Q для выхода из окна Microsoft Visual Basic for Applications.

Отныне при открытии или закрытии рабочей книги указанное содержимое ячеек в определенном рабочем листе будет очищаться автоматически."


NevaDev, 1 февраля 2023 г., 10:20