(VBA + Excel Кнопка на листе) v.2
Формулировка задачи:
Доброго времени суток.
Прошу помочь с нижеследующим макросом (аналогичная тема поднята здесь https://www.sql.ru/forum/actualthread.aspx?tid=227804).
Итак, в книге Excel программно создается определенное число новых листов. На каждый лист помещается одна и та же кнопка.
Есть модуль, в котором написан код, который должен запускаться по нажатию вновь созданных кнопок и обрабатывать именно тот лист, на котором нажата кнопка.
Кнопки создаются именно таким способом:
activelist.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=415, Top:=285, Width:=70, Height:=31.5).Select
Selection.Object.Caption = "Расчет"
Selection.Object.Font.Bold = True
Selection.Object.Font.Size = 12
Вопрос: как сделать так, чтобы вновь созданные кнопки ссылались на существующий код в модуле?
Весь инет перекопал, и книги, поэтому обращение на форум обосновано. =)
Заранее благодарен за идеи!
Прошу помочь с нижеследующим макросом (аналогичная тема поднята здесь https://www.sql.ru/forum/actualthread.aspx?tid=227804).
Итак, в книге Excel программно создается определенное число новых листов. На каждый лист помещается одна и та же кнопка.
Есть модуль, в котором написан код, который должен запускаться по нажатию вновь созданных кнопок и обрабатывать именно тот лист, на котором нажата кнопка.
Кнопки создаются именно таким способом:
activelist.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=415, Top:=285, Width:=70, Height:=31.5).Select
Selection.Object.Caption = "Расчет"
Selection.Object.Font.Bold = True
Selection.Object.Font.Size = 12
Вопрос: как сделать так, чтобы вновь созданные кнопки ссылались на существующий код в модуле?
Весь инет перекопал, и книги, поэтому обращение на форум обосновано. =)
Заранее благодарен за идеи!
Решение задачи: «(VBA + Excel Кнопка на листе) v.2»
textual
Листинг программы
.InsertLines i, _ <font color="teal">" MsgBox "</font>" ... i = i + <font color="darkblue"><b>1</b></font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д