【VBA】土日をスキップして日付計算

今A列に土日を除いた日付があり、マクロを実行すると、日付が一日加算される下記のようなVBAを書いてます。

Sub DateCulc()
i = 3
Do
dodate = (DateAdd("d", 1, Cells(i, 1)))
Cells(i, 1) = dodate
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub

一日加算した場合、土日をスキップ、つまり金曜の日付は月曜になるようにしたいのですが、思いつきません。WeekDayを使うのだと思うのですが。
ご教授頂けますか。宜しくお願いします。

No.2 回答者： n-jun 回答日時： 2009/11/01 09:23

一例まで。

Sub DateCulc_2()
i = 1
Do
a = Format(Cells(i, 1), "aaa")
b = 1
If a = "金" Then b = 3
dodate = (DateAdd("d", b, Cells(i, 1)))
Cells(i, 1) = dodate
i = i + 1
Loop While Cells(i, 1).Value <> ""
End Sub

No.1 回答者： imogasi 回答日時： 2009/10/31 23:24

足してから考えるか前に考えるかだが、前者なら金曜なら＋３

後者なら土曜日ならさらに＋２すれば月曜になるよ。
曜日はWeekday関数を使えば良い。
＞思いつきません
なぜ？
＞一日加算した場合
これに拘るから、難しいと思うのでしょう。
コードは簡単だから自分で作ること。
ーー
祝日が心配だが。