|
どうもありがとうございました。
さらにお聞きしたいのですが、算出した日数から休日(たとえば土日、祝日、長期休暇)を除いて実際にかかった日数を出すにはどうしたらいいのでしょうか。
(ここで稼働日カレンダーが出てきます。)
下記のように書いてみたんですが「0」が入るだけなのです・・・
i = 2
Do Until Worksheets("data").Cells(i, 1).Value = ""
A = Worksheets("data").Cells(i, 2).Value '受注日
B = Worksheets("data").Cells(i, 3).Value '到着日
C = Worksheets("data").Cells(i, 4).Value '納品日
TTL = 0
SW = "ON"
n = 2
Do Until SW = "OFF" Or WD = ""
WD = Worksheets("稼働日").Cells(n, 1).Value
WDF = Worksheets("稼働日").Cells(n, 2).Value
If WD = A Then
Do Until SW = "OFF"
If WD = L Then
SW = "OFF"
Else
If WDF <> "" Then
TTL = TTL + 1
n = n + 1
Else
n = n + 1
End If
End If
Loop
Else
n = n + 1
End If
Loop
Worksheets("LT").Cells(i, 2).Value = TTL
i = i + 1
Loop
|
|