Массив с вариантами уравнений(формул)

[chutnesdoh]

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

Итак, имеются несколько переменных значений(чисел), которые можно вставить в уравнение и найти x
Например:
a = 1
b = 2
c = 3
d = 4
x = a+b+c+d = 1+2+3+4 = 10

Тот же x можно найти и таким уравнением:
x = a*b*c+d = 1*2*3+4 = 10

1. Задача забить массив вариантами(или определённым числом вариантов) уравнений
для известных переменных после того, когда x найден для первого уравнения.

Ведь проблема в том(например), что при:
a = 4
b = 3
c = 2
d = 1
x = a+b+c+d = 4+3+2+1 = 10

Тот же x нельзя найти таким уравнением:
x = a*b*c+d = 4*3*2+1 = 25

2. Забить другой массив вариантами уравнений для других значений переменных.


3. Найти моду или наиболее часто встречающееся уравнение из списка массивов.

[СтаниславАВ]

Добрый день. Может кто из знатоков подскажет, как мне ускорить работу макроса.
Имеются три таблицы на разных листах.
Из двух таблиц данные подтягиваются в основную, а из основной обратно в оставшиеся две.
Основная таблица A13:BX6000
Столбцу E13:E6000 присвоил имя "Smeta_mat_volume" и считаю:
With Range("Smeta_mat_volume")
.Formula = "=IF(AND(RC[16]=""да"",OR(RC[70]=R4C22,R4C22=R20C[73])),ROUNDUP(RC[10]*RC[11],0),0)*IF(INDEX(Smeta_contractor_al l_works,MATCH(Smeta_contractor_fini sh,Smeta_all_contractor,0),MATCH(RC 76,Smeta_contractor_works,0))=""да" ",1,0)"
.Calculate
.Value = .Value
End With
Столбцу F13:F6000 присвоил имя "Smeta_mat_price" и считаю:
With Range("Smeta_mat_price")
.Formula = "=SUMIFS(Materials_price,Materials_ name,RC[-3])"
.Calculate
.Value = .Value
End With
Столбец имеющий имя Materials_price с другого листа
Необходимо диапазону дать имя, скопировать в массив и из этого массива брать данные только из 3 столбца
Столбец имеющий имя Materials_name с третьего листа
Необходимо диапазону дать имя, скопировать в массив и из этого массива брать данные только из 4 столбца

Столбцу G13:G6000 присвоил имя "Smeta_mat_summa" и считаю:
With Range("Smeta_mat_summa")
.Formula = "=ROUND(RC[-2]*RC[-1],2)"
.Calculate
.Value = .Value
End With

Это все занимает очень много времени

Хотел бы таблице A13:BX6000 дать имя, скопировать данные в массив
Расчеты произвести в нем и выгрузить на лист только нужную информацию.

[Serge_Bliznykov]

СтаниславАВ, простите, а какое отношение ваш пост имеет к данной теме? К сообщению из пост #1?

[СтаниславАВ]

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

СтаниславАВ, простите, а какое отношение ваш пост имеет к данной теме? К сообщению из пост #1?

У меня тоже Массив с вариантами уравнений(формул)

[Serge_Bliznykov]

Сообщение от СтаниславАВ

У меня тоже Массив с вариантами уравнений(формул)

возможно.
Только непонятно, кому в данной теме теперь будут отвечать - Вам или ТС..

[СтаниславАВ]

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

возможно.
Только непонятно, кому в данной теме теперь будут отвечать - Вам или ТС..

Там с марта 2018 ни кто не ответил. Может мне ответят )))

[IgorGO]

СтаниславАВ,
вопрос описан лаконично и доступно и показался кому-то интересным - обязательно ответят
вопрос написан "лишь бы как" и вообще не понятен никому, кроме автора, наивно ждать на него вала ответов и даже обсуждения (уточнений сути вопроса)
темы, где автор просто поленился описать задачу корректно, а еще хуже не понимает, что его описание никто не поймет я просто обхожу сторонй.
не знаю какими соображениями руководствуются другие, а у меня обычно возникает такая мысль:
ему облом описать свою задачу! зачем мне парится и выспрашивать, а что, собственно, тут нужно решить?

[СтаниславАВ]

Я диапазону A13:BX6000 присвоил имя "Smeta"
Далее заношу её в массив
VB_Smeta = Range("Smeta").Value
В 5 столбце массива мне надо рассчитать формулу
=IF(AND(RC[16]=""да"",OR(RC[70]=R4C22,R4C22=R20C[73])),ROUNDUP(RC[10]*RC[11],0),0)*IF(INDEX(Smeta_contractor_al l_works,MATCH(Smeta_contractor_fini sh,Smeta_all_contractor,0),MATCH(RC 76,Smeta_contractor_works,0))=""да" ",1,0)
На этом возникает затык, как можно прописать.
Спасибо.

[Казанский]

Сообщение от СтаниславАВ

Столбцу E13:E6000 присвоил имя "Smeta_mat_volume" и считаю

В таблице действительно заняты все ~6000 строк? можно ограничить расчеты фактически занятыми диапазонами.
Вам не кажется, что чтобы что-либо делать с вашим кодом, нужен файл со всеми именами листов и диапазонов, и с примерными данными? 6000 строк, разумеется, не нужно, но должны быть данные и которые находятся, и которые не находятся.

[СтаниславАВ]

Файл не проблема. Разбираться в нем не просто. Макрос с именем Smeta