Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 16.08.2019
Сообщений: 1
1
Excel

Сделать цикл функции "Подбор параметра" на большое количество строк

16.08.2019, 10:39. Просмотров 726. Ответов 1


Здравствуйте.

У меня в excel на работе есть необходимость решить задачу с помощью функции "Подбор параметра". Эту функцию мне надо применить на большое количество строк, поэтому решил попробовать написать макрос, через "запись макроса". Итогом получился макрос на 1 строчку.
И вот теперь возникла основная сложность, как сделать так, чтобы данный подбор параметра выполнялся по каждой строчке, ну или как минимум на 10 тысяч строк.

Подскажите пожалуйста, возможно ли это осуществить? Как сделать цикл подбора параметра?

Пока у меня "так себе решение", я просто скопировал код для одной строчки 500 раз... Если делать больше, то макрос перестает работать. Да и в целом понимаю что это не правильно. Должен же быть более грамотный метод.

Заранее огромное спасибо за помощь!!

Ниже прикладываю свой код...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Перераспределение()
'
' Перераспределение Макрос
 
    Range("EE5").GoalSeek Goal:=Range("G5").Value, ChangingCell:=Range("A5")
    Range("EE6").GoalSeek Goal:=Range("G6").Value, ChangingCell:=Range("A6")
    Range("EE7").GoalSeek Goal:=Range("G7").Value, ChangingCell:=Range("A7")
    Range("EE8").GoalSeek Goal:=Range("G8").Value, ChangingCell:=Range("A8")
    Range("EE9").GoalSeek Goal:=Range("G9").Value, ChangingCell:=Range("A9")
    Range("EE10").GoalSeek Goal:=Range("G10").Value, ChangingCell:=Range("A10")
    Range("EE11").GoalSeek Goal:=Range("G11").Value, ChangingCell:=Range("A11")
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.08.2019, 10:39
Ответы с готовыми решениями:

Создать цикл Анализ "что если"-"Подбор параметра."
Добрый день. В excel на работе есть классическая задача, которая решается с помощью подбора...

Можно ли нажатием "кнопки" сделать некоторое количество копий листа "INVOICE"
Хотелось бы макрос так скажем в листе Алюминий буду добавлять данные, например новую строку добавил...

Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет
Запускаю с листа "l1" построчно работает, но мне нужно, чтобы заполнялись столбцы, начиная со...

Как сделать, чтобы kod= "=Find("","", R2C1, 1)"
Как следующий код Cells(1, 9).Select ActiveCell.FormulaR1C1 = '=Find('','', R2C1, 1)' kod =...

__________________
Помогаю в написании студенческих работ здесь.
1
Модератор
Эксперт MS Access
10023 / 4041 / 650
Регистрация: 07.08.2010
Сообщений: 11,338
Записей в блоге: 3
16.08.2019, 11:35 2
я бы возможно сделала так
Visual Basic
1
2
3
4
5
6
7
8
Sub Перераспределение190816()
'
dim j1,j1a
for j1=5 to 11
j1a=trim("" & j1)
Range("EE" & j1a).GoalSeek Goal:=Range("G" & j1a).Value, ChangingCell:=Range("A" & j1a)
next j1
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.08.2019, 11:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

[Tutorial] Поиск корней уравнения с использованием инструмента "Подбор параметра"
В этом разделе форума регулярно возникают темы о поиске корней уравнения с помощью Подбора...

Используя процедуры и функции обработки строк, составьте слово " воз", "дело", "следствие"
Дано слово "издательство" Используя процедуры и функции обработки строк, составьте слово " воз",...

я задал произвольный текст длинной 5 строк, и допустим что я ввел 5 раз букву "П" , какой цикл нужно создать чтобы пометять букву "П" на букву "Р" ?
я задал произвольный текст длинной 5 строк, и допустим что я ввел 5 раз букву "П" , какой цикл...

Как сделать, чтобы поле "Сумма заказа" вычислялось исходя из данных полей "количество" и "Цена"
Здравствуйте. Допустим имеется поля "Количество" и "Цена". Как сделать, чтобы поле "Сумма...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.