Question

EXCEL VBA 自定义窗体中标签label属性的调用

我在excel创建了一个自定义窗体UserForm1，在这个窗体中添加了12个标签label1-12，我想实现点击哪个标签时，可以得到哪个标签的名称NAME值，如何用代码实现？
网上找了好多 说可以用Activecontrol来实现，但这个只适合于文本框textbox，并不适合标签
故求解！！！

Answer 1

vba中没有控件数组的功能，只能用类模块了。

首先在窗体中粘贴以下代码

Dim col As New Collection
Private Sub UserForm_Initialize()
Dim I As Integer
Dim myc As cmds
For I = 1 To 12  '有多少个label就改成to 多少
Set myc = New cmds
Set myc.cmd = Me.Controls("Label" & I)
col.Add myc
Next
Set myc = Nothing
End Sub

然后在插入一个类模块，重命名为cmds，粘贴以下代码

Public WithEvents cmd As MSForms.Label
Private Sub cmd_Click()
msgbox cmd.name
End Sub

注意一点，label的名称不能改变，用默认的。

Answer 2

Private Sub Label1_Click()
MsgBox Label1.Name
End Sub

就这么简单，不是吗？

追问

如果我有30个标签的话，难道我就在每个标签的事件下面
Private Sub Label1…………30_Click()
MsgBox Label1…………30.Name
End Sub
吗？？？
我想要的是
Private Sub Label1_Click()
MsgBox ....Name（这段代码可以自动判断点击标签的名称）
End Sub

追答

你要的是30个标签，任何一个被点击，都触发固定的一段代码，显示出被单击的标签名。
是这样吗？代码只有一段，只有一个事件？

追问

事件的话想分30段写，但事件内容应该是一样的
当然如果有办法只用一个事件就解决问题的话，那就最好了
说到底就是想知道有没有这样一段代码
可以判定当前操作的那个控件，并取得这个控件的NAME属性

追答

我也不知道有没有你说的这种代码。——有的话，请你告诉我让我开开眼界。

不过，既然都写了30个事件，也不在乎事件过程中改少许名称吧。

追问

难道就真的没有吗 我想过一个，就是事件不再是针对标签，而是针对整个窗体
事件为窗体的点击
但内容的话就是要对点击范围进行判断
通过这种方法来实现一个事件 一段代码的效果吧！！
当然如果有人看见上面的提问，而且可以解决的话 那就谢天谢地了
我还是主要想了解最后一个功能
### 判定当前操作的那个控件，并取得这个控件的NAME属性###这个功能

追答

对，我听说过类模块能捕捉到系统级的事件。可是我不会。要么你上excelHome去问问看吧。

Answer 3

要用到类模块的知识，建议学习一下类模块。