VBA—EXCEL操作集合—07

关注

VIP免费原创最新推荐文章于 2026-04-30 05:31:42 发布 2.4k 阅读 AI 写同款· GEO 优化 ›

Excel VBA编程文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引号利用LBound函数求最小索引号求多维数组的最大和最小索引号用join函数将一维数组合并成字符串将数组内容写入工作表中数组的存取特殊数据的专用容器——常量对象，集合及对象的属性和方法VB... 阅读详情

大家好，今天我们就用上一篇文章中的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