08/06/12 18:00:46
>91
70,71,73,90です。最初（69番の書き込み）から９０日後云々が消えちゃいましたが・・・
それから３営業日「前」の日付を求めたい、とあったのが今度は３営業日「後」の日付を
求めるんですか？
では、Ａ列にカレンダー（１月１日～１２月３１日）、Ｂ列に何かデータがあれば休みという前提で、
Ｃ１セルに日付を入力したら３営業日｢後｣の日付を求めるということで考えてみます。
Ｃ１セルの日付がカレンダーの何行目になるのかは、
Cells("C1").Value - Cells("A1").Value + 1 で求められます。Ａ１セルを1/1としてます。
単純に３日後であれば３行下のＡ列の値でいいんですが、Ｂ列に何かあったらさらに１行下となるので、
ループを利用します。
Dim Tate As Long, i As Long
Sub D_day()
Tate = DateDiff("d", Cells(1, 1).Value, Cells(1, 3).Value) + 1
i = 0
Do
Tate = Tate + 1
If Cells(Tate, 2).Value = "" Then 営業日だけ
i = i + 1 カウントアップ
End If
Loop Until (i > 2) ３営業日になったらループ脱出
Cells(1, 4).Value = Cells(Tate, 1).Value
End Sub
これでどうでしょうか？