VBA目标查找故障

Question

在VBA中使用goalseek来查找我在期末考试中获得A所需的分数。当前使用：

Function AFinalGrade(SetExamLocation As Range, SetGradeLocation As Range)
ExamLocation = SetExamLocation.Address
GradeLocation = SetGradeLocation.Address
AFinalGrade = Range(GradeLocation).GoalSeek Goal:=.9, ChangingCell=:Range(ExamLocation))
End Function

每当我尝试运行这个程序时，我都会得到一条语法错误语句。如有任何帮助，我们将不胜感激。

Answer 1

Range(Cells(14, (i * 3) + 22).Address).GoalSeek Goal:=A, ChangingCell:=Range(Cells(8, (i * 3) + 21).Address)