在 VBA 中使用 IF 公式
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/24395900/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
提示：将鼠标放在中文语句上可以显示对应的英文。显示中英文
时间：2020-09-08 18:23:30 来源:igfitidea点击:
Using IF formula in VBA
提问by user3727316
I was just wondering how I could use an IF formula in VBA. This is the formula that I currently have, but it is giving me the error.."End of Statement"
我只是想知道如何在 VBA 中使用 IF 公式。这是我目前拥有的公式，但它给了我错误..“语句结束”
Range("a10").Select
Selection.End(xlDown).Select
lastrow = ActiveCell.Row
For i = 10 To lastrow
Sheets("20140618 Loans").Range("Z" & i).Formula = _
"=IF(ABS("Y" & i)>400,""CHECK"","""")"
Any ideas? Thanks.
有任何想法吗？谢谢。
回答by Rhys
Range("a10").Select
Selection.End(xlDown).Select
lastrow = ActiveCell.Row
For i = 10 To lastrow
Sheets("20140618 Loans").Range("Z" & i).FormulaR1C1 = "=IF(ABS(R1C" & i &")>400,""CHECK"","""")"
回答by DJ.
so you need to do:
所以你需要做：
Sheets("20140618 Loans").Range("Z" & i).Formula = _
"=IF(ABS(Y" & i & ")>400,""CHECK"","""")"
