Excel VBA中的循环引用

我正在尝试编写一个简单的Excel VBA函数来从给定的单元格中获取一个数字，然后分配一个等级，然后将值写入当前活动单元格中。

Public Function Grade(rng As Range) Dim number As Double number = rng.Value If number >= 75 Then ActiveCell.Value = "A" ElseIf number >= 60 Then ActiveCell.Value = "B" ElseIf number >= 50 Then ActiveCell.Value = "C" ElseIf number >= 45 Then ActiveCell.Value = "D" ElseIf number < 45 Then ActiveCell.Value = "F" End If End Function 

在Excel中调用“= Grade（A2）”时，我得到错误消息有一个或多个循环引用，其中公式直接或间接引用其自己的单元格。

我错过了什么？

Answer 1

你不用function执行动作。 你不应该尝试修改单元格或任何东西。 （在您的代码中，每次重新计算函数时，都会修改您select的单元格。）

您只需要将该值设置为函数就好像它是一个variables。 代码完成后，它将函数的值返回给调用它的任何东西。 该函数可用于Excel公式和VBA中。

 Public Function Grade(rng As Range) Dim number As Double number = rng.Value If number >= 75 Then Grade = "A" ElseIf number >= 60 Then Grade = "B" ElseIf number >= 50 Then Grade = "C" ElseIf number >= 45 Then Grade = "D" ElseIf number < 45 Then Grade = "F" End If End Function 

Answer 2

Excel公式的替代scheme以防万一：

 =LookUp(A1,{0,45,50,60,75;"F","D","C","B","A"}) 

---

 =Char(71-Match(A1,{0,45,45,50,60,75})) 

---

 =Mid("FFFFFFFFDCCBBBAAAAAA",A1/5,1)