如何用VBA把带多个双引号的公式输入到单元格里？

makelot

比如如何用VBA把公式 =IF(COUNTIF(B2:C3,"<0")>0,"NO","OK") 输入到A1单元格里？多谢！

向東

[A1].Formula="=IF(COUNTIF(Range(""B2:C3""),""<0"")>0,""NO"",""OK"")"

makelot

向東 发表于 2018-9-12 23:46
[A1].Formula="=IF(COUNTIF(Range(""B2:C3""),""0,""NO"",""OK"")"

多谢，试了一下还是不行，好像工作表函数不认Range，但是认Range.Address
不过我还是搞不定，还得请您指点，非常感谢！

lsc900707

makelot 发表于 2018-9-13 00:40
多谢，试了一下还是不行，好像工作表函数不认Range，但是认Range.Address
不过我还是搞不定，还得请您指 ...

用vba的话尽量不要用函数公式了。

makelot

lsc900707 发表于 2018-9-13 06:51
用vba的话尽量不要用函数公式了。

实际工作碰到的问题，觉得还是公式方便。
但是手工填写的话，由于代码限制运行时该单元格会被清空。纯VBA的话又要编写循环，很麻烦。
觉得还是用VBA操控Excel公式来的简单，一行解决问题。
这个问题比较典型，也比较实用，故发出来求助，多谢！

向東

makelot 发表于 2018-9-13 00:40
多谢，试了一下还是不行，好像工作表函数不认Range，但是认Range.Address
不过我还是搞不定，还得请您指 ...

1. [A1].Formula="=IF(COUNTIF(B2:C3,""0,""NO"",""OK"")"

复制代码

不好意思，这样应该就可以了

makelot

向東 发表于 2018-9-13 08:58
不好意思，这样应该就可以了

谢谢，试了一下还是不行，无论如何，非常感谢！

makelot

[A1].Formula = "=IF(COUNTIF(" & "B2:C3" & "," & """"<0"""" & ")>0," & """"NO"""",""""OK"""" & ")"
我试了很多句，这是其中之一，最终还是无法搞定，唉！
不知错在哪里，望高手帮助！

lsdongjh

用chr(34) 输入

1. Sub Test()
   
2.     Dim strFormula As String
   
3.     strFormula = "=IF(COUNTIF(B2:C3," & Chr(34) & "<0" & Chr(34) & ")>0," & Chr(34) & "NO" & Chr(34) & "," & Chr(34) & "OK" & Chr(34) & ")"
   
4.     [A1].Formula = strFormula
   
5. End Sub

复制代码

chxw68

1.   Range("a1").Formula = "=IF(COUNTIF(B2:C3,""<0"")>0,""NO"",""OK"")"
   

复制代码