VBA Excel Получение дня из даты

У меня есть следующий код VBA, который генерирует список дат, я хочу, чтобы я распечатывал каждую дату, чтобы печатать дату в формате дня, т.е. 10.01.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"), но я не могу правильно форматировать ,

Кто-нибудь может предложить решение этой проблемы?


date format excel vba dayofweek
person cwiggo    schedule 02.09.2013    source источник
comment
Что у вас есть в А1 и А2? В вашем примере вы установили C1 для печати даты. Вы пробовали форматировать (CELL, dd/MM/yyyy)?   -  person Makah    schedule 02.09.2013
comment
Ответил на него ниже, спасибо, что нашли время, чтобы посмотреть на вопрос, я был полон решимости ответить на него   -  person cwiggo    schedule 02.09.2013

Ответы (1)


arrow_upward
1
arrow_downward

Мне удалось найти здесь, что вы можете просто установить формат ячейки. Я изменил строку, указанную в исходном сообщении, на:

Range("B" & c) = Format(n, "dddd")

Это берет дату из столбца и индекса C и печатает день в правильном формате в столбец и индекс B

Спасибо за ответы

person cwiggo    schedule 02.09.2013