2016-08-24 11 views
0

データの列と行をスキャンして空白のセルに数式を挿入できるマクロを作成しようとしています。私は、次のExcelの数式でこのタスクを完了することができています:Excel式からVBAコードへの変換

=IF(ISBLANK(W4),((IFERROR(DATEDIF(MAX($P4,DATE(2016,5,1)),MIN($Q4,DATE(2016,8,1)),"d"),0)/(DATEDIF(P4,Q4,"d")))*$T4),W4) 

私の質問があり、私は自動的にこの式を適用するマクロを実行できるように、私はVBAコードにこれを置くことができる方法はあり私のExcelシートの列は30行にまたがっていますか?したがって、次の行は次のように表示されます。

=IF(ISBLANK(W5),((IFERROR(DATEDIF(MAX($P5,DATE(2016,5,1)),MIN($Q5,DATE(2016,8,1)),"d"),0)/(DATEDIF(P5,Q5,"d")))*$T5),W5) 

ありがとうございました!

+0

表情をコピー&ペーストするときと同じExcelはセル参照を更新するの世話をする

Range("RangeToCopyFormulaTo").Formula = Range("CellToCopyFormulaFrom").Formula 

を、使用することができます –

答えて

2

あなたは/ Range.FormulaR1C1` `へ

関連する問題