VBA—EXCEL操作集合—07

最新推荐文章于 2025-10-24 14:47:30 发布

原创

最新推荐文章于 2025-10-24 14:47:30 发布 · 2.3k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

这篇博客介绍如何利用VBA编写一个日历程序。通过InputBox获取起止日期，使用Format、Weekday、WeekdayName等函数处理日期，并通过Year和Month函数获取年份和月份。此外，还展示了如何用Array给单元格赋值，以及进行单元格合并和对齐操作。代码中的For循环部分鼓励读者自行调试理解。

大家好，今天我们就用上一篇文章中的VBA函数来完成一个简短的日历程序。

我们先上代码，然后再一点点去解析代码逻辑。

Sub 日历()
    Dim WkName As String
    Dim i, j, k, l As Long
    Dim strStar As Date
    Dim strEnd As Date
    
    strStar = InputBox("日历编辑起始日期", "日历编辑", #1/1/2017#)
    If strStar <> False Then
        strEnd = InputBox("日历编辑终止日期", "日历编辑", #5/1/2017#)
        If strEnd <> False Then
            WkName = WeekdayName(Weekday(Format(strStar, "yyyy/mm/dd")))
            Range("A1") = Year(strStar) & "年" & Month(strStar) & "月"
            Range("A1:G1").Merge
            Range("A1:G1").HorizontalAlignment = xlHAlignCenter
            Range("A2:G2") = Array("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")
            For i = 3 To 1000
                t = Month(strStar)
                For j = 1 To 7
                    For k = 1