Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вычислить результат / 6 сообщений из 6, страница 1 из 1
20.02.2007, 18:16:18
    #34344966
Bnnnnn
Bnnnnn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вычислить результат
Допустим, у меня есть строка, сформированная макросом
Stri ="Rng.Cells(1, 1).Value"

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

А зачем такое вообще делать? Сформировать макрос из макроса возможно, ищи по форуму посты про VBProject, но в реальной жизни это почти никогда не нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 18:44:07
    #34345029
Bnnnnnnnnnnn
Bnnnnnnnnnnn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вычислить результат
Нужно получить список значений.
Первая ячейка Rng - Val1
Вторая ячейка Rng - Val1
Третья ячейка Rng - Val1
и т.д.
Rng получаю программно. Поэтому количество ячеек заранее неизвестно.
Как еще можно это вычислить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 19:15:03
    #34345115
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2007, 19:16:22
    #34345121
vbapro
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
| Ответить | Цитировать | Написать  
20.02.2007, 19:25:33
    #34345138
Bnnnnnnnnnnn
Bnnnnnnnnnnn
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вычислить результат
Все. Отбой. Сам сделал. Хотел не это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как вычислить результат / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183407]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 72ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 225ms
total:  380ms
x
x
Закрыть


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