VBA Excel 目标在命名范围内寻找循环

Question

我正在尝试创建一个简单的目标搜索宏

我有一个命名范围 "Calc_Output"，它选择单元格 F5:M5 我有一个命名范围 "Calc_Input"，它选择单元格 F6:M6

现在我想要一个循环，其中包含目标搜索单元格 F6s 输入的循环，因此 F5s 输出为 0。然后重新运行目标搜索，以便对单元格 G6 和 F6 等执行相同操作。直到所有输出为 0。

我目前有：

Dim k As Integer

 For k = 1 To 8

Range("Calc_Output").Cells(1, k).GoalSeek Goal:=0, ChangingCell:=Range("Calc_Input").Cells(1, k)

 Next k

Answer 1

试试这个

Sub GoalSeekRange()

Dim rng1 As Range, rng2 As Range
Dim i as long

Set rng1 = Range("Calc_Input")
Set rng2 = Range("Calc_Output")

    For i = 1 To rng1.Count
        rng2.Cells(1, i).GoalSeek Goal:=0, ChangingCell:=rng1.Cells(1, i)
    Next
    
End Sub

VBA Excel 目标在命名范围内寻找循环

VBA Excel goal seek loop over named range

excel

vba

loops

named