VBA Excel如何在文本框中写入Excel公式

Question

如何将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 公式放入文本框中，或者我应该先在某个单元格中准备它，然后将该单元格作为范围链接到该文本框中？

---

Answer 1

如果您使用的是形状，您可以使用它

Sub x()

ActiveSheet.Shapes(1).OLEFormat.Object.Formula = "=A1"

End Sub

对于文本框，您可以使用

ActiveSheet.TextBoxes("TextBox 1").Formula = "=A1"