Question

如何实现在Excel表中文本框输入文字显示到指定单元格

我想在Sheet表中创建个文本框，在文本框内输入文字内容，鼠标离开后自动将文本框内的数据填充到A1单元格
我在Sheet1创建了个文本框，在文本框内输入内容，按回车键后内容自动填充到A1单元格的VBA代码怎么写？

Answer 1

实现在Excel表中文本框输入文字显示到指定单元格的具体步骤如下：

我们需要准备的材料分别是：电脑、Excel表格。

1、首先我们打开需要编辑的Excel表格。

2、然后我们点击插入中的“文本框”，选择一个文本框样式。

3、然后我们在弹出来的窗口中点击输入“=”，之后点击想要显示到指定单元格的单元格，回车确定即可。

Answer 2

1、首先打开电脑，然后在电脑桌面上打开Excel表格，鼠标左键双击Excel应用图标即可快速打开该表格；

2、以工作表中以文本内容关联单元格A2为例，在A2单元格中输入内容，教程以饼图为例，插入一个文本框，具体操作如下，单击菜单栏中的插入命令，然后文本功能区选择文本框命令；

3、在文本框属于选择状态的情况下，在编辑栏中输入等于号，然后鼠标左键单击A2单元格，此时会在编辑栏中显示=$A$2，然后按下Enter键即可，此时更改A2单元格内容，文本框内容也会关联更新。

Answer 3

提供两种解决方法：

方法一：

直接设置文本LinkedCell属性。

操作方法：

步骤1：插入文本框后，右击文本框>>>属性，如下图

步骤2：在LinkedCell属性框中输入要链接的单元格地址A1，如下图

步骤3：关闭“属性”对话框，单击“开发工具”>>>“设计模式”以退出设计模式，如下图：

现在，文本框输入数据，A1也会跟着改变，结果如下图：

方法二：

直接用VBA代码控制

操作方法：

步骤1：插入文本框后，右击文本框>>>查看代码（或双击文本框），就会自动打开VBA编辑器的代码窗口，并自动输入了下面的代码：

Private Sub TextBox1_Change()

End Sub
步骤2：在代码中间添加一句

    [a1] = TextBox1.Value

最终代码如下

Private Sub TextBox1_Change()
    [a1] = TextBox1.Value
End Sub
如下图

步骤3：关闭VBA编辑器，再单击“开发工具”>>>“设计模式”以退出设计模式。

效果与方法一一样，文本改变（增加或删除数据），A1单元格也会跟着改变。

Answer 4

在sheet1创建一个文本框，然后双击这个文本框进入VBA代码编辑器，把里面的内容都删除，然后把下面的代码贴进去。试试吧。(假定你的文本框名为 TextBox1)
Option Explicit

Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Text
End Sub

Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub

Answer 5

用VBA代码试试吧。

追问

VBA代码怎么写？

追答

需要根据你的【具体】要求来编写。

在附件的任一单元格中双击，在弹出的输入框中输入内容，点击”确定“后，输入的内容就会自动显示在被双击的单元格中。

【请先将”宏安全性“设置为”中“！！！】

复制去Google翻译翻译结果

追问

我要VBA代码，因为我需要建立多个文本框