powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопка очищения
5 сообщений из 5, страница 1 из 1
Кнопка очищения
    #36679166
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как сделать кнопу на листе, нажав на нее, чтобы она очищала определенные диапозоны (которые могу т быть не связаны)?
...
Рейтинг: 0 / 0
Кнопка очищения
    #36679690
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pepel222,

Нужно в модуле прописать
Код: plaintext
1.
2.
3.
Sub Кнопка_очищения()
    Range("C2:E6,C8:E10,C12:E15,I10:I13").ClearContents 'в скобках перечислены _
    'несвязанные диапазоны. после точки команда удаления (как при нажатии клавишы Delete)
End Sub
На листе создать понравившуюся кнопку и привязать к ней этот макрос.
...
Рейтинг: 0 / 0
Кнопка очищения
    #36679910
pepel222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спс Сергей06, понял

подскажи а как вытащить кнопку именно в поле экселя, например в ячейку А1?
...
Рейтинг: 0 / 0
Кнопка очищения
    #36679948
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
pepel222спс Сергей06, понял

подскажи а как вытащить кнопку именно в поле экселя, например в ячейку А1?
Сначало нужно создать кнопку как на примере, там выделена кнопочка которая создает кнопку. Вытягиваете ее на лист ЕКЦЕЛЬ, а потом уже задаете ей функцию... У вас будет функция:

Код: plaintext
1.
2.
Private Sub Очистить_Click() ' очищает диапазон
Range("C6":"С8").ClearContents    
End Sub
...
Рейтинг: 0 / 0
Кнопка очищения
    #36679952
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-O_o-pepel222спс Сергей06, понял

подскажи а как вытащить кнопку именно в поле экселя, например в ячейку А1?
Сначало нужно создать кнопку как на примере, там выделена кнопочка которая создает кнопку. Вытягиваете ее на лист ЕКЦЕЛЬ, а потом уже задаете ей функцию... У вас будет функция:

Код: plaintext
1.
2.
Private Sub Очистить_Click() ' очищает диапазон
Range("C6":"С8").ClearContents    
End Sub

Сорри, поставил лишние кавычки
Код: plaintext
1.
2.
Private Sub Очистить_Click() ' очищает диапазон
Range("C6:С8").ClearContents    
End Sub
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Кнопка очищения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]