VBA抵消匹配不起作用
我试图运行一个目标寻求设置一个特定的单元格等于零通过更改另一个Excel中的单元格与VBA。
我想设置为零的单元格更改位置,所以我需要使用我认为的匹配偏移量组合。
当我运行代码时,出现编译错误无效限定符。 有任何想法吗?
谢谢。
Private Sub CommandButton1_Click() Dim x As Integer x = Application.WorksheetFunction.match("G3", Range("I6:SF6"), 0).Value Range("I199").Offset(0, x.Value).GoalSeek Goal:=0, ChangingCell:=Range("GN197") End Sub
尝试更换:
"G3"
有:
Range("G3")
尝试使用命名范围,而不是使用Range引用。 这样,即使添加了行或列,您命名的范围仍然可用。
根据官方文档 , WorksheetFunction.Match
的返回值是Double
。 所以你可能没有Value
可用。 尝试删除它。
PS:我没有用Excel来testing这个系统。
PS2:您没有指出产生错误的行。