Обработка нескольких кнопок (CommadButton) одной процедурой - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Обработка нескольких кнопок (CommadButton) одной процедурой (Макросы Sub)

Обработка нескольких кнопок (CommadButton) одной процедурой

IgorShuldybin

Дата: Пятница, 03.01.2014, 18:25 | Сообщение № 21

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Hugo, Спасибо, так я уже сделал, но ... как-то много получается, и неиновационно...

Ответить

KuklP

Дата: Пятница, 03.01.2014, 18:26 | Сообщение № 22

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

О классах можно почитать здесь:
http://www.excel-vba.ru/chto-umeet-excel/rabota-s-modulyami-klassov/
Название нажатой кнопки: application.caller.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

IgorShuldybin

Дата: Пятница, 03.01.2014, 18:30 | Сообщение № 23

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

KuklP, Спасибо, буду учить матчасть!

Ответить

KuklP

Дата: Пятница, 03.01.2014, 18:32 | Сообщение № 24

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Для класса(из примера) название кнопки будет: buttons.caption(надпись), или buttons.name(имя контрола).
Удачи.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Пятница, 03.01.2014, 18:33

Ответить

Hugo

Дата: Пятница, 03.01.2014, 18:39 | Сообщение № 25

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Увидеть имя:
[vba]

Код

Private Sub ColorButton_MouseDown(ByVal Button As Integer, _
     ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
'   Assign the value and close the dialog
     ColorValue = ColorButton.BackColor
     MsgBox ColorButton.Name
     Unload UserForm1
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Vja4eslav

Дата: Вторник, 17.09.2019, 11:59 | Сообщение № 26

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Цитата IgorShuldybin, 03.01.2014 в 18:20, в сообщении № 20 ()

Есть ссылка где можно про Class() почитать, не пойму как работает и в какой последовательности. И еще если не затруднит как из приложенной Вами программы получить название нажатой кнопки, убрав в коменты все лишнее.

https://www.excel-vba.ru/chto-um....#0

Ответить

Обработка нескольких кнопок (CommadButton) одной процедурой (Макросы Sub)

Страница 2 из 2
«
1
2