您的位置：程序门 -> vb -> vba

获得一年中的所有日期以及周末

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

获得一年中的所有日期以及周末[已结贴,结贴人:keyi_655]

发表于：2007-01-05 18:22:31 楼主

我现在知道年份和月份，比如2006年，5月

我要做的事是向excel的某一行填写以下内容：

2006年5月至年底所有的日期，凡遇到周六和周日，则要修改相应的cell颜色
（不同的年份2月的日期还不同）
我应该怎么做呢，有没有一些有用的方法，无从下手，请大家帮帮忙啊

发表于：2007-01-05 19:33:211楼得分:20

private sub command1_click（)
dim dd as date
dd = cdate（ "2006-05-01 ")
do while （year（dd) = "2006 ")
if weekday（dd, vbmonday) = 6 or weekday（dd, vbmonday) = 7 then
debug.print dd; "（周末) "
else
debug.print dd
end if
dd = dateadd（ "d ", 1, dd)
loop
end sub

下一篇：发布一个vb写的vb.（api+类+模块实现vb原型.)
上一篇：请问如何用vb同时打开2张excel表格？

其他资讯