Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » propulsion
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Solver VBA, Подбор значения
 
#
10.01.2023 13:35:18
Здравствуйте!

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

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

Нужно изменить ячейку G5, так, чтобы G5-I5 было 200. И так по всему листу.

Пишу такой макрос, но понимаю, что не то.
Код
Sub price()
Dim i&
For i = 5 To 10
    SolverOk SetCell:="G", MaxMinVal:=3, ValueOf:="200", ByChange:="D"
    SolverSolve True
Next i
End Sub
 
Перейти    
Создать папку с подпапками для каждого файла
 
#
22.06.2021 17:45:39
Нет, к сожалению, run-time error '76'.
В интернете для этого рекомендуют WinAPI-функцию SHCreateDirectoryEx, а MkDir, пишут, сразу подпапки не создаёт, только в несколько этапов.
Изменено: vikttur - 22.06.2021 17:46:51
 
Перейти    
Создать папку с подпапками для каждого файла
 
#
22.06.2021 17:32:13
не нужно копировать, тем более когда  цитата не нужна [МОДЕРАТОР]

Нет, к сожалению, ошибка 1004.
Изменено: vikttur - 22.06.2021 17:46:23
 
Перейти    
Создать папку с подпапками для каждого файла
 
#
22.06.2021 17:01:33
Здравствуйте! Помогите решить задачу с помощью макроса. Задача: создать папку с именем файла, подпапкой "photo" и переместить в нее сам файл. Так для каждого файла. Прикрепляю рабочий вариант с форума, делает всё, кроме создания подпапки. Спасибо!
Изменено: vikttur - 22.06.2021 17:31:32
 
Перейти    
Массовый подбор значений с помощью VBA
 
#
16.01.2021 14:51:38
Работает!
vikttur, спасибо Вам огромное!
 
Перейти    
Массовый подбор значений с помощью VBA
 
#
16.01.2021 14:23:23
Прошу прощения.
Переоценил свои возможности, надеялся, что сходу разберусь )
 
Перейти    
Массовый подбор значений с помощью VBA
 
#
16.01.2021 10:14:23
Здравствуйте!

Нужен подбор значения в автоматическом режиме.
Нашёл здесь макрос для одной ячейки. Нужно посчитать весь столбик.
Код
Sub T1()
    X = Range("A10")
    Range("B10").GoalSeek Goal:=X, ChangingCell:=Range("A10")
End Sub
Ячейка B10:
Код
=ЕСЛИ(J10="Продается";(A10-O10-C10)-R10*(L10/100);"не продается")

Работает так:
В ячейку B10 я ввожу своё значение, к которому стремлюсь. А в ячейке A10 появляется значение которое для этого нужно.
 
Перейти    
Страницы: 1
Наверх