如何用VBA更新Excel UserForm控件属性？代码无报错但未生效

你的代码和调试操作无效的核心原因有两个：

1. 你通过Set frm = New ufViewCourse创建了一个全新的、未显示的窗体实例，修改这个实例的控件属性不会影响当前你看到的已打开窗体，也不会在界面上产生变化。
2. 如果窗体处于VBE设计视图，运行时代码无法修改控件的设计时属性——此时属性只能在属性窗口手动修改，代码修改的是运行时实例的临时属性，不会同步到设计视图。

解决方案1：修改已显示的运行中窗体控件属性 #

直接引用当前打开的窗体实例，而非新建：

Public Sub AlignHdiTbxs()
    Dim frm As ufViewCourse
    Dim ctl As Control
    Dim targetCtrlName As String
    Dim targetCtrl As Control
    
    ' 引用已打开的窗体实例（确保窗体已通过ufViewCourse.Show打开）
    Set frm = Forms("ufViewCourse")
    ' 单实例窗体也可直接用：Set frm = ufViewCourse
    
    For Each ctl In frm.Controls
        If Left(ctl.Name, 6) = "tbxHdi" Then
            Debug.Print ctl.Name, ctl.Height, ctl.Left, ctl.Top, ctl.Width
            ' 自动提取编号，兼容1位/2位编号的控件
            targetCtrlName = "tbxPar" & Mid(ctl.Name, 7)
            ' 容错处理：避免找不到对应控件时报错
            On Error Resume Next
            Set targetCtrl = frm.Controls(targetCtrlName)
            On Error GoTo 0
            
            If Not targetCtrl Is Nothing Then
                ctl.Left = targetCtrl.Left
            End If
        End If
    Next ctl
End Sub

使用要求：调用前必须确保ufViewCourse处于运行状态（已通过Show方法打开），而非停留在设计视图。

解决方案2：永久修改设计时窗体控件属性 #

如果希望修改后下次打开窗体仍生效，需操作窗体的设计时对象：

Public Sub AlignHdiTbxs_DesignMode()
    Dim frmComp As Object
    Dim ctl As Control
    Dim targetCtrlName As String
    Dim targetCtrl As Control
    
    ' 获取窗体的VBA组件并打开设计视图
    Set frmComp = ThisWorkbook.VBProject.VBComponents("ufViewCourse")
    frmComp.Activate
    
    For Each ctl In frmComp.Designer.Controls
        If Left(ctl.Name, 6) = "tbxHdi" Then
            targetCtrlName = "tbxPar" & Mid(ctl.Name, 7)
            On Error Resume Next
            Set targetCtrl = frmComp.Designer.Controls(targetCtrlName)
            On Error GoTo 0
            
            If Not targetCtrl Is Nothing Then
                ctl.Left = targetCtrl.Left
            End If
        End If
    Next ctl
End Sub

使用要求：需先启用信任对VBA项目对象模型的访问（Excel选项→信任中心→宏设置→勾选对应选项），否则会触发权限报错。

调试操作注意事项 #

调试窗口执行修改代码时，必须指定运行中的窗体实例：

' 正确写法：操作已打开的窗体实例
Forms("ufViewCourse").Controls("tbxParTotal").Height = 15

不要直接用ufViewcourse.Controls(...)，这会创建一个新的未显示实例，修改不会有视觉反馈。

内容的提问来源于stack exchange，提问作者Perry Sugerman