>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 これでどうでしょうか？
