Question

Sheet页中的textbox的公式栏里的参照对象用vba如何添加

不知道大家有没有用过，你往sheet页里插入一个文本框，然后选中，在excel公式栏中参照一个单元格（=R1C1），那么这个文本框就会显示那个单元格的值。请问，用vba这个操作怎么做！谢谢

Answer 1

Sub INB()
    '插入文本框并设置距离 左、上边框距离和自身长宽
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 50, 100, 50).Select
    '文本框内容和A1同步
    Selection.Formula = "=A1"
End Sub

Answer 2

不明白你说的是什么，请用动画或者图片演示好吗