Excel VBA如何使用图标（形状）实现月份切换导航功能

实现思路 #

• 预先定义12个月份对应的显示列范围
• 用公共变量存储当前显示的月份序号，点击切换按钮时更新序号后执行列显示/隐藏逻辑
• 边界自动循环：1月点击上一月直接跳转12月，12月点击下一月直接跳转1月

操作步骤 #

1. 按Alt+F11打开VBA编辑器，在左侧项目面板双击你存放月份表格的工作表名称，打开代码编辑窗口
2. 粘贴如下代码：

' 存储当前显示的月份序号，默认值0代表未初始化
Public currentMonth As Integer

' 绑定到下一月按钮
Sub GoToNextMonth()
    ' 首次运行默认显示1月
    If currentMonth = 0 Then currentMonth = 1
    ' 处理循环逻辑
    currentMonth = IIf(currentMonth = 12, 1, currentMonth + 1)
    Call RefreshMonthView(currentMonth)
End Sub

' 绑定到上一月按钮
Sub GoToPrevMonth()
    ' 首次运行默认显示1月
    If currentMonth = 0 Then currentMonth = 1
    ' 处理循环逻辑
    currentMonth = IIf(currentMonth = 1, 12, currentMonth - 1)
    Call RefreshMonthView(currentMonth)
End Sub

' 刷新列显示状态
Sub RefreshMonthView(targetMonth As Integer)
    ' 按1-12月顺序定义对应列范围
    Dim monthColumnRange As Variant
    monthColumnRange = Array("B:AD", "AF:BH", "BJ:CL", "CN:DP", "DR:ET", "EV:FX", "FZ:HB", "HD:IF", "IH:JJ", "JL:KN", "KP:LR", "LT:MV")
    
    ' 先隐藏所有月份所在的列区间
    Columns("B:MV").Hidden = True
    ' 仅显示目标月份的列
    Columns(monthColumnRange(targetMonth - 1)).Hidden = False
End Sub

3. 回到Excel工作表界面，右键点击你创建的「下一月」形状图标，选择「指定宏」，选中GoToNextMonth完成绑定；同理给「上一月」形状绑定GoToPrevMonth宏即可。

提示：如果点击按钮提示宏被禁用，可进入「文件-选项-信任中心-信任中心设置-宏设置」，选择启用VBA宏后重启文件即可正常使用。

内容的提问来源于stack exchange，提问作者Mariam Shabou