首页 > 解决方案 > 使用单元格值填充用户窗体文本框

问题描述

我有一个简单的用户表单,我想用单元格的值填充一个文本框。看起来很简单,但它没有填充,我不知道为什么,有人可以看看我的代码并告诉我我做错了什么吗?我正在尝试TextBoxCurrentCCBuffer填充Sheets("Closing Costs").Range("D32").

Private Sub CommandButton1_Click()
    TextBoxCurrentCCBuffer.Value = Sheets("Closing Costs").Range("D32").Value
    If TextBoxCCBuffer.Value = "" Then
        Unload Me
        Exit Sub
    Else
        Worksheets("Closing Costs").Range("D32").Value = TextBoxCCBuffer.Value
        Unload Me
    End If
End Sub

标签: excelvba

解决方案


您可以在用户窗体初始化事件中填充文本框,而不是您正在执行的操作。

Private Sub UserForm_Initialize()
TextBoxCurrentCCBuffer.Value = Sheets("Closing Costs").Range("D32").Value
End Sub

推荐阅读