VBA不输入Excel公式

Question

在过去的几个小时里，我一直被困在这个问题上，这让我发疯了。我正在尝试在单元格 B2 中输入此公式：

=IF(OR(C2="Yes",D2="Yes",E2="Yes",F2="Yes",G2="Yes",H2="Yes",I2="Yes"),"Yes",IF(AND(C2="No",D2="No",E2="No",F2="No",G2="No",H2="No",I2="No"),"No"))

公式工作正常，但通过 VBA 宏运行时没有公式输入到单元格中。

我录制了宏，复制并粘贴了输出，但单元格仍然是空白的。这是录音的输出：

Range("B2").Select
ActiveCell.FormulaR1C1 = _
    "=IF(OR(RC[1]=""Yes"",RC[2]=""Yes"",RC[3]=""Yes"",RC[4]=""Yes"",RC[5]=""Yes"",RC[6]=""Yes"",RC[7]=""Yes""),""Yes"",IF(AND(RC[1]=""No"",RC[2]=""No"",RC[3]=""No"",RC[4]=""No"",RC[5]=""No"",RC[6]=""No"",RC[7]=""No""),""No""))"

我也试过 Range("B2").Formula，没有成功。

有什么建议吗？谢谢！

Answer 1

如果引用的所有单元格都是空白的，您应该得到一个“错误”的结果。

你的 if 以 (OR(C2="是",D2="是",E2="是",F2="是",G2="是",H2="是",I2="是") 如果其中任何一个 = Yes，则返回 Yes

但是，它们是空白的，所以继续执行此操作 IF(AND(C2="No",D2="No",E2="No",F2="No",G2="No",H2="No",I2="No"),"No" )

它们仍然是空白的，并给出 FALSE - 如果您说所有单元格必须为“否”，则返回“否”

您可以在您正在使用的单元格周围发布数据吗？

Answer 2

您也可以使用这个公式 - 计算有多少是“是”，有多少是“否”。

=IF(COUNTIF($C$1:$I$1,"Yes")>=1,"Yes",IF(COUNTIF($C$1:$I$1,"No")=7,"No"))

如果有空白，或者不是 Yes 或 No 的值，您仍然会遇到问题。

如果 5 说 'Yes' 并且 1 说 'Bob' 它将返回 'Yes'，但是如果 6 说 'No' 并且 1 说 'Bob' 它将返回 FALSE。

你需要说明如果第二部分不是 TRUE 会发生什么：

=IF(OR(C2="Yes",D2="Yes",E2="Yes",F2="Yes",G2="Yes",H2="Yes",I2="Yes"),"Yes",IF(AND(C2="No",D2="No",E2="No",F2="No",G2="No",H2="No",I2="No"),"No",**"Neither Yes or No"**))

或

=IF(COUNTIF($C$1:$I$1,"Yes")>=1,"Yes",IF(COUNTIF($C$1:$I$1,"No")=7,"No","**Neither Yes or No**"))

或者正如@izzymo 所说——如果至少有一个是，则返回是，否则返回否：

=IF(COUNTIF($C$1:$I$1,"Yes")>=1,"Yes","No")

Answer 3

IF 语句包含 3 个部分：

• 条件
• “如果为真”
• “如果为假”。

您的第一个语句包含所有三个：

• 如果（一堆单元格中的任何一个为“是”）
• '是'
• 另一个IF声明^*

问题出在“另一个IF 声明”中，您有：

• 如果（一堆单元格为“否”）
• '否'
• 没什么...

IF(AND(C2="No",D2="No",E2="No",F2="No",G2="No",H2="No",I2="No"),"No", ???put a false condition here???)

^{* 或者，您可以按照评论中的izzymo 建议，将“另一个IF 语句”替换为“否”，并得到相同的结果}