Excel GoalSeek宏不起作用

Question

任何人都对如何修复此宏有任何建议。编译错误不断出现，突出显示偏移函数并说明未定义的子函数。

Worksheets("Testing").Range(Offset(K51, 0, C41)).GoalSeek _
Goal:=0, _
ChangingCell:=Worksheets("Testing").Range(L58)

Answer 1

您没有正确使用Offset功能。

  

来自MS网站https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-offset-property-excel

expression . Offset( RowOffset , ColumnOffset )

实施例

Worksheets("Sheet1").Activate 
ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate