Здорово! Работает!
Спасибо большое!!!

Не так просто...
Вносятся одновременно в несколько. Иногда вручную, иногда автоматически (например, при анализе чувствительности: данные/анализ "что если"/таблица данных).
Вот как раз для анализа чувствительности требуется автоматический запуск макроса. Так-то разово можно и запускать по кнопке его.

На самом деле в них тоже расчеты с ссылками на другие листы.

Добрый день! Наверное, не так:(
Запуск макроса будет осуществляться при любом изменении в документе?

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

Добрый день!

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

Такая запись не срабатывает (эксель "не видит", что значение изменилось):

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = Range("summ").Address Then
   macros
   End If
End Sub

Во вложении файл с примером. Пример упрощен, на самом деле расчет большой и сложный, но суть не меняется.

Как заставить эксель "увидеть"?

Спасибо!

Спасибо! Работает! Но пытаюсь сводной таблицей сделать, а не макросом. Это условие задания.

Спасибо. Изучаю. Не получается, если в 3-ем источнике порядок столбцов не совпадает с порядком у источников 1 и2. Они обязательно должны совпадать? В примере я сделала одинаковые, а в моем задании они разные. Сейчас попробовала изменить в этом примере - сводная не получилась по Способу 1 из ссылки

Добрый день!

Можно ли создать сводную таблицу из трех источников, если нет уникальных полей (пример во вложении)?
Нужно посчитать вес по продуктам по месяцам?
У меня офис 10, не получается. Какой офис нужен?

Спасибо большое! Буду изучать!

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

Суть поняла. Посмотрю сейчас, возможно ли это применить в моей финансово-экономической модели, где потоки гораздо сложнее и стоимость прибора участвует в расчете бОльшего количества показателей, плюс налоги. Но сейчас попробую составить систему уравнений, спасибо за идею, после отпуска свои отсутствуют))

"Нужно подобрать так, чтобы в I13 и в I23 одновременно было 0?" - да, получается так:)
"Предполагаю, в файле удалили строку, иначе не совсем понятно, что за значения имеются в виду в условии" - файл на самом деле другой, это просто упрощенный вариант, чтобы была понятна задача, цифры тоже из головы, поэтому у вас и получилось отрицательное значение.
В оригинале  все очень сложно и для данной задачи не нужно.
И при подборе такие значения у меня получились в моем расчете, но подбором очень сложно и не красиво

Стоимость	Ставка за   услуги	ЧДД
800   000	2 536	833 816
900   000	2 738	329 031
920   000	2 779	228 074
940   000	2 819	127 117
967 000	2 869	120
1   000 000	2 940	-175 754
1   200 000	3 344	-1 185 325

Компания ("Поставщик услуг") оказывает услуги "Потребителю услуг".
При этом "Поставщик услуг" несет затраты (инвестиции в приобретение приборов для оказания услуг и затраты на их эксплуатацию).
Стоимость услуг рассчитывается из условия безубыточности деятельности (чистый доход от оказания услуг=0, для упрощения в примере - без дисконтирования, суть проблемы не в этом).

Таким образом, Задача 1 - подобрать такую стоимость услуг, при которой чистый доход от оказания услуг=0.
Задача простейшая (можно макросом, можно просто использовать "подбор параметра").
Выручка = стоимость услуг, умноженная на объем услуг.

При этом прогнозируется суммарный чистый доход Поставщика услуг (в который входит выручка от оказания услуг, рассчитанная ранее).


А теперь задача усложняется. Нужно определить стоимость прибора, при которой суммарный чистый доход Поставщика=0.

Что-то мне кажется, что это невозможно выполнить средствами эксель:(
Или все-таки есть варианты??
Заранее спасибо!

Упрощенный пример потоков во вложении.

Работает отлично! Пошла добавлять остальные картинки (всего 24 должно быть)))

Согласна))) За код спасибо - пошла пробовать:)

Не прикрепился файл в прошлом сообщении

Спасибо за поддержку:)
Так мне и не надо переходить в конец процедуры же..
При Range("para_pr") = 1 (открытие второй карточки) - также надо скрыть кнопку, открыть картинку и потом сразу проверять: если картинки совпали (If Range("para_2") = "para_1_2"), то выходим без действия, а если нет - надо закрыть обе карточки и открыть обе кнопки и только после этого на выход.
Переделала код - разделила процедуры, теперь скрытие по доп.кнопке происходит, мне, конечно, так не нравится, хотелось бы, чтобы сразу: открыл 2 рисунок, проверил, если разные - через 10 сек закрыл обе картинки, открыл обе кнопкиа мне и не надо, чтобы выполнялось. При Range("para_pr") = 0 - это только если первая картинка открывается, а если вторая уже, то действия При Range("para_pr") = 1

Не очень понимаю, насколько принципиально писать в строчку или так, как Вы.

Часть макроса If Range("para_pr") = 0 выполняется корректно и в моем случае
А когда выбираешь вторую картинку (If Range("para_pr") = 1), то она не отображается, как будто понимает, что все равно придется скрывать:) глупость какая-то, не понимаю что за ерунда.

пишу
1 CommandButton1.Visible = False
2 Shapes("para_1_1").Visible = True
3 MsgBox ("!")

Сначала выполняется 3, а потом 1 и 2!!! почему??!!((( причем если запускать Debug, там все корректно

Если нажимать кнопки 13 и потом 1 с одинаковыми картинками - код работает корректно
Если нажимать кнопки  2 и потом 1 с разными - код работает некорректно

Спасибо, попробую

Если его не ставить, то перейдет к выполнению действий
CommandButton3.Visible = True
Shapes("para_2_1").Visible = False

а мне при первом нажатии (т.е. когда выбираешь первую картинку)  надо вообще закончить

Это начальный этап, потом все планировалось унифицировать и сократить, но не получается и на первом шаге:(

Сейчас выложу файл.  

Да, это я знаю

Странно, что если вместо паузы ставить MsgBox ("!"), то результат действий 1,2 все равно не виден:( хотя он выполняется (Debug показывает)

Обычно да. Если взять строчки 1,2 - все ок. Но потом мне надо выполнить действия 3.4. Например, через 15 сек. И пока не понимаю КАК сделать. Описанный выше способ перестает отображать действия 1,2

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

Добрый день!
2 вопроса:

1 вопрос: Как сделать так, чтобы был виден результат первых двух строк макроса по нажатию кнопки  CommandButton3 (что написать тут ***??):

1 CommandButton3.Visible = False
2 Shapes("pic_1").Visible = True

' ***
' Если пишу Application.Wait Time:=Now + TimeValue("0:00:10"), то пауза есть, но  действие строк 1-2 не видно на экране

3 CommandButton3.Visible = True
4 Shapes("pic_1").Visible = False

2 вопрос: как обратиться к кнопке, номер которой записан в ячейке?

range("A1")=CommandButton3 (или range("A1")=3, все равно, как проще)

Надо скрыть кнопку, о которой говориться в ячейке range("A1")

qqq= range("A1")
qqq.Visible = False

или

qqq= "CommandButton" & range("A1")
qqq.Visible = False

Не работает:(

Евгений, спасибо!
Буду пробовать! Я тоже любитель - для детей своих делаю игру:)

Евгений, добрый день!

Спасибо!

Так всё равно открывается окно с проигрывателем:

Shell "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe C:\2.mp3", 0

И так тоже (и с 0, и с 2). По умолчанию открывается медиаплеер VLC:

With CreateObject("WScript.Shell").Run "C:\Users\1.mp3", 0
End With

А этот (Windows Media Player) открывается в фоновом режиме
Shell "C:\Program Files (x86)\Windows Media Player\wmplayer.exe C\2.mp3", 0

Получается, все дело в самом проигрывателе???

И как теперь остановить воспроизведение??

Добрый вечер!

Много прочитала ответов на подобный вопрос, но все равно не получается.
Как скрыть проигрыватель, когда макросом запускаешь проигрывание песни?


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

Пишу и так:

CreateObject("WScript.Shell").Run "C:\Users\1.mp3"

И так:

'Set WshShell = CreateObject("WScript.Shell")
'RetCode = WshShell.Run("C:\Users\1.mp3", 1, False)

,Спасибо
Спасибо всем! ,  ,  С использованием всего того, что вы мне тут предложили, я сделала! Спасибооооо!!!!