Страницы: 1
RSS
Сравнение динамичных сценариев между собой
 
Коллеги, всем привет!

Подскажите, пожалуйста формулу или макрос, где можно сравнить итоговые результаты и отдельные компоненты разных сценариев между собой.

К примеру в текущей ситуации при выборе "сценария 1" значения показываются исключительно по данному сценарию:
ЦенаКол-воФин.рез
Сценарий 11002050
Сценарий 2---
Сценарий 3---
Сценарий 4---
Сценарий 5---
Сценарий 6---
Сценарий 7---
Сценарий 8---

А хотелось бы сделать так:
ЦенаКол-воФин.рез
Сценарий 11002050
Сценарий 250022
Сценарий 3800158
Сценарий 41222180
Сценарий 58483580
Сценарий 6985430
Сценарий 75411210
Сценарий 85121240

К сожалению простым "copy paste" это не исправить так как в модель заложены разные параметры и необходимо их изменять, чтобы смотреть на результаты с учетом изменяемых параметров.

Подобные сценарии создавались не через диспетчер сценариев, а через формулы "IF" (также и формулы в модели зашиты через "IF").

Спасибо, буду очень признателен за любую помощь!  
Изменено: twipll - 28.02.2024 22:17:55 (Добавил файл с примером)
 
Здравствуйте.
Предполагаю,что без файла вряд ли кто вам подскажет.
 
подсказываю
макрос, который в цикле меняет сценарий, результат расчета копирует и продолжает.
По вопросам из тем форума, личку не читаю.
 
Коллеги, файл приложил. Не совсем понял про макрос, можете, пожалуйста, чуть подробнее объяснить?
Изменено: БМВ - 28.02.2024 23:04:27
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e4:j6")) Is Nothing Then
Application.ScreenUpdating = False
s = Range("n10")
Application.EnableEvents = False
For I = 1 To 5
Application.EnableEvents = False
Range("n10") = I
Application.Calculate
Range("E28:E30").Offset(, I - 1).Value = Range("E28:E30").Offset(-5, I - 1).Value
Next I
Application.EnableEvents = True
Range("n10") = s
Application.ScreenUpdating = True
End If
End Sub
Изменено: БМВ - 28.02.2024 23:04:00
По вопросам из тем форума, личку не читаю.
 
Спасибо большое!
Страницы: 1
Наверх