如何向Frame中的TextBox赋值？从工作表取值至Frame文本框求助

没问题！我来帮你搞定这个把工作表数值放到Frame内TextBox的问题～

两种常见场景的解决方案 #

场景1：控件在Excel工作表上 #

如果你的Frame和TextBox是直接嵌入工作表的ActiveX控件（右键Frame编辑插入的一般都是这种），可以通过控件的名称直接引用赋值。假设：

• 目标工作表是Sheet1
• Frame控件名称为Frame1（可在开发工具→设计模式下选中控件，按F4查看属性窗口的(名称)）
• Frame内的TextBox名称为TextBox1
• 要提取的数值在Sheet1的A1单元格（值为90）

对应的VBA代码如下：

Sub AssignValueToSheetFrameTextBox()
    ' 直接给工作表Frame里的TextBox赋值
    Sheet1.Frame1.TextBox1.Value = Sheet1.Range("A1").Value
    ' 如果想直接赋值90，也可以写：Sheet1.Frame1.TextBox1.Value = 90
End Sub

场景2：控件在UserForm（用户窗体）里 #

如果你的Frame和TextBox是在用户窗体中，推荐在窗体初始化事件里赋值，这样窗体加载时就会自动显示数值：

Private Sub UserForm_Initialize()
    ' 窗体加载时，给Frame内的TextBox赋值为Sheet1的A1单元格值
    Me.Frame1.TextBox1.Value = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    ' 直接赋值90的话：Me.Frame1.TextBox1.Value = 90
End Sub

如果需要在模块里调用窗体并赋值，也可以这么写：

Sub ShowFormWithValue()
    Dim myForm As UserForm1 ' 替换成你的窗体实际名称
    Set myForm = New UserForm1
    
    ' 给窗体Frame内的TextBox赋值
    myForm.Frame1.TextBox1.Value = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    myForm.Show
    Set myForm = Nothing
End Sub

无效时的排查要点 #

• 检查控件名称：别把Caption（显示标题）和(名称)（代码引用名）搞混，一定要用属性窗口里的(名称)字段
• 退出设计模式：开发工具里的「设计模式」开启时，控件无法接收赋值，要先关闭再运行代码
• 确认单元格引用：确保工作表名称、单元格位置正确，或者直接写固定值90测试
• 窗体实例化：如果是UserForm场景，要确保窗体已经被正确创建（比如用New关键字实例化）

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