如何根据Excel VBA用户窗体上的点击位置选中指定Label？

嘿，作为刚接触VBA的新手就能着手开发数独程序，这已经很厉害了！我来帮你把你描述的点击Label的逻辑落地成可参考的代码和思路～

你提到的点击Label后的三步逻辑，我们可以拆解成以下环节来实现：

1. 准备工作：定义颜色常量 #

在UserForm的通用声明区（代码窗口最上方，所有Sub之外）先定义好需要用到的颜色，方便后续修改和维护：

' 原始背景色（可根据你的界面风格调整）
Const ORIGINAL_COLOR As Long = &H8000000F
' 被点击格子的高亮色
Const SELECTED_COLOR As Long = &HFFFF00
' 同数字格子的标记色（和高亮色区分开更清晰，也可以设成一样）
Const SAME_NUM_COLOR As Long = &HFFC0C0

2. 点击Label的核心逻辑代码 #

推荐把所有数独格子做成控件数组（创建方法：拖一个Label到窗体，复制粘贴时选择「是」，所有格子会被命名为Label(0)到Label(80)），然后给这个控件数组添加点击事件：

Private Sub Label_Click(Index As Integer)
    Dim clickedLbl As MSForms.Label
    Set clickedLbl = Me.Label(Index)
    
    ' 第一步：恢复所有Label的原始背景色
    Dim lbl As MSForms.Label
    For Each lbl In Me.Label
        lbl.BackColor = ORIGINAL_COLOR
    Next lbl
    
    ' 第二步：高亮当前点击的Label
    clickedLbl.BackColor = SELECTED_COLOR
    
    ' 第三步：标记所有Caption相同的Label
    Dim targetNum As String
    targetNum = clickedLbl.Caption
    
    ' 排除空值，避免空格子都被标记
    If targetNum <> "" Then
        For Each lbl In Me.Label
            If lbl.Caption = targetNum Then
                lbl.BackColor = SAME_NUM_COLOR
            End If
        Next lbl
        ' 把点击的格子重新设为高亮，避免被同数字颜色覆盖
        clickedLbl.BackColor = SELECTED_COLOR
    End If
End Sub

3. 适配非控件数组的小技巧 #

如果你的格子是单独命名的Label1到Label81，可以把遍历逻辑改成这样：

Dim i As Integer
For i = 1 To 81
    Me.Controls("Label" & i).BackColor = ORIGINAL_COLOR
Next i

另外如果初始时固定数字格子和可编辑格子颜色不同，可以在窗体初始化时把每个Label的原始颜色存在Tag属性里：

Private Sub UserForm_Initialize()
    Dim lbl As MSForms.Label
    For Each lbl In Me.Label
        lbl.Tag = lbl.BackColor ' 把原始颜色存到Tag属性中
    Next lbl
End Sub

之后恢复颜色时就用lbl.BackColor = lbl.Tag，能更灵活适配不同初始状态。

内容的提问来源于stack exchange，提问作者David Lee