使用单元格值填充用户窗体文本框

Question

我有一个简单的用户窗体，我想用一个单元格的值填充文本框。看起来很简单，但是没有填充，我无法弄清楚为什么，有人可以看看我的代码并告诉我我做错了什么吗？我正在尝试用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

Answer 1

您可以在用户窗体的初始化事件中填充文本框，而不是在做什么。

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