Question

我想构建一个带有TextBox和CommandButton的简单UserForm，它通过在特殊列中单击空单元格（例如在A列，单元格A1中）打开自身在工作表内。当我输入文本并点击按钮时，输入的文本应粘贴在活动单元格中（A1）。

UserForm的构建不是问题，而是它背后的行为。

你们有个想法如何解决这个问题吗？甚至更好的代码片段？

提前致谢！

Answer 1

以下是单击单元格时将运行的一段代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A1")) Is Nothing Then
            'name of userform .Show
        End If
    End If
End Sub

如果代码有评论，则需要使用用户表单的名称，然后.Show

输入文字，按照你的建议，让A1说：

Private Sub CommandButton1_Click()

TextValue = TextBox1.Text

[A1].Value = TextValue

End Sub

将CommandButton1和TextBox1更改为您为其命名的任何内容（如果您为其命名，则应该这样做）

如果您需要澄清任何内容，请询问

Excel VBA - 活动单元格中TextBox的文本

1 个答案: