如何基于用户输入动态更改VBA UserForm属性名称？

针对你需要将代码中$$$标识符替换为用户输入内容的需求，这里提供两种实用方案：

方案一：静态代码生成（字符串替换法） #

如果需要生成固定的VBA代码，可以将模板代码以字符串形式存储，用Replace函数批量替换标识符，再写入到VBA模块中：

Sub GenerateTargetCode()
    Dim userInput As String
    userInput = InputBox("请输入目标标识符（如ABC）")
    If userInput = "" Then Exit Sub
    
    ' 定义代码模板
    Dim codeTemplate As String
    codeTemplate = "If frm_$$$.lst_$$$_ABCDE.ListCount > 0 Then" & vbCrLf & _
                   "      frm_$$$.lbl_$$$_ACE.Caption = ""Lorem ipsum: "" & frm_$$$.lst_$$$_ABCDE.ListCount" & vbCrLf & _
                   "ElseIf frm_$$$.lst_$$$_ABCDE.ListCount = 0 Then" & vbCrLf & _
                   "      frm_$$$.lbl_TH_centercount.Caption = ""Lorem ipsumt: 0""" & vbCrLf & _
                   "      frm_$$$.cmd_$$$_Save.Enabled = False" & vbCrLf & _
                   "      frm_$$$.cmd_$$$_Next.Enabled = False" & vbCrLf & _
                   "End If"
    
    ' 替换所有$$$占位符
    Dim finalCode As String
    finalCode = Replace(codeTemplate, "$$$", userInput)
    
    ' 将生成的代码插入到指定模块（示例：Module1）
    Dim targetModule As VBComponent
    Set targetModule = ThisWorkbook.VBProject.VBComponents("Module1")
    targetModule.CodeModule.AddFromString finalCode
End Sub

执行后，模块中会生成替换完成的代码，完全符合你期望的输出效果。

方案二：运行时动态访问（CallByName法） #

如果不需要生成静态代码，而是要在运行时动态处理不同表单和控件，可以用CallByName函数动态获取对象，避免硬编码：

Sub DynamicProcessControls()
    Dim userInput As String
    userInput = InputBox("请输入目标标识符（如ABC）")
    If userInput = "" Then Exit Sub
    
    Dim targetForm As Object
    Dim listCtrl As Object
    Dim labelCtrl As Object
    Dim saveBtn As Object
    Dim nextBtn As Object
    
    ' 动态获取目标表单
    Set targetForm = UserForms("frm_" & userInput)
    ' 动态获取各类控件
    Set listCtrl = CallByName(targetForm, "lst_" & userInput & "_ABCDE", VbGet)
    Set labelCtrl = CallByName(targetForm, "lbl_" & userInput & "_ACE", VbGet)
    Set saveBtn = CallByName(targetForm, "cmd_" & userInput & "_Save", VbGet)
    Set nextBtn = CallByName(targetForm, "cmd_" & userInput & "_Next", VbGet)
    
    ' 执行业务逻辑
    If listCtrl.ListCount > 0 Then
        labelCtrl.Caption = "Lorem ipsum: " & listCtrl.ListCount
    Else
        targetForm.lbl_TH_centercount.Caption = "Lorem ipsumt: 0"
        saveBtn.Enabled = False
        nextBtn.Enabled = False
    End If
End Sub

这种方案更灵活，无需修改代码即可适配不同的用户输入，适合动态交互场景。

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