Access VBA код на 65 тыс. строк формулы вешают Excel

@Strecosa · Регистрация: 07.02.2016

Студворк — интернет-сервис помощи студентам

Добрый день!

Подскажите, пожалуйста, может ли кто-то помочь с кодом на VBA для Access? Ситуация следующая.

Есть база данных, она выгружается в Access 2010.
На основе этой базы делаются определенные вычисления, которые в итоговом варианте выдаются в виде сводной таблицы.
Исходные данные (база) и свод (результат) - в приложении Excel.
Выборка базы - урезанная, в полной выгрузке 65 тыс. строк.
В серых полях - дополнительные вычисления посредством формул.

Проблема в том, что на 65 тыс. строк формулы вешают Excel.
Вопрос - можно ли написать сразу в Access код VBA, чтобы все нужные формулы считались кодом?

Заранее спасибо!

@commun · 09.02.2016, 18:18

У меня 65 тыс не было, но Акс-импорт-перемещение по записям-экспорт. Тоже не мгновенно. Пусть секунды назовет, а то его сокращенная таблица работает нормально

@texnik-san · 09.02.2016, 18:19

corbis, вообще: кто из нас обнадеживал девушку, что в access "Разумеется можно" сделать то, что она хочет?

@corbis · 09.02.2016, 20:02

Да, что-то тему упустил. Извиняюсь.
Strecosa, будьте так любезны, изложите, что нужно посчитать в Access?
В Excel конечно подробно расписано, но вникать что, откуда и как должно работать, лениво.
И что там ещё кроме одной таблицы будет?

mobile · 09.02.2016, 20:25

Сообщение от alvk

Редкость.

Да хоть вообще один раз. Программирование почти единственный вид творчества, где разрешено все, что не запрещено.
Но тем не менее встречается нередко, хотя иногда в завуалированных формах. Так список городов печатают алфавитно, но столицы (Москва, Питер) впереди. Список сотрудников также алфавитно, но руководство вверху. И тому подобное. Под "номером строки" выступает или некий атрибут, или ручная сортировка при вводе в таблицу с каунтером. Что в общем-то одно и то же.

Сообщение от alvk

Но у ТС таблица фактов. А это совсем другое

Во! И это наверное правильно. Но где же это полезное наблюдение в саркастическом, даже ядовитом комменте? О типах таблиц там ничего, там принципиальное отвержение самой возможности. А она существует!
К тому же и сама texnik-san предлагала эту возможность для таблицы фактов как образец не очень осмысленного действия. За что ж ее пороть-то?

@commun · 09.02.2016, 20:50

Никто не отрицает, что сделать можно. Вопрос зачем? Файл долго открывается, тяжелый очень, или 65 тыс строк заполнять формулами рука отнимается?

shanemac51 · 09.02.2016, 21:08

попыталась расшифровать формулы --тяжелая это работа, как из болота тащить бегемота
правильность не гарантирую--только общее понмание расчета

Z	ОригинСцепка	IF(Y2<>"", CONCATENATE(Y2, I2, F2) , 0)	0	сцепить	Дебет_Ан2_имя Документ_основание Контрагент
AA	Кол-воНачисл	COUNTIFS(Z:Z, Z2, Z:Z, "<>0")	0	сосчитать количество	ОригинСцепка
AB	Доля для одного начисления	IF(AA2<>0, 1/AA2, 0)	0	если Кол-воНачисл<>0	1/ Кол-воНачисл
AC	Проект/документ	SUMIFS(AB:AB, I:I, I2)	0	суммі по Доля для одного начисления по Документ_основание
AD	Доля проекта в документе	IF(Z2=0, 0, X2/SUMIFS(X:X, I:I, I2, W:W, "Начисление") )	0	если ОригинСцепка<>0	Сумма_руб_знак Документ_основание Наименование_операции Начисление
AE	Повтор_ПрисвоенПроект	COUNTIFS($Z$2:$Z2, Z2, $Z$2:$Z2, "<>0")	0	сосчитать количество	по ОригинСцепка
AF	Документ для проекта	IF(AE2=1, I2, 0)	0	если количество=1	Документ_основание
AG	Присвоение проекта	IF(AND(Y2="", AC2=0) , "Аванс", IF(AND(Y2="", AC2>=1) , INDIRECT(AH2) , IF(Y2<>"", Y2, ) ) )	Аванс	если Дебет_Ан2_имя=0 и суммі_по_ Доля_для_одного=0	аванс
				если Дебет_Ан2_имя=0 и суммі_по_ Доля_для_одного>=1	технич. Адрес
				если Дебет_Ан2_имя<>0	Дебет_Ан2_имя
AH	технич. Адрес	IF(AND(Y2="", AC2=1) , ADDRESS(SUMPRODUCT ((($AF$2:$AF$88=I2) * ROW($AF$2:$AF$88) ) ) , 25) ,	0	если Дебет_Ан2_имя="" и суммі по Доля=1	Документ для проекта * строки
		IF(AND(Y2="", AC2>1) , IF(AND(LEFT(O2, 2) ="19", Y2="") , ADDRESS(SUMPRODUCT ((($M$2:$M$88=M2) * ($X$2:$X$88=X2/0.18) * ROW($X$2:$X$88) ) ) , 25) , "$AM$1") , 0) )		если Дебет_Ан2_имя="" и суммі по Доля>1 и левіе(Дебет_счет_номер)="19" и Дебет_Ан2_имя=""	строки (_Номер_операции) *( Сумма_руб_знак)


AI	Сумма_руб_распределено	IFERROR(IF(AC2>1, SUMIFS(X:X, I:I, I2, W:W, "Оплата") * AD2, 0) , 0)	0	если ошибка(если суммі по Доля для одного>0	сумма (Сумма_руб_знак) по (Документ_основание) (Наименование операции) оплата * (Доля проекта в документе)
AJ	СуммаНачисления, руб	IF(W2="Начисление", X2, 0)	0	если Наименование_операции =начисления	Сумма_руб_знак
AK	СуммаОплаты, руб	IF(AND(W2="Начисление", AI2<>0) , AI2, IF(W2="Оплата", X2, 0) )	-105	если Наименование_операции =начисления и Сумма_руб_распределено<>0	Сумма_руб_распределено<>0
				если Наименование_операции =оплата	Сумма_руб_знак
AL
AM	Распределено
AN

@alvk · 10.02.2016, 04:03

Сообщение от mobile

О типах таблиц там ничего, там принципиальное отвержение самой возможности. А она существует!

Да существует, но я решил не загружать ненужной информацией начинающего программиста.

Сообщение от mobile

За что ж ее пороть-то?

Где я писал "пороть" ? Хотя это мысль

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	09.02.2016, 18:18
	У меня 65 тыс не было, но Акс-импорт-перемещение по записям-экспорт. Тоже не мгновенно. Пусть секунды назовет, а то его сокращенная таблица работает нормально 0

@texnik-san шапоклякистка 8-го дня 3681 / 2241 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	09.02.2016, 18:19
	corbis, вообще: кто из нас обнадеживал девушку, что в access "Разумеется можно" сделать то, что она хочет? 0

@corbis 547 / 274 / 50 Регистрация: 03.04.2015 Сообщений: 926
	09.02.2016, 20:02
	Да, что-то тему упустил. Извиняюсь. Strecosa, будьте так любезны, изложите, что нужно посчитать в Access? В Excel конечно подробно расписано, но вникать что, откуда и как должно работать, лениво. И что там ещё кроме одной таблицы будет? 0

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	09.02.2016, 20:50
	Никто не отрицает, что сделать можно. Вопрос зачем? Файл долго открывается, тяжелый очень, или 65 тыс строк заполнять формулами рука отнимается? 0