Методы объекта Worksheet и семейства Worksheet

Evaluate

Преобразует выражение в объект или значение. Используется при вводе формул и ячеек из диалоговых окон.

В следующем примере в поле ввода первого появившегося ) диалогового окна вводится ссылка на ячейку, например A1, процедура считывает значение из этой ячейки и отображает его в диалоговом окне. После этого в поле ввода следующего диалогового окна надо ввести какое-нибудь арифметическое выражение, например sin(l) ^2. Процедура вычислит значение этого выражения и отобразит в диалоговом окне:

Sub Два Примера ДляEvaluate ( ) '

' Ввод адреса ячейки '

Ячейка = InputBox ( "Введите имя ячейки") '

' Считывание значения из ячейки с указанным адресом '

Значение = Evaluate (Ячейка) .Value '

' Вывод считанного значения в диалоговое окно

'

MsgBox CStr (Значение) '

' Ввод в диалоговое окно формулы, например, sin(1)^2 '

Функция = InputBox ( "Введите функцию" ) '

' Вычисление значения по введенной формуле '

Значение = Evaluate (Функция)

' Вывод найденного значения в диалоговом окне '

MsgBox CStr (Значение) End Sub