Excelユーザーフォームでコンボボックスの日付設定方法|【コピペで解決】

今回はExcelユーザーフォームでコンボボックスの日付設定方法を解説します。

簡単に自己紹介ですが私は会社員15年程経験しその中でExcelVBAを使い沢山の効率化を図ってきました。Excelの資格も取得していますので有益な情報になると思います。

今回の記事の対象者

Excelユーザーフォームでコンボボックスの日付設定方法を知りたい

今回の記事を見た事で得られる事

Excelユーザーフォームでコンボボックスの日付設定方法がわかる

では早速ですがコードから記載します。

Private Sub UserForm_Initialize()
'報告日
  Dim currentDate As Date
    Dim endDate As Date
    
    '現在の日付を取得
    currentDate = DateSerial(2023, 3, 1)
    
    '2024/03/31までの日付を取得
    endDate = DateSerial(2024, 3, 31)
    
    'cmb_say_dayコンボボックスに日付を追加
    Do While currentDate <= endDate
        Me.cmb_say_day.AddItem Format(currentDate, "yyyy/mm/dd")
        currentDate = currentDate + 1
    Loop


    Me.cmb_say_day.Value = Format(Date, "yyyy/mm/dd")


End sub

開始日と終了日を設定します。
開始日をcurrentDateに入れます。
終了日をendDateに入れます。
コンボボックス報告日cmb_say_dayの初期値に本日の日付を入れておきます。

以上です。
忘備録として残しておきます。