Excel Immediate Window Печать значения формулы

Question

Сегодня я впервые пишу макрос для Excel, и мне было дано задание изменить чужой код для добавления новых функций. Я узнаю, что в Excel есть окно «Немедленно», которое я считаю очень полезным.

У меня есть вопрос, на который я не могу найти ответ в последний час поиска. Если вы посмотрите на изображение ниже, вы заметите, что fstr является строковой переменной.

В настоящее время fstr содержит формулу. Как можно распечатать фактическое значение этой формулы вместо самой формулы?

Одна вещь, которую я попробовал, была fstr.xlPastValues, но она не сработала. Я получил эту идею от записи макроса при вставке значения формулы вручную.

Answer 1

Вы можете использовать метод Evaluate:

Sub Tester()
Dim sFormula As String
    sFormula = "=A1+A2"
    'evaluate in the context of the current worksheet
    '  adjust to suit...
    Debug.Print ActiveSheet.Evaluate(sFormula)
End Sub