Вывод результата расчетов в отдельном окне
Выполнив несложный трюк, можно вывести результат расчетов, полученный с помощью формулы, в отдельном информационном окне. Для этого можно создавать самые разнообразные макросы (в зависимости от сложности расчета, содержимого ячеек и формул и т. д.). В листинге 3.70 приведен пример одного из таких макросов.
Листинг 3.70. Окно с результатом расчетов
Sub ResultToWindow()
' Переходим на первый лист
Worksheets(1).Activate
' Заносим в ячейки данные
Range(«A2») = 5
Range(«A3») = «=A2+3»
' Выводим результат расчета
MsgBox Range(«A3»).Formula + " = " + str(Range(«A3»).Value)
End Sub
Результат выполнения данного макроса показан на рис. 3.23.
Рис. 3.23. Формула и результат
Кроме того, после выполнения макроса в ячейке А2 появится значение 5, а в ячейке A3 – 8.