Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2009, 16:18   #1
LENA_M
Пользователь
 
Регистрация: 24.04.2009
Сообщений: 98
Сообщение Создание кнопки

Здравствуйте, скажите пожайлуста, как мне сделать кнопочку, нажав на которую, результаты определённых столбцов сбрасывались?
LENA_M вне форума Ответить с цитированием
Старый 24.04.2009, 16:22   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Можно. Причём делается это очень просто.

Если хотите получить готовое решение - уточните задание.
Что значит "результаты определённых столбцов сбрасывались"?
Стирать отдельные значения в выбранном столбце?
Или все значения в столбце?
Стирать вместе с форматированием ячеек?
Как выбирается столбец? (или будет производиться очистка всегда одних и тех же столбцов)

Прикрепите пример файла, и подробно опишите, что должно происходить при нажатии на кнопку (и где эта кнопка должна располагаться)
EducatedFool вне форума Ответить с цитированием
Старый 24.04.2009, 16:50   #3
LENA_M
Пользователь
 
Регистрация: 24.04.2009
Сообщений: 98
По умолчанию Создание кнопки

Задание очень простое: даны 10 примеров, которые нужно решить, в столбце "решение" пользователь вводит ответ, если ответ правильный, то в столбце "ошибки" ничего не пишется, если нет, то в столбце "ошибки" ставится единичка.
Когда пользователь решил эти примеры, нужно "сбросить" его ответы , т.е. мне нужно поместить на лист кнопку, нажав на которую, столбцы" решение" и "ошибки" становятся пустыми.
LENA_M вне форума Ответить с цитированием
Старый 24.04.2009, 16:59   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
нужно поместить на лист кнопку, нажав на которую, столбцы" решение" и "ошибки" становятся пустыми.
От того, что Вы написали, суть задачи стала ненамного яснее...

Создайте кнопку, и назначьте ей такой макрос:
Код:
Sub Очистка()
    [g2:g11].ClearContents
    [k2:k15].ClearContents
End Sub
Только диапазоны ячеек укажите свои.
EducatedFool вне форума Ответить с цитированием
Старый 17.05.2009, 13:03   #5
Nemo1
Новичок
Джуниор
 
Регистрация: 16.05.2009
Сообщений: 2
По умолчанию

А можно ли сделать так, чтобы перед очисткой копировались в другой лист значения определенных ячеек (не те, которые нужно очистить), причем туда, где стоит курсор, а не в конкретное место? Что надо написать перед
Цитата:
[B83:F97].ClearContents
End Sub
?

Последний раз редактировалось Nemo1; 17.05.2009 в 13:09.
Nemo1 вне форума Ответить с цитированием
Старый 17.05.2009, 13:13   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
А можно ли сделать так, чтобы перед очисткой копировались в другой лист значения определенных ячеек
Код:
Sub test()
    Range("a2:d3").Copy Range("e3:h4")
    [a2:e3].Copy [e3:h4]
    [a2].Copy Worksheets("Лист2").[e3]
    [a1:e6].ClearContents
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 18.05.2009, 15:00   #7
Nemo1
Новичок
Джуниор
 
Регистрация: 16.05.2009
Сообщений: 2
По умолчанию

Ясно. Спасибо!
Nemo1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание кнопки в панели задач Trim Общие вопросы Delphi 14 01.08.2010 16:37
Создание кнопки реагирующую на нажатие клавиши romul_ Помощь студентам 9 26.01.2009 01:55
Создание кнопки зная HWND окна(рабочий стол) WOLFak Компоненты Delphi 1 07.04.2008 07:45
Создание кнопки Karl_Karlovi4 Общие вопросы Delphi 1 05.02.2008 13:55
создание своей кнопки А. Долматов Компоненты Delphi 8 27.08.2007 17:54