VBAマクロの最後の日を実行する

Question

月の最後の日を返したい。月はドロップダウンコンボボックスから選択されます。 1月を選択すると、「1/31/2017」が返されますが、31を返すだけです。何が欠けていますか？

EndDate = WorksheetFunction.EoMonth(ComboBox1.Value & Year(Date), 0) 

Answer 1

あなたは（月の最終日の）日を表す数値を望む一方で、Dateを返すWorksheetFunction.EoMonth機能。

したがって、Long変数が必要です。Day関数を使用することができます。

EndDate = WorksheetFunction.EoMonth(ComboBox1.Value & Year(Date), 0) 

Dim myDay As Long 
myDay = Day(EndDate)