| 楼主 悟空师弟 |
Q：如何用VBA在A1单元格内显示本月最后一天？ A：代码如下：（注：先将A1单元格格式设为所需要日期格式）
 如何用VBA在A1单元格内显示本月最后一天？.rar其它解法：
|
| 2楼 ljh29206 |
Sub AAA() For y = 1 To 100 For i = 1 To 12 Cells(i, 1 + y * 2 - 2) = 2000 + y & "年" & i & "月" Cells(i, 2 + y * 2 - 2) = Format(DateSerial(2000 + y, i + 1, 0), "dd") Next i Next y End Sub 获取2001年-2100年的 每月天数. 老师能否帮忙看下如何才能够直接获取2001年-2100年的每年的天数？ 希望能给个高效版 |
| 3楼 zgwei050 |
回复2楼：这样可以吗？ Sub BBB() For y = 1 To 101 Cells(1, 1 + y * 2 - 2) = Format(Application.EDate("1999-1-1", 12 * y), "yyyy年") Cells(1, 2 + y * 2 - 2) = Application.EDate("2000-1-1", 12 * y) - Application.EDate("1999-1-1", 12 * y) Next y End Sub |
| 4楼 ljh29206 |
我的版本是2003测试不了 提示 对象不支持属性 。 可否用其他的 语法 获取？ 年的天数 |
| 5楼 悟空师弟 |
看看这个是不是你要的效果！ [Excel VBA] 如何获取2001年-2100年中每一年的天数？ http://www.exceltip.net/thread-17869-1-1.html |