Excel VBA用户窗体实现Label点击循环切换Caption的方法

基础判断版代码 #

直接通过判断当前Label的Caption值，依次切换到目标状态，代码简洁直观：

Private Sub ExtUR_Label1_Click()
    With ExtUR_Label1
        Select Case .Caption
            Case "1"
                .Caption = "X"
                .ForeColor = &H8000000D ' 你原代码中设置的颜色
            Case "X"
                .Caption = "?"
                .ForeColor = &HFF0000 ' 可自定义该状态的文字颜色
            Case "?"
                .Caption = "1"
                .ForeColor = &H0 ' 恢复初始文字颜色
        End Select
    End With
End Sub

数组扩展版代码 #

如果后续需要增加更多切换状态，用数组管理会更灵活，无需修改大量判断逻辑：

Private Sub ExtUR_Label1_Click()
    Dim states As Variant
    Dim currentIndex As Integer
    
    ' 定义循环状态的顺序，可按需添加更多状态
    states = Array("1", "X", "?")
    
    With ExtUR_Label1
        ' 获取当前状态在数组中的位置（1-based索引）
        currentIndex = Application.Match(.Caption, states, 0)
        ' 切换到下一个状态，超出数组长度则回到第一个
        currentIndex = IIf(currentIndex = UBound(states) + 1, 1, currentIndex + 1)
        
        ' 设置新的Caption
        .Caption = states(currentIndex - 1) ' 数组为0-based索引，转换对应
        
        ' 可选：为每个状态设置对应颜色
        Select Case currentIndex
            Case 1
                .ForeColor = &H0
            Case 2
                .ForeColor = &H8000000D
            Case 3
                .ForeColor = &HFF0000
        End Select
    End With
End Sub

说明 #

• 使用With语句可以减少重复引用控件的代码，提升可读性和效率
• 两种方案都能实现1→X→?→1的循环切换逻辑，可根据后续需求选择
• 颜色设置为可选项，如果不需要区分状态颜色，可删除对应ForeColor行

内容的提问来源于stack exchange，提问作者Maryam Mirfazaelian