Excel表格中插入的文本框如何显示某个单元格的内容?

比如:A1单元格的数据会根据实际情况变化,而我插入的文本框显示的内容随着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单元格也会跟着改变。

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-07-22
进入VBA在下列事件中加入码即可:如sheet1的单元格变化后显示在Textbox1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Value = Sheet1.Cells(1, 1)
End Sub
第2个回答  2014-07-22

点击文本框,然后在编辑栏中输入公式=$A$1

追问

编辑栏为灰色,无法编辑

追答

画好文本框后,直接在编辑栏编辑就行了

第3个回答  2014-07-22
右键 工作表标签 ---查看代码---输入下面代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then TextBox1.Value = [A1].Value
End Sub本回答被网友采纳
第4个回答  2014-07-22

插入一个图形,然后选择这个图形,这时在编辑框里输入  ==>  =$A$1

这时,图形里的数据就会和A1的值同步。

追问

我选择后编辑框呈灰色,无法编辑

追答

要是图形,不是文本控件。

相似回答