Вопрос № 63005: Здравствуйте! Как сделать так чтобы по нажатии на кнопку в текущую активную ячейку листа 1 в EXcel встраивалась кнопка(в правый угол ячейки) по нажатии на которую появлялась бы форма...
Вопрос № 63.005
Здравствуйте! Как сделать так чтобы по нажатии на кнопку в текущую активную ячейку листа 1 в EXcel встраивалась кнопка(в правый угол ячейки) по нажатии на которую появлялась бы форма
Отправлен: 17.11.2006, 12:39
Вопрос задал: Rewer8 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: ADSota
Здравствуйте, Rewer8!
Примерно так (Макрос находиться в Module1):
...
'Добавление кнопки - которая полностью лежит в 1-й ячейке
Activesheet.Buttons.Add (Activesheet.Columns(1).Left, Activesheet.Rows(1).Top, Activesheet.Columns(1).Width, Activesheet.Rows(1).Height).Select
Selection.OnAction = "Module1.BTNClick"
Selection.Placement = xlMove
Selection.Characters.Text = "МОЯ Кнопка"
Selection.ShapeRange.AlternativeText = "МОЯ Кнопка"
...
sub BTNClick' Макрос, выполняемый при нажатии новой кнопки
MY_FORM.VISIBLE=true
end sub
...
--------- Открыть глаза навстречу солнцу
Ответ отправил: ADSota (статус: Профессионал) Тел.: 8-916-53-43-916 ICQ: 84611301 ---- Ответ отправлен: 17.11.2006, 13:00 Оценка за ответ: 5
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, Rewer8!
Sub Кнопка1_Щелкнуть()
Dim c, btn
Static i As Long
i = i + 1
Set c = Excel.ActiveCell
Set btn = ActiveSheet.Buttons.Add(c.Left, c.Top, c.Width, c.Height)
btn.OnAction = "BtnOnClick"
btn.Caption = "кнопка " & CStr(i)
End Sub
Sub BtnOnClick()
Dim f As New UserForm1
Load f
f.Show vbModeless
Set f = Nothing 'Пусть форма живет своей жизнью
End Sub
--------- Учиться никогда не поздно. Особенно программированию!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
