powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вычислить результат
6 сообщений из 6, страница 1 из 1
Как вычислить результат
    #34344966
Bnnnnn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Допустим, у меня есть строка, сформированная макросом
Stri ="Rng.Cells(1, 1).Value"

Rng это Range .
Как мне вычислить это значение .
Evaluate(stri) дает ошибку 2015.
...
Рейтинг: 0 / 0
Как вычислить результат
    #34344994
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Evaluate работатает только с формулами листа. Выражения VBA ей не по зубам.

А зачем такое вообще делать? Сформировать макрос из макроса возможно, ищи по форуму посты про VBProject, но в реальной жизни это почти никогда не нужно.
...
Рейтинг: 0 / 0
Как вычислить результат
    #34345029
Bnnnnnnnnnnn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужно получить список значений.
Первая ячейка Rng - Val1
Вторая ячейка Rng - Val1
Третья ячейка Rng - Val1
и т.д.
Rng получаю программно. Поэтому количество ячеек заранее неизвестно.
Как еще можно это вычислить ?
...
Рейтинг: 0 / 0
Как вычислить результат
    #34345115
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что-то запутано...
Sub test()
Dim MyValue As String
Dim MyAmount As Double
Dim MyRange As String

MyRange = "$A$1"
MyValue = Range(MyRange).Value

If IsNumeric(MyValue) Then
MyAmount = CDbl(MyValue)
End If

End Sub
...
Рейтинг: 0 / 0
Как вычислить результат
    #34345121
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vbaproчто-то запутано...
Sub test()
Dim MyValue As String
Dim MyAmount As Double
Dim MyRange As String

MyRange = "$A$1"
MyValue = Range(MyRange).Value

If IsNumeric(MyValue) Then
MyAmount = CDbl(MyValue)
End If

End Subв смысле, сформулировано запутанно, может это хотели?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub test()
Dim MyValue As String
Dim MyAmount As Double
Dim MyRange As String

    MyRange = "$A$1"
    MyValue = Range(MyRange).Value
    
    If IsNumeric(MyValue) Then
        MyAmount = CDbl(MyValue)
    End If
    
End Sub
...
Рейтинг: 0 / 0
Как вычислить результат
    #34345138
Bnnnnnnnnnnn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все. Отбой. Сам сделал. Хотел не это.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вычислить результат
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]