日付の範囲のVBAのNetworkdays

Question

私は開始日と終了日の完全な2つの列をチェックし、日付の間の対応する就業日で第3列を塗りつぶすVBAでいくつかのコードを実行しようとしています。

For i = 2 To N 
Cells(i, F) = Application.networkdays(C, D) 

Next i 

上記は私がすでに試したものです。私はこのケースでNが何であるかはわかりませんが、基本的にはインポートされたデータの終わりを見つける関数です。私はアプリケーション定義エラーを取得します。アプリケーションを削除した場合。それはnetworkdaysが定義されたサブまたは機能ではないと言います。

For i = 2 To 50 
Cells(i, "F") = Application.networkdays("C", "D") 
Next i 

私はその上に実行する場合、私は0

の完全な列を取得上に私が実行した場合、＃VALUE（50 Nのための一例である）

For i = 2 To 50 
Cells(i, "F") = Application.networkdays(C, D) 
Next i 

と第3列を移入

これを動作させるにはどうすればよいですか？それは非常にシンプルだが、VBAはすべてのことを不可能にするようにプログラムされているようだ！ Excel 2013、2010、および2016で同じ問題

Answer 1

数式で行ごとに移動する必要があります。

Cells(i, "F") = Application.networkdays(Cells(i, "C"), Cells(i, "D"))