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

Значить все наподобие Экзелевской функции БДСУММ()
пробовал dsum() в VBA ,но незнаю как правильно указать ему выбор по условию содержащие несколько критериев.
SumIf тоже не подошел так как там смог выбрать для условия только один критерий. Очень прошу помочь с этой задачой ,вроде простая ,но решить знаний не хватает ((
...
Рейтинг: 0 / 0
Как создать пользовательскую функцию с критерием?
    #33120828
pashulka.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если я правильно понял Ваши замыслы, то Вашу задачу можно решить с использованием формул массива, т.е. без применения VBA.
...
Рейтинг: 0 / 0
Как создать пользовательскую функцию с критерием?
    #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
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как создать пользовательскую функцию с критерием?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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