Excel表格中插入的文本框如何显示某个单元格的内容?
比如:A1单元格的数据会根据实际情况变化,而我插入的文本框显示的内容随着A1单元格数据的变化而变化。跪求高手指点!...
比如:A1单元格的数据会根据实际情况变化,而我插入的文本框显示的内容随着A1单元格数据的变化而变化。跪求高手指点!
展开
5个回答
展开全部
方法一:直接设置文本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单元格也会跟着改变。
展开全部
进入VBA在下列事件中加入码即可:如sheet1的单元格变化后显示在Textbox1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Value = Sheet1.Cells(1, 1)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Value = Sheet1.Cells(1, 1)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
右键 工作表标签 ---查看代码---输入下面代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then TextBox1.Value = [A1].Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then TextBox1.Value = [A1].Value
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询