代码之家 › 专栏 › 技术社区 › Maryam Mirfazaelian

我们是否可以多次单击我们创建的特定标签,并在每次单击时更改标签文本(以excel VBA的用户形式)?

userform label vba excel

0

Maryam Mirfazaelian · 技术社区 · 1 年前

我有一个用VBA编写的excel用户表单。我的用户表单中有一个标签,每次单击它时我都想更改该标签的标题。例如:该标签当前有“1”标题,第一次单击该标签时,我想将标签的标题更改为“X”,第二次单击标签时,将标签的题注更改为“?”,如果再单击一次,我想更改为第一个标题,即“1”。我更喜欢在这种情况下使用标签,不幸的是,其他选项,如组合框或选项按钮,不适合我。这种情况有什么办法吗?提前感谢您的建议。

我只是为我的标签写了这部分代码,不知道如何写其余的:

Private Sub ExtUR_Label1_Click()
    ExtUR_Label1.Caption = "X"
    ExtUR_Label1.ForeColor = &H8000000D
End Sub

1 回复 | 直到 1 年前

1

Brian M Stafford 1 年前

你的想法是对的。以下内容可以满足您的需要:

Private Sub ExtUR_Label1_Click()
   If ExtUR_Label1.Caption = "1" Then
      ExtUR_Label1.Caption = "X"
   ElseIf ExtUR_Label1.Caption = "X" Then
      ExtUR_Label1.Caption = "?"
   Else
      ExtUR_Label1.Caption = "1"
   End If
End Sub