If Day(Date) = 1 Then修改為如果今天是1號又是星期一

您的问题是将"If Day(Date) = 1 Then"修改为"如果今天是1号又是星期一"，我理解的是您想将条件改为同时判断日期为1号和星期为星期一的情况，是这样吗？

如果是的话，可以使用以下的代码：

If Day(Date) = 1 And Weekday(Date) = vbMonday Then
'执行您需要的操作
End If

其中，Weekday(Date)函数返回指定日期的星期几，vbMonday是一个常量，表示星期一。这样就可以同时判断日期为1号和星期为星期一的情况了。