excel - VBA Excel 日付から日を取得する

Question

私は日付のリストを生成する次の VBA コードを持っています。私が望むのは、すべての日付を印刷するときに、日付を日の形式で印刷することです。つまり、01/10/2002 は月曜日になります。

Sub loopDates()
    Dim Stdt    As Date
    Dim Edt     As Date
    Dim n       As Date
    Dim c       As Long
    Stdt = Range("A1")
    Edt = Range("A2")
    For n = Stdt To Edt
            c = c + 1
            Range("C" & c) = n
            Range("B" & c).Formula = "=TEXT(C1,""dddd"")"
    Next n
End Sub

行を変更したい：

Range("B" & c).Formula = "=TEXT(C1,""dddd"")"

この例の C1 は、ループが反復されるたびに変更されるため、値 c で変更されます。たとえば、=TEXT(C " & c &, "dddd") のようになりますが、正しい書式設定を取得できません。 、

誰でもこの問題の解決策を提案できますか?