VBA中If函数实现疑问：WorksheetFunction/Formula/R1C1该选哪种？

嗨，刚首次发帖完全不用拘谨～我来帮你拆解下这两段代码的问题，以及给出正确的写法：

为什么你的两种写法会出错？ #

第一种写法的问题 #

ActiveCell.Value = Application.WorksheetFunction.If(ActiveCell.Offset(0, 2)> 0, "RECEIVES", "PAYS")

错误438的原因很简单：Excel的工作表函数IF在VBA的WorksheetFunction对象里并没有对应的方法，而且If本身是VBA的关键字，不能这么调用。VBA里要实现类似的三元判断，应该用内置的IIf函数（注意是大写字母I开头）。

第二种写法的问题 #

ActiveCell.Formula = "= If(ActiveCell.Offset(0, 2) > 0, ""RECEIVES"", ""PAYS"")"

这里有两个核心问题：

1. 工作表公式里不能直接用VBA的对象（比如ActiveCell.Offset），Excel无法识别这种VBA语法，所以会显示#NAME?错误；
2. 虽然你用""转义双引号的写法是对的，但变量部分必须换成Excel能识别的单元格引用（比如C1这种地址）。

正确的写法示例 #

写法1：用VBA内置的IIf直接赋值单元格值 #

如果只想给当前单元格设置结果文本，不需要保留公式，可以这么写：

ActiveCell.Value = IIf(ActiveCell.Offset(0, 2).Value > 0, "RECEIVES", "PAYS")

或者用更清晰的VBAIf语句（推荐，可读性更强）：

If ActiveCell.Offset(0, 2).Value > 0 Then
    ActiveCell.Value = "RECEIVES"
Else
    ActiveCell.Value = "PAYS"
End If

写法2：给单元格设置正常的Excel公式 #

如果希望单元格保留公式（方便后续联动更新），需要把VBA里的单元格对象转换成Excel能识别的地址，用Address方法实现：

ActiveCell.Formula = "=IF(" & ActiveCell.Offset(0, 2).Address & ">0,""RECEIVES"",""PAYS"")"

这段代码会给当前单元格生成类似=IF(C1>0,"RECEIVES","PAYS")的公式（假设当前单元格是A1），完全符合Excel的公式语法，不会再出现错误。

内容的提问来源于stack exchange，提问作者luschan