VBA 将窗口输入内容插入到表格中
dialog中画了一个窗口,有编辑框和下拉框,如何实现,编辑框中填写的内容在摁确定按钮之后插入到其他的sheet中。...
dialog中画了一个窗口,有编辑框和下拉框,如何实现,编辑框中填写的内容在摁确定按钮之后插入到其他的sheet中。
展开
1个回答
展开全部
提供两种解决方法:
方法一:
直接设置文本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单元格也会跟着改变。
方法一:
直接设置文本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单元格也会跟着改变。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询