Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как создать пользовательскую функцию с критерием? / 3 сообщений из 3, страница 1 из 1
09.06.2005, 22:32:02
    #33110652
Brother
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать пользовательскую функцию с критерием?
Прошу помочь всех знающих!
Как мне создать функцию следущего содержанья
БД- База данных в которой по заданному условию будет проходить операция
Имя - Одно из полей условия
Заказ - Одно из полей условия
Код - Одно из полей условия

Значить все наподобие Экзелевской функции БДСУММ()
пробовал dsum() в VBA ,но незнаю как правильно указать ему выбор по условию содержащие несколько критериев.
SumIf тоже не подошел так как там смог выбрать для условия только один критерий. Очень прошу помочь с этой задачой ,вроде простая ,но решить знаний не хватает ((
...
Рейтинг: 0 / 0
17.06.2005, 08:17:50
    #33120828
pashulka.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать пользовательскую функцию с критерием?
Если я правильно понял Ваши замыслы, то Вашу задачу можно решить с использованием формул массива, т.е. без применения VBA.
...
Рейтинг: 0 / 0
21.06.2005, 19:20:51
    #33127655
Utkin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать пользовательскую функцию с критерием?
Function assa (iRange as Range) as Integer
Dim TempRange as Range
Dim intPos as Integer
Dim intMax as Integer
intMax = Range.Rows.Count
For intPos = 1 to intMav
'Одномерный массив
Set TempRange = iRange.Rows(intPos)
With TempRange
'Проверка условий
if .Columns(1) = "Вова" And .Columns(2) > 2 then
'Суммирование или че там еще
assa = assa + .Columns(3)
End If
End With
Next intPos
End Function
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как создать пользовательскую функцию с критерием? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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