Выбрать label

@Bregra · Регистрация: 15.11.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте,

Как сделать, чтобы в форме можно было выбрать label? При выборе элемента label, он бы выделялся и макрос бы определял какой был выбран элемент label? Элементов label 50 штук. Во вложение файл.
Спасибо.

@yutrans · 20.02.2017, 00:46

Тестируйте.

@Bregra · 20.02.2017, 01:01 **[ТС]**

Спасибо. Отлично. А есть ли возможность, чтобы запускался макрос через кнопку? Чтобы можно было выбрать элемент, он менял бы цвет, и после нажатии на кнопку он бы выдавал сообщение?

@Bregra · 20.02.2017, 02:10 **[ТС]**

Во вложении результат, если кому то интересно

@Homarty · 20.02.2017, 11:36

Используйте это как образец...

Добавлено через 1 минуту
[VBA]Private Sub AnyLabel_Click()
LabelHandler Me.Controls("AnyLabel")
End Sub

Private Sub LabelHandler(lblL As msforms.Label)
Dim oldBackColor As Long
oldBackColor = lblL.BackColor
lblL.BackColor = &H8000000D
MsgBox lblL.Name
lblL.BackColor = oldBackColor
End Sub[/VBA]

@Bregra 8 / 8 / 0 Регистрация: 15.11.2015 Сообщений: 177
	20.02.2017, 01:01 [ТС]	3
	Спасибо. Отлично. А есть ли возможность, чтобы запускался макрос через кнопку? Чтобы можно было выбрать элемент, он менял бы цвет, и после нажатии на кнопку он бы выдавал сообщение? 0

@Homarty 141 / 119 / 29 Регистрация: 12.02.2017 Сообщений: 308
	20.02.2017, 11:36	5
	Используйте это как образец... Добавлено через 1 минуту [VBA]Private Sub AnyLabel_Click() LabelHandler Me.Controls("AnyLabel") End Sub Private Sub LabelHandler(lblL As msforms.Label) Dim oldBackColor As Long oldBackColor = lblL.BackColor lblL.BackColor = &H8000000D MsgBox lblL.Name lblL.BackColor = oldBackColor End Sub[/VBA] 1