|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.04.2010, 06:12 | #1 |
Пользователь
Регистрация: 18.04.2010
Сообщений: 37
|
Пользовательская функция,возвращающая массив
Необходимо заменить каждое числовое значение диапазона произведением составляющих его цифр,а строковые значение оставить неизменными.
Option Base 1 Function mas(diap) Dim i As Integer Dim j As Integer n = diap.Rows.Count m = diap.Columns.Count c = 1 For i = 1 To m For j = 1 To n c = c * (diap(i, j) - (diap(i, j) \ 10) * 10)'определяет последнюю цифру Next j Next i mas = c End Function |
18.04.2010, 12:42 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.04.2010, 03:12 | #3 |
Пользователь
Регистрация: 18.04.2010
Сообщений: 37
|
спасибо большое за помощь!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Oracle. Функция возвращающая набор. | Stilet | SQL, базы данных | 4 | 04.03.2010 13:25 |
Функция возвращающая массив | babaj | Общие вопросы Delphi | 8 | 04.07.2009 17:40 |
Пользовательская функция с диапазоном в качестве параметра | SanSanblch | Microsoft Office Excel | 2 | 29.05.2009 17:37 |
Создание надстроек. Функция, возвращающая массив значений | Jarik | Microsoft Office Excel | 6 | 13.01.2009 23:11 |
Функция возвращающая строку(си++). | necky | Помощь студентам | 1 | 18.10.2008 18:32 |