어떻게 Microsoft Excel에서 VBA의 동적 배열을 만들 수

Posted on: 2020年11月12日 2020年11月12日
Tags: general-topics-in-vba

질문 :

평일과 한 달의 날짜는 2 차원 배열로 열린 다음 시트에 삽입됩니다

답변 :

아래 코드를 표준 모듈에 넣으십시오.

Sub dayarray()

Dim arrDay(1 To 31, 1 To 2) As Variant

Dim intCounter As Integer

For intCounter = 1 To 31

arrDay(intCounter, 2) = DateSerial(Year(Date), 12, intCounter)

arrDay(intCounter, 1) = Format(arrDay(intCounter, 2), "dddd")

Next intCounter

Range("A1:B31").Value = arrDay

End Sub