使用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(),"""")"