调用函数修改未激活UserForm标签Caption属性时出错求助

核心原因 #

你之前修改.Name属性成功，是因为那段代码大概率是在**表单未运行（设计状态）**时执行的，而这次修改.Caption是在表单运行期间调用的——Designer对象仅用于修改设计时的控件属性，当表单处于加载/显示状态时，运行中的表单实例和设计时的Designer是两个独立对象，此时直接操作Designer会导致控件对象无法被正确引用，从而抛出Object or with block variable not set错误。

修复方案 #

操作运行中的表单实例（推荐） #

如果要在程序运行时动态更新标签的Caption，直接操作已加载的表单实例即可：

Function changeMsgLabel(ByRef targetLabel As String, revisedStr As String)
    Dim targetForm As Object
    ' 检查表单是否已加载
    On Error Resume Next
    Set targetForm = masterMsgUserForm
    On Error GoTo 0
    
    If Not targetForm Is Nothing Then
        ' 直接修改运行中表单的控件属性
        targetForm.Controls(targetLabel).Caption = revisedStr
    Else
        ' 若表单未加载，可先加载再修改（按需选择是否显示）
        Load masterMsgUserForm
        masterMsgUserForm.Controls(targetLabel).Caption = revisedStr
        ' 如需显示表单，添加此行：masterMsgUserForm.Show
    End If
End Function

若需在设计时修改（表单未运行） #

如果确实要在设计阶段修改属性，确保masterMsgUserForm没有被加载（关闭所有运行中的表单实例），同时确认Excel信任中心已启用对VBA项目对象模型的访问（文件>选项>信任中心>信任中心设置>宏设置>勾选"信任对VBA项目对象模型的访问"）。不过这种场景仅适用于开发阶段调整，不适合运行时动态更新。

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