VBA 第14课 自动生成年历
2015-10-06 14:42
393 查看
Sub 生成年历() y = InputBox("请指定一个年份:") '清除原有内容 Range("1:1, 4:11,14:21,24:31,34:41").ClearContents '设置标题 Cells(1, 1) = y & "年历" Dim dm As Variant 'dm 下标从0开始 dm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) '处理闰年,修正二月份天数 If ((y Mod 400 = 0) Or (y Mod 4 = 0 And y Mod 100 <> 0)) Then dm(1) = 29 End If For m = 0 To 11 '计算每月第一天的星期数(1日,2一,3二...) d = DateSerial(y, m + 1, 1) w = Weekday(d) '计算每月起始的行号和列号 r = (m \ 3) * 10 + 4 c = (m Mod 3) * 8 '排出一个月的日期 For d = 1 To dm(m) Cells(r, c + w) = d w = w + 1 If w > 7 Then w = 1 r = r + 1 End If Next Next End Sub
转载请注明作者与出处:http://blog.csdn.net/u013511642 王小涛_同學
相关文章推荐
- 10月tiobe。oc跌出前10,排名不如汇编和老vb
- VBA 学习
- Virtualbox 的 Kern Service 出问题了,怎么办?
- VBA 第13课 字典dictionary
- VBA 第12课 插入排序
- VBA 第11课 数组,取特定行数据
- 名字与地址转换getservbyname 与 getservbyport函数
- VBA 第10课 禁止关闭工作薄
- VBA 第9课 合并单元格
- VBA 第8课 Excel单元格的颜色,格式的设置
- Vagrant 启动报错:the "vboxsf" file system is not available
- VB.net视频打开方法
- VBA第7课 编写自定义函数
- Ubuntu vbox xp虚拟机共享文件夹
- VB2005 Project中Namespace的一个问题
- 【VBS教程】:VBS简介及如何编译VBS程序等
- 【VBS教程】:作业1
- 【VBS教程1】:基本输入输出
- 历年至今TVB剧集目录(持续更新...我已看过的推荐)
- 【来日复制粘贴】输出匹配到的字符串