Цель Seek Macro с перемещением цели и Seek переменные

Question

У меня есть цель Seek Macro:

Sub GOALSEEK() 
    Range("K25").GOALSEEK Goal:=0, ChangingCell:=Range("K10") 
End Sub 

Это работает для 2015Q4, клетки K25 0%.

Я хочу адаптировать макрос для перемещения переменных Goal и Seek.

Подвижная цель будет храниться в C25 (0, 0,01, 0,05 и т.д.), а также перемещение Seek будет зависеть от C6 (Q2, Q3, Q4, который будет отображаться в I25, J25, K25, соответственно) ,

EDIT

После некоторого мастерить, я обнаружил, что движущаяся цель может быть реализована путем изменения Goal:=0 в Goal:=Range("Cell"):

Sub GOALSEEK() 
    Range("K25").GOALSEEK Goal:=Range("C25"), ChangingCell:=Range("K10") 
End Sub 

До сих пор не знаю, как сделать движение перемещения.

Answer 1

Поместите некоторую условную логику в свой код, как показано ниже, чтобы принять решение «на лету» на основе того, какой квартал введен в ячейку C6.

Sub GOALSEEK() 

Dim gseek, chngcell as Range 

If Range("C6") = "Q2" Then 
    Set gseek = Range("I25") 
    Set chngcell = Range("I10") 
Elseif Range("C6") = "Q3" Then 
    Set gseek = Range("J25") 
    Set chngcell = Range("J10") 
Elseif Range("C6") = "Q4" Then 
    Set gseek = Range("K25") 
    Set chngcell = Range("K10") 
End If 

gseek.GOALSEEK Goal:=Range("C25"), ChangingCell:=chngcell 

End Sub 

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

Answer 2

Вы можете попробовать следующий подход:

Определить новый именованный диапазон называют его, например SeekCell и Обращается Для ввода:

=INDEX($I$25:$K$25,1,MATCH("2015"&$C$6,$I$9:$K$9)) 

Определить новый именованный диапазон назвать его, например, ChangeCell и относится к введите:

=INDEX($I$10:$K$10,1,MATCH("2015"&$C$6,$I$9:$K$9)) 

Определить новый именованный диапазон называют его, например GoalCell и Обращается для ввода:

=$C$25 

При использовании кода VBA:

Range("SeekCell").GOALSEEK Goal:=Range("GoalCell"), ChangingCell:=Range("ChangeCell")