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

내가 조금에게 내가이 제안을 시도

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