Worksheet_Change事件触发正常，但Form Control复选框无视觉更新

需求背景 #

基于触发单元格（如F19）的值变化，自动勾选/取消勾选特定工作表上的Form Control复选框。

逻辑流程 #

• 用户修改触发单元格；
• VBA在单独的数据表A列中搜索该值；
• 找到匹配项后，检查该行的T至AJ列；
• 若单元格内容为“OUI”，则主工作表上对应的复选框需设为xlChecked状态。

问题现象 #

• Worksheet_Change事件触发正常（已用MsgBox测试）；
• 代码能正确定位匹配行及“OUI”值；
• 代码可通过名称准确找到目标复选框；
• 复选框在屏幕上无视觉更新，始终显示未勾选，且代码运行无报错。

已验证项 #

• 工作表Visible属性设为-1（xlSheetVisible）；
• ScrollArea属性为空；
• Application.EnableEvents状态为True；
• 代码中复选框名称与名称框中的名称完全一致；
• 使用的是Form Controls（非ActiveX控件）。

所用VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("F19")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim wsSource As Worksheet, searchVal As String, foundRow As Variant
    Dim cb As CheckBox, cellValue As Variant, isApproved As Boolean, i As Integer
    
    ' 实际文件中的工作表名称
    Set wsSource = ThisWorkbook.Sheets("Sheet_Data")
    searchVal = Trim(Me.Range("F19").Value)
    
    If searchVal <> "" Then
        foundRow = Application.Match(searchVal, wsSource.Columns(1), 0)
        If IsError(foundRow) Then foundRow = 0
    End If
    
    ' 数组配置（名称与名称框中的完全一致）
    Dim caseNames(1 To 17) As String, colMapping(1 To 17) As String
    caseNames(1) = "CB_Name_1": colMapping(1) = "T"
    ' ...（其余映射内容）...
    
    For i = 1 To 17
        Set cb = Nothing: isApproved = False
        If foundRow <> 0 Then
            cellValue = wsSource.Range(colMapping(i) & foundRow).Value
            If UCase(Trim(cellValue)) = "OUI" Then isApproved = True
        End If
        
        Set cb = Me.CheckBoxes(caseNames(i))
        If Not cb Is Nothing Then
            cb.Value = IIf(isApproved, xlChecked, xlUnchecked)
        End If
    Next i
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

常见原因及解决办法 #

这种内部值变更但视觉无更新的情况确实存在，可从以下方向排查：

1. LinkedCell属性干扰
   若复选框设置了LinkedCell属性，即便通过VBA修改Value，绑定单元格的值会覆盖复选框状态。检查复选框的LinkedCell是否为空，若有绑定单元格，需同步修改该单元格值，或者直接解除绑定。

2. 屏幕刷新延迟
   虽然代码中启用了Application.ScreenUpdating = True，但Excel的UI刷新可能存在延迟。可在代码末尾添加Me.Repaint强制工作表重绘，或者在恢复ScreenUpdating后执行DoEvents：

   Application.ScreenUpdating = True
   DoEvents
   Me.Repaint
   

3. 控件显示属性异常
   右键复选框→设置控件格式→切换到“控制”选项卡，确认“三维阴影”等显示选项未造成视觉遮挡；也可尝试重新插入一个新的Form Control复选框进行测试，排除原有控件损坏的可能。

4. Excel进程缓存异常
   若上述方法均无效，尝试重启Excel清除进程缓存。有时Excel的UI渲染进程会出现异常，导致控件状态无法正常更新。

内容的提问来源于stack exchange，提问作者Akilis Le quellec