excel - 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

如果你使用的是 Shape，你可以使用这个

Sub x()

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

End Sub

对于你可以使用的文本框

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