使用VBA将公式插入单元格？

Question

我想使用vba将公式插入到单元格中。此公式需要引用activecell.row范围或动态引用。

我使用下面的VBA代码：

Range("P" & ActiveCell.Row).Formula = "=IF(OR(G & ActiveCell.Row <>"",""H"" & ActiveCell.Row <>"",""I"" & ActiveCell.Row <>"",""J"" & ActiveCell.Row <>"",""M"" & ActiveCell.Row <>""),TODAY(),"")" 

我得到一个应用程序定义或对象定义的错误。请有人能告诉我我要去哪里？提前致谢。

Answer 1

我认为问题是用双引号。您有：

...).Formula = "=IF(OR(G & ActiveCell.Row <>"",""H"" & ActiveCell..." 

虽然它应该是：

...).Formula = "=IF(OR(G & ActiveCell.Row <>"""",""""H"""" & ActiveCell..." 

记住：在一个字符串包围在 - “ - 字符的字符串中相同字符的任何外观必须加倍

虽然没有检查，但我确信这是一个错误（也许不是错误）。

Answer 2

假设你想要的是这个公式：

=IF(OR(G1<>"",H1<>"",I1<>"",J1<>"",M1<>""),TODAY(),"") 

试试这个

Range("P" & ActiveCell.Row).Formula = "=IF(OR(G" & ActiveCell.Row & "<>"""",H" & ActiveCell.Row & "<>"""",I" & ActiveCell.Row & "<>"""",J" & ActiveCell.Row & "<>"""",M" & ActiveCell.Row & "<>""""),TODAY(),"""")" 

Answer 3

我会使用R1C1符号和CountA()简化位

Range("P" & ActiveCell.row).FormulaR1C1 = "=if(counta(RC7:RC10,RC13)>0,Today(),"""")"