вызов встроенной функции

Программирование на Visual Basic for Applications
toshik
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 31.10.2004 (Вс) 13:14
Откуда: Москва

вызов встроенной функции

Сообщение toshik » 31.10.2004 (Вс) 13:21

в программе нужно использовать встроенную функцию перевода из десятичной системы счисления в двоичную. название отыскалось, но не соображу, как ее в процедуре вызвать. ПОМОГИТЕ!!!

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 31.10.2004 (Вс) 17:10

Вообще - Microsoft Office\OfficeXX\funcs.xls
Конкеретно - DEC2BIN
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

toshik
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 31.10.2004 (Вс) 13:14
Откуда: Москва

Сообщение toshik » 31.10.2004 (Вс) 21:02

GSerg писал(а):Вообще - Microsoft Office\OfficeXX\funcs.xls
Конкеретно - DEC2BIN

Это я и так знаю... а вот как ее вызвать...? например: функция var вызывается через application.worksheetfunctions.var().
а с этой так не проходит - видно из-за того, что пакет дополнительный. выбрасывается сообщение, что-то типа "не подходящий объект". просто так через присваивание ее тоже не вызовешь.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 31.10.2004 (Вс) 21:31

b=application.run("Дес.в.дв",123)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 31.10.2004 (Вс) 23:11

И не забудь проверочку на ошибочки :).
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 31.10.2004 (Вс) 23:49

:salut:
Код: Выделить всё
dim b as string
err.clear
on error resume next
b=cstr(application.run("дес.в.дв",123))
on error goto 0
if err.number then msgbox "Пакет анализа не установлен!",vbcritical
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

toshik
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 31.10.2004 (Вс) 13:14
Откуда: Москва

Сообщение toshik » 02.11.2004 (Вт) 19:10

GSerg писал(а)::salut:
Код: Выделить всё
dim b as string
err.clear
on error resume next
b=cstr(application.run("дес.в.дв",123))
on error goto 0
if err.number then msgbox "Пакет анализа не установлен!",vbcritical

Моя глубокая благодарность!
а имя функции, которая числа в двоичной системе складывает, не подскажете?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.11.2004 (Вт) 20:05

В десятичную их. Потом складывать...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 85

    TopList