本文详细介绍，如何通过Excel VBA自动生成2025年全年12个月的日历，采用横排布局，每行显示3个月，共4行，便于查看和打印。生成的日历经过美化处理，包含月份名称、星期几标题以及日期分布，同时自动调整列宽和行高，确保布局整齐美观。以下是一个详细的步骤指南，展示如何使用VBA在Excel中创建一个2025年的日历。

步骤 1: 插入一个新的VBA模块

1. 在Excel中，按 Alt + F11 打开VBA编辑器。
2. 在VBA编辑器中，点击“插入” > “模块”，插入一个新的模块。

步骤 2: 编写VBA代码

在模块中粘贴以下VBA代码来生成2025年的日历：

VBA代码：

Sub Create2025Calendar()
    Dim ws As Worksheet
    Dim year As Integer
    Dim currentMonth As Integer
    Dim currentDay As Integer
    Dim startRow As Integer
    Dim startCol As Integer
    Dim currentDate As Date
    Dim monthName As String
    Dim weekRow As Integer
    Dim monthCounter As Integer
    Dim wsName As String ' 用于存储工作表名称
    
    ' 设置年份
    year = 2025
    
    ' 设置工作表名称
    wsName = "2025 Calendar"
    
    ' 检查是否存在同名工作表，如果存在则删除
    On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets(wsName).Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    ' 创建一个新的工作表
    Set ws = ThisWorkbook.Worksheets.Add
    ws.Name = wsName ' 设置工作表名称
    
    ' 设置初始行和列
    startRow = 2
    startCol = 2
    
    ' 循环遍历每个月
    monthCounter = 0
    For currentMonth = 1 To 12
        ' 获取月份名称
        monthName = Format(DateSerial(year, currentMonth, 1), "MMMM")
        
        ' 在单元格中写入月份名称
        ws.Cells(startRow, startCol).Value = monthName & " " & year
        ws.Cells(startRow, startCol).Font.Bold = True
        ws.Cells(startRow, startCol).HorizontalAlignment = xlCenter
        
        ' 写入星期几的标题
        ws.Cells(startRow + 1, startCol).Value = "日"
        ws.Cells(startRow + 1, startCol + 1).Value = "一"
        ws.Cells(startRow + 1, startCol + 2).Value = "二"
        ws.Cells(startRow + 1, startCol + 3).Value = "三"
        ws.Cells(startRow + 1, startCol + 4).Value = "四"
        ws.Cells(startRow + 1, startCol + 5).Value = "五"
        ws.Cells(startRow + 1, startCol + 6).Value = "六"
        
        ' 设置日期开始的单元格
        currentDate = DateSerial(year, currentMonth, 1)
        weekRow = 0 ' 重置每周的行数
        
        ' 循环遍历该月的每一天
        Do While month(currentDate) = currentMonth
            ' 获取当前日期的星期几
            currentDay = Weekday(currentDate, vbSunday)
            
            ' 在相应的单元格中写入日期
            ws.Cells(startRow + 2 + weekRow, startCol + currentDay - 1).Value = day(currentDate)
            
            ' 如果是星期六，跳到下一周
            If currentDay = 7 Then
                weekRow = weekRow + 1
            End If
            
            ' 增加一天
            currentDate = currentDate + 1
        Loop
        
        ' 为每个月的日历添加边框
        ws.Range(ws.Cells(startRow, startCol), ws.Cells(startRow + 8, startCol + 6)).Borders.LineStyle = xlContinuous
        
        ' 调整列宽和行高
        ws.Columns(startCol).ColumnWidth = 10
        ws.Rows(startRow).RowHeight = 20
        ws.Rows(startRow + 1).RowHeight = 15
        ws.Rows(startRow + 2).RowHeight = 15
        ws.Rows(startRow + 3).RowHeight = 15
        ws.Rows(startRow + 4).RowHeight = 15
        ws.Rows(startRow + 5).RowHeight = 15
        ws.Rows(startRow + 6).RowHeight = 15
        ws.Rows(startRow + 7).RowHeight = 15
        ws.Rows(startRow + 8).RowHeight = 15
        
        ' 设置对齐方式
        ws.Range(ws.Cells(startRow + 1, startCol), ws.Cells(startRow + 8, startCol + 6)).HorizontalAlignment = xlCenter
        
        ' 调整下一个月的起始列
        startCol = startCol + 8
        monthCounter = monthCounter + 1
        
        ' 每行显示3个月，然后换行
        If monthCounter Mod 3 = 0 Then
            startRow = startRow + 10
            startCol = 2
        End If
    Next currentMonth
    
    ' 自动调整列宽
    ws.Columns.AutoFit
    
    ' 提示用户日历已创建
    MsgBox "2025年日历已成功创建！", vbInformation
End Sub

运行代码

• 按 F5 运行宏 Create2025Calendar。
• 返回到Excel，你将看到一个新的工作表，其中包含2025年的12个月日历，以横排布局显示。

输出示例

每行显示3个月，共4行：

通过以上步骤，你可以使用VBA在Excel中自动生成2025年的日历。你可以根据需要进一步自定义日历的样式和内容。

主要功能：

• 自动生成日历：一键生成2025年12个月份的日历，无需手动输入。
• 横排布局：每行显示3个月，共4行，方便查看和对比。
• 表格美化：为每个月的日历添加边框，设置字体样式，调整列宽和行高，使日历更加美观。
• 自动调整：自动调整列宽和行高，确保日历对齐，适应不同屏幕和打印需求。
• 错误处理：自动检查并处理工作表名称冲突，确保代码运行稳定。

适用场景：

• 个人使用：快速生成2025年日历，用于日程安排或打印。
• 办公场景：在Excel中集成日历功能，方便团队共享和查看。
• 教学演示：展示如何使用VBA自动化生成表格，提升Excel技能。

特点：

• 高效便捷：一键生成全年日历，节省时间。
• 灵活美观：横排布局，表格美化，满足不同需求。
• 可扩展性强：可根据需要调整代码，生成其他年份或自定义格式的日历。

无论是个人使用还是办公场景，本工具都能为您提供高效的日历生成解决方案！