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

如何将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"