如何实现在Excel表中文本框输入文字显示到指定单元格
我在Sheet1创建了个文本框,在文本框内输入内容,按回车键后内容自动填充到A1单元格的VBA代码怎么写? 展开
2015-10-16 · 知道合伙人软件行家
知道合伙人软件行家
向TA提问 私信TA
提供两种解决方法:
方法一:
直接设置文本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单元格也会跟着改变。
Option Explicit
Private Sub TextBox1_Change()
Range("A1").Value = TextBox1.Text
End Sub
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
VBA代码怎么写?
需要根据你的【具体】要求来编写。
在附件的任一单元格中双击,在弹出的输入框中输入内容,点击”确定“后,输入的内容就会自动显示在被双击的单元格中。
【请先将”宏安全性“设置为”中“!!!】