VBA Excel 날짜에서 날짜 받기

날짜 목록을 생성하는 다음과 같은 VBA 코드를 가지고 있습니다. 원하는 날짜는 매일 출력하므로 하루 형식으로 날짜를 인쇄합니다. 01/10/2002 월요일 다음과 같습니다VBA Excel 날짜에서 날짜 받기

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 ")하지만 나 형식을 지정할 수 없습니다.

누구든지이 문제의 해결책을 제안 할 수 있습니까?

출처

2013-09-02 cwiggo

A1과 A2에는 무엇이 있습니까? 예를 들어, C1을 수정하여 날짜를 인쇄했습니다. Format (CELL, "dd/MM/yyyy")을 시도 했습니까? – Makah

아래 질문에 답해 주셔서 감사합니다. 대답을하기로 결심했습니다. – cwiggo

here에서 셀의 형식을 설정할 수 있다는 것을 발견했습니다. 나는 원래 게시물에 언급 된 라인을 변경 :이 컬럼과 B의 인덱스에 대한 권리 형식의 응답에 대한

덕분에 하루를 C의 열 및 인덱스에서 날짜를 받아 인쇄

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

출처

2013-09-02 19:26:39 cwiggo

답변

관련 문제