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

Question

我想用一个文本框和一个命令按钮构建一个简单的用户窗体，它通过在工作表内的特殊列（例如在列 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更改为您命名它们的任何名称（如果您命名它们，您应该命名）

如果您需要澄清任何事情，请询问