RusFAQ.ru: Программирование на Basic / VBA
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на Basic / VBA
Выпуск № 061
от 15.05.2003, 09:10
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 104 Отправлено ответов: 123 Активность: 118.2 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| USA-Lesh Статус: Начальный Общий рейтинг: 166.66 [Подробней >>] |
baldr Статус: Профессиональный Общий рейтинг: 112.53 URL: Сайт об ОС DOS. Всем, кто любит эту ОС! [Подробней >>] |
Invisible Man Статус: Начальный Общий рейтинг: 113.88 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 102. Хочу добится того, чтобы результат вычисления функции (AК) в VBA Ezel 2002 записывался в адрес (ячей... (ответов: 3)
Вопросов: 1, ответов: 3
| Вопрос № 102 |
Хочу добится того, чтобы результат вычисления функции (AК) в VBA Ezel 2002 записывался в адрес (ячейку) указанную в описании этой функции (переменная Ade)
Приложение:
Вопрос отправлен: 12.05.2003, 09:01
Отправитель: Дмитрий
[Следующий вопрос >>] [Список вопросов]
Отвечает USA-Lesh
Добрый день, Дмитрий!
function Ak (Byval AK1 as Single, ByRef Ade As Range) As Single
AK = Ak1 * 30.1
Ade.Value = AK
end function
Если функция применяется в макросах, то ее можно расположить где угодно. Если как функция в ячейке рабочего листа - ее надо разместить в програмном модуле.
Ответ отправлен: 13.05.2003, 00:42
Отправитель: USA-Lesh
Отвечает baldr
Приветствую Вас, Дмитрий!
Типа объясни ЧТО мы тебе не так советовали в прошлый раз?
:(
Ответ отправлен: 12.05.2003, 19:00
Отправитель: baldr
Отвечает Invisible Man
Приветствую Вас, Дмитрий!
Извините, в прошлый раз я недопонял вопрос...
Хотелось бы знать, что вы собирались присвоить переменной Ade... Максимум что может содержать Ade в данном случае - это номер строки и столбца ячейки...но...
...куда проще по моему описать в функции ещё одну, третью переменную, в одной бы содержалась срока ячейки, в другой бы - столбец...Можно конечно и через одну Ade...только дольше будет...
'Через 2 переменные, строка и столбец в отдельных переменных.
Function Ak(AK1, STR, ST)
Ak = AK1 * 30.1
Cells(STR, ST) = Ak
End Function
'строка и столбец находятся в переменной Ade и разделяются запятой.
Function Ak(Ak1, Ade)
Dim STR As Variant
Dim ST As Variant
Ak = Ak1 * 30.1
Do
i = i + 1
STR = STR & Mid(Ade, i, 1)
STR = Val(STR)
Loop Until Mid(Ade, i, 1) = ","
i = 0
Do
ST = ST & Mid(Ade, Len(Ade) - i, 1)
ST = Val(ST)
i = i + 1
Loop Until Mid(Ade, Len(Ade) - i, 1) = ","
Cells(STR, ST) = Ak
End Function
Приложение:
Ответ отправлен: 12.05.2003, 21:40
Отправитель: Invisible Man
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (40) C / C++ (31) Perl (4) Builder / Delphi (16) Pascal (30) Basic / VBA (12) Java / JavaScript (11) PHP (5) MySQL / MSSQL (4) |
Пользователю Windows 95/98/Me (41) Windows NT/2000/XP (30) "Железо" (29) Поиск информации (14) |
Администратору Windows NT/2000/XP (18) Linux / Unix (9) |
Юристу Гражданское право (7) Семейное право (4) Трудовое право (5) КоАП (4) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
| © 2003 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
