VBA运行宏月的最后一天

Question

我想在本月的最后一天返回。从下拉组合框中选择月份。如果我选择1月，这将返回＆＃34; 2017年1月31日＆＃34;但我只是想让它返回31.我错过了什么？

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

Answer 1

函数WorksheetFunction.EoMonth返回Date，而您想要一个表示Day（当月最后一天）的数值。

所以你需要一个Long变量，你可以使用Day函数。

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

Dim myDay As Long
myDay = Day(EndDate)