|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.01.2011, 19:31 | #1 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
vba button excel
как можно программно создать кнопку и поместить на рабочий лист в определенную ячейку?
например, как в этом скрипте сделать так чтобы он начинал работать нажатием этой созданной кнопки? Sub SayHello() Msg = "Is your name " & Application.UserName & "?" Ans = MsgBox(Msg, vbYesNo) If Ans = vbNo Then MsgBox "Oh, never mind." Else MsgBox "I must be clairvoyant!" End If End Sub |
03.01.2011, 20:06 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
В этой программе как раз есть такая функциональность: http://excelvba.ru/fortepiano
Для этих целей используется специальная функция, которая в качестве параметров принимает диапазон ячеек для размещения кнопки, цвет и текст создаваемой кнопки, а также имя макроса, который ей будет назначен: Код:
|
03.01.2011, 20:12 | #3 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
а как можно привязать макрос к кнопке command button, созданной через панель инструментов?
|
03.01.2011, 20:13 | #4 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Так:
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 03.01.2011 в 20:21. |
03.01.2011, 20:20 | #5 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
а этот код где должен быть расположен?
ub MyButton() ' Макрос записан 03.01.2011 (Sergey) Dim Mb As Object Set Mb = ActiveSheet.Buttons.Add(143.25, 12, 96, 23.25) Mb.OnAction = "SayHello" End Sub |
03.01.2011, 20:30 | #6 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Где хотите. Либо в модуле листа, либо в общем модуле. Можно в личной книге макросов. Вопрос, как Вы собираетесь запускать этот макрос. Вот это:"(143.25, 12, 96, 23.25)" - координаты и размер кнопки.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 03.01.2011 в 20:33. |
03.01.2011, 20:35 | #7 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
а как теперь удалить эту кнопку из excel? у меня из создалось 3, пыталась изменить размеры кнопки и координаты
|
03.01.2011, 20:43 | #8 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
03.01.2011, 20:47 | #9 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
спасибо.
еще скажите, пожалуйста, а созданную программным образом кнопку нельзя просто удалить из excel через меню? |
03.01.2011, 20:54 | #10 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Можно и без меню. ПКМ-Вырезать(Cut).
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Button | ex-hack | Общие вопросы C/C++ | 5 | 16.04.2010 23:50 |
Button | Chudo4258 | Помощь студентам | 2 | 07.05.2009 21:06 |
button | xaft | Общие вопросы .NET | 4 | 08.04.2009 14:08 |
button | blackstersl | Общие вопросы Delphi | 7 | 29.08.2008 15:31 |
Button... | Черничный | Общие вопросы Delphi | 4 | 10.06.2008 01:34 |