Microsoft ExcelでVBAの動的な配列を作成する方法

投稿日: 2020年10月22日 2020年11月12日
タグ: 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