VBA(考勤表简单设计)
一 当月份日期取得
二 指定单元格设置颜色
三 指定单元格格式
一
Sub EnterDates5() '获取当前月份的所有日子
Dim TheDate As Date
TheDate = DateSerial(Year(Date), Month(Date), 1) '获取当日所在月份的第一天的日期
While Month(TheDate) = Month(Date) '循环,直到跳出当月
ActiveCell = TheDate '设置当前单元格值为当前日期
TheDate = TheDate + 1 '当前日期的下一天
ActiveCell.Offset(1, 0).Activate '激活下一个单元格,用于输出下一天的日期
Wend
End Sub
(转载于http://www.excelpx.com/thread-156742-1-1.html)
二
Range(“c” & m + 2 & “:h” & m + 2).Interior.ColorIndex = 15
单元格范围.Interior.ColorIndex = 15
#15为颜色索引
参考(https://blog.csdn.net/keepiss/article/details/79475018)
三
Range(“d3:” & “f” & t).NumberFormatLocal = “hh:mm:ss”
参考(https://blog.csdn.net/jyh_jack/article/details/78037246)
<