如何将Excel公式放入文本框中?
我尝试过这样的事情:
Sub CivBox()
With ActiveSheet
.Shapes("Civils 3").Copy
[C26].Activate
.Paste
.Shapes(.Shapes.Count).Name = "Civils 4"
.Shapes("Civils 4").TextFrame2.TextRange.Characters.Text = "=D51"
End With
End Sub
但只返回字符串
是否可以将 Excel 公式放入文本框中,或者我应该先在某个单元格中准备它,然后将该单元格作为范围链接到该文本框中?
如果您使用的是形状,您可以使用它
Sub x()
ActiveSheet.Shapes(1).OLEFormat.Object.Formula = "=A1"
End Sub
对于文本框,您可以使用
ActiveSheet.TextBoxes("TextBox 1").Formula = "=A1"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)