用<em>vba</em>&#39;怎么取得本月最后一天的日期和这个月的<em&g

设 A 列为日期百
1) 函数度
在B列输入函数 =if(month(A1)=10,"*","") 往下拉

2) 编程
for i=2 to [A65536].end(xlup).row
if month(range("A" & i))=10 then range("B" & i)="*"
next

结果回: 在B列为"*"即10月日答期

1. Sub LastDay()
   
2.     Dim DateStr As Byte
   
3.     DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
   
4.     MsgBox "本月共有抄" & DateStr & "天，最后一天是zd" & Month(Date) & "月" & DateStr & "日！"
   
5. End Sub

假如日期在A1单元格，以下函数就返回这个日期的月份数：

Month(Range("A1"))

在VBA加入下面的参数就可以：

d = Day(Now)
m = Month(Now)
y = Year(Now)

MaxDay = Day(DateSerial(y, m + 1, 0))