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 в textBox или я должен сначала подготовить ее в какой-нибудь ячейке, а затем связать эту ячейку с этим полем в виде диапазона?

---

Answer 1

Если вы используете Shape, вы можете использовать это

Sub x()

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

End Sub

Для текстового поля вы можете использовать

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

Answer 2

Вы можете сделать это косвенно. Вы не можете поместить его в поле, но вы можете выбрать текстовое поле (не содержимое текстового поля), go к строке формул и ссылаться на ячейку.

Редактировать: Это может помочь: https://www.solveyourtech.com/how-to-display-a-formula-result-in-a-text-box-in-excel-2010/