Отвечает: Megaloman
Здравствуйте, давыдова дарья алексеевна! В Office 2000, XP, 2003 щелкнем по строке меню правой кнопкой мышки, в появившемся ниспадающем меню выбирем пункт "элементы управления", в появившемся окне элементов управления выбирем пиктограмму "Кнопка", удерживая нажатой левую кнопку мышки, нарисуем в желаемом месте на листе таблицы кнопку, на ней будет надпись Command Button1 Щелкнем по получившемуся изображению двойным кликом левой кнопки мышки. У Вас откроется окно редактора
VBA В окне Properties слева внизу найдите строку Captions, справа от клетки Captions вместо CommandButton1 напишите заголовок, который хотите видеть на кнопку, например Стереть Справа увидите заготовку процедуры:
Код:
Private Sub CommandButton1_Click
()
End Sub
Между этими строками вставьте строку, чтобы получилась процедура:
1. если хотите стереть содержимое во всех клетках таблицы (при этом форматирование клеток сохранится)
Код:
Private Sub CommandButton1_Click() Columns("A:IV").ClearContents End
Sub
2. если хотите стереть содержимое в выделенных клетках таблицы (при этом форматирование клеток сохранится)
Код:
Private Sub CommandButton1_Click() Selection.ClearContents End Sub
3. если хотите не только стереть со
держимое во всех клетках таблицы, но и убрать форматирование клеток
Код:
Private Sub CommandButton1_Click() Columns("A:IV").Delete End Sub
Закройте редактор VBA, в окне элементов управления нажмём пиктограмму "Выход из режима конструктора (в верхнем левом
углу). Закройте окно элементов управления.
Всё! При нажатии на созданную нами кнопку получим желаемый Вами результат. При способе в п.2 предварительно не забудьте пометить диапазон клеток, которые хотите очистить.
Совершенно аналогичные операторы надо применить при создании кнопки в форме пользователя (User Form) на событие Click
Код:
Private Sub CommandButton1_Click() ' Здесь вставим строку в зависимости от требуемого результата End Sub
--------- Нет времени на медленные танцы
Ответ отправил: Megaloman (статус: Практикант)
Ответ отправлен: 14.05.2009, 23:40
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 249207 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
