vba_1《考勤表》

最新推荐文章于 2024-04-09 15:37:28 发布

�会吐墨的蟹�

最新推荐文章于 2024-04-09 15:37:28 发布

阅读量983

点赞数

文章标签： vba

本文链接：https://blog.csdn.net/moxiangrana/article/details/115127732

版权

本文介绍了使用VBA进行考勤表设计的方法，包括自动填充当月日期、设置指定单元格颜色和格式化时间。通过VBA的日期处理、单元格格式和颜色设置，实现考勤表的高效管理。

摘要由CSDN通过智能技术生成

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)