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

Для ячейки F1 нужно дополнить макрос (его писала не я — я в этом деле валенок!). Задача: при каждом открытии файла ячейка должна становиться пустой. Т.е. человечек открывает документ, заполняет поле, печатает документ, сохраняет, закрывает, а при следующем открытии ячейка вновь пуста! Или так: чел заполняет документ, печатает, нажимает «сохранить» и сохраняется все, кроме значения в ячейке F1 (при открытии она будет пустой).

В ячейке F1 уже есть макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n%
If Target.Address <> «$F$1» Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Time() < #12:57:00 AM# Then n = 1 Else n = 2
If Target.Value < Date + n Or Weekday(Target.Value, 2) >5 Then
MsgBox «Неверная дата!»
Target.ClearContents
Target.Activate
End If
End Sub

Как и чем его дополнить??
Спасибо.

Для ячейки F1 нужно дополнить макрос (его писала не я — я в этом деле валенок!). Задача: при каждом открытии файла ячейка должна становиться пустой. Т.е. человечек открывает документ, заполняет поле, печатает документ, сохраняет, закрывает, а при следующем открытии ячейка вновь пуста! Или так: чел заполняет документ, печатает, нажимает «сохранить» и сохраняется все, кроме значения в ячейке F1 (при открытии она будет пустой).

В ячейке F1 уже есть макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n%
If Target.Address <> «$F$1» Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Time() < #12:57:00 AM# Then n = 1 Else n = 2
If Target.Value < Date + n Or Weekday(Target.Value, 2) >5 Then
MsgBox «Неверная дата!»
Target.ClearContents
Target.Activate
End If
End Sub

Как и чем его дополнить??
Спасибо. sg1983

Сообщение Для ячейки F1 нужно дополнить макрос (его писала не я — я в этом деле валенок!). Задача: при каждом открытии файла ячейка должна становиться пустой. Т.е. человечек открывает документ, заполняет поле, печатает документ, сохраняет, закрывает, а при следующем открытии ячейка вновь пуста! Или так: чел заполняет документ, печатает, нажимает «сохранить» и сохраняется все, кроме значения в ячейке F1 (при открытии она будет пустой).

В ячейке F1 уже есть макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n%
If Target.Address <> «$F$1» Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Time() < #12:57:00 AM# Then n = 1 Else n = 2
If Target.Value < Date + n Or Weekday(Target.Value, 2) >5 Then
MsgBox «Неверная дата!»
Target.ClearContents
Target.Activate
End If
End Sub

Как и чем его дополнить??
Спасибо. Автор — sg1983
Дата добавления — 21.01.2013 в 14:40

Источник: www.excelworld.ru

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

Нужно написать макрос и привязать его к кнопке.

Вобщем,чтоб при нажатии на кнопку стирались данные в определённых ячейках.
Прикладываю экселевский файл,в котором хочу этого добиться.

В данном файле,чтоб при нажатии на кнопку «Стереть форму» стирались дааные из ячеек: F4,F6,F8,F10,F14,F16,F18,F20,F24,F2 6,F28,F30

П.С. Очень бы хотелось подробных объяснений как сделать такой макрос.
Заранее огромное спасибо.

Вложения

podpot.rar (7.1 Кб, 26 просмотров)

Форумчанин
и размеры.

Кликаем по получившемуся элементу двойным щелчком левой кнопки мыши.

Открывается окно редактора макросов. Сюда можно записать любой макрос, который вы хотите, чтобы исполнялся при нажатии на данный объект. Например, можно записать макрос преобразования текстового выражения в числовой формат, как на изображении ниже. После того, как макрос записан, жмем на кнопку закрытия окна в его правом верхнем углу.

0.1 Get your VBA code window quickly under 15 seconds #excel #vba #ytshorts #learn

Макросы VBA, запускающиеся при открытии, закрытии и прочих событиях (Серия VBA 14)

Теперь макрос будет привязан к объекту.

Способ 4: элементы управления формы

Следующий способ очень похож по технологии выполнения на предыдущий вариант. Он представляет собой добавление кнопки через элемент управления формы. Для использования этого метода также требуется включение режима разработчика.

1. Переходим во вкладку «Разработчик» и кликаем по знакомой нам кнопке «Вставить», размещенной на ленте в группе «Элементы управления». Открывается список. В нем нужно выбрать первый же элемент, который размещен в группе «Элементы управления формы». Данный объект визуально выглядит точно так же, как и аналогичный элемент ActiveX, о котором мы говорили чуть выше.
2. Объект появляется на листе. Корректируем его размеры и место расположения, как уже не раз делали ранее.
3. После этого назначаем для созданного объекта макрос, как это было показано в Способе 2 или присваиваем гиперссылку, как было описано в Способе 1.

Как видим, в Экселе создать функциональную кнопку не так сложно, как это может показаться неопытному пользователю. К тому же данную процедуру можно выполнить с помощью четырех различных способов на свое усмотрение.