无效的限定符 VBA

Question

我想为一个单元格设置一个变量，以便以后能够引用该单元格。

所以我将单元格 D2 设置为一个字符串，其值为“medium”一词。我目前正在这样做并且它有效：

ActiveCell.Offset(0, 1).Value = Round(Application.Max(Range([D2].Offset(1, 0), [D2].Offset(2, 0))) / 1000, 2)

但不是使用 [D2]，因为我想在我的代码中运行 For 循环多次执行此操作，我想说：

LoadCase = [D2]
LoadCaseNeg = [D2].offset(8,0)
ActiveCell.Offset(0, 1).Value = Round(Application.Max(Range(LoadCase.Offset(1, 0), LoadCaseNeg.Offset(1, 0))) / 1000, 2)

但是这不起作用并给我一个 invalid qualifier 错误， 我是 VBA 新手，有没有更好的方法来做到这一点？

Answer 1

使用Range 变量：

Dim LoadCase As Range
Set LoadCase = Range("D2")

您同样需要将Set 用于LoadCaseNeg（也应声明为范围变量）：

Set LoadCaseNeg = LoadCase.offset(8,0)

[D2] 是一种引用单元格中包含的 值 的方法，而不是单元格本身。您也可以将该值称为Range("D2").Value 或LoadCase.Value（一旦设置了变量）。方括号符号在 VBA 代码中并不经常使用，因为它不是很灵活。

任何有关 Excel VBA 的基本书籍/教程都应说明如何使用范围变量。它们是 Excel VBA 编程的主力。