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

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

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

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

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


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