VBA набор кнопок на форме

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

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

alpalmar

Дата: Понедельник, 31.10.2011, 17:09 | Сообщение № 1

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

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

Сообщений: 6

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

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

Всем доброго времени суток! Есть вопрос по VBA: на форме 10 кнопок и по клику на кнопку происходит следующее - на кнопке появляется знак "плюс". Можно конечно снаписать 10 процедур для каждой кнопки, это понятно. А можно это сделать в одной процедуре? Заранее спасибо.

Ответить

nerv

Дата: Понедельник, 31.10.2011, 17:14 | Сообщение № 2

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

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

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

Можно циклом по кнопкам

[vba]

Код

Sub io()
Dim x As Object
For Each x In UserForm1.Controls
      If TypeOf x Is MsForms.CommandButton Then
          MsgBox x.Caption
      End If
Next
End Sub

[/vba]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал Serge_007 - Четверг, 02.07.2015, 11:56

Ответить

alpalmar

Дата: Понедельник, 31.10.2011, 18:09 | Сообщение № 3

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

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

Сообщений: 6

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

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

Я наверно не совсем точно поставил вопрос: на форме 10 кнопок и при клике на каждой из них, на кнопке появляется "+", а не на всех сразу.

Ответить

RAN

Дата: Понедельник, 31.10.2011, 18:38 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Ну замените
[vba]

Код

If x.Name = ActiveControl.Name then MsgBox x.Caption

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал Serge_007 - Четверг, 02.07.2015, 11:57

Ответить

alpalmar

Дата: Понедельник, 31.10.2011, 19:15 | Сообщение № 5

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

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

Сообщений: 6

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

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

К сожалению, не получается.

Ответить

Саня

Дата: Понедельник, 31.10.2011, 20:17 | Сообщение № 6

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

ч/з модуль класса

К сообщению приложен файл: 3143978.xls (52.0 Kb)

Ответить

alpalmar

Дата: Вторник, 01.11.2011, 01:14 | Сообщение № 7

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

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

Сообщений: 6

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

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

Понял. Большое спасибо! Программистом надо родиться! smile

Ответить

DNDNleyys

Дата: Пятница, 18.05.2012, 01:42 | Сообщение № 8

Группа: Гости

Кто сталкивался картридж samsung mlt -104, где можно перепрошить?

Ответить

Michael_S

Дата: Пятница, 18.05.2012, 02:46 | Сообщение № 9

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

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

Сообщений: 2012

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

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

Excel2016

Quote (DNDNleyys)

Кто сталкивался картридж samsung mlt -104, где можно перепрошить?

Не понятно, причем тут ексель?... Есть специализированные форумы.

оф-топ
зы. Картридж не прошивается. Прошивается либо чип (на этом сабже - меняется), либо принтер для работы без чипа.

Ответить

VBA набор кнопок на форме

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