Excel VBA实现AO4:AO30数据显示/隐藏切换按钮需求

步骤1：备份原始数据 #

• 新建一张工作表，重命名为DataBackup
• 选中AO4:AO30区域，复制后粘贴到DataBackup的A4:A30区域（位置对应即可）
• 右键点击DataBackup工作表标签，选择「隐藏」，避免误操作修改备份数据

步骤2：编写VBA宏代码 #

1. 按下Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口里的当前工作簿名称，选择「插入」→「模块」
3. 在右侧代码窗口粘贴以下代码：

Sub ToggleShowData()
    Dim targetRange As Range
    Dim backupSheet As Worksheet
    
    ' 指定目标区域和备份工作表
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("AO4:AO30") ' 替换成你的目标工作表名称
    Set backupSheet = ThisWorkbook.Sheets("DataBackup")
    
    ' 判断当前状态：若目标区域首单元格为空则恢复数据，否则清空
    If IsEmpty(targetRange.Cells(1, 1)) Then
        ' 从备份表恢复原始数据
        backupSheet.Range("A4:A30").Copy targetRange
    Else
        ' 清空目标区域内容
        targetRange.ClearContents
    End If
End Sub

• 关键修改：把代码里的Sheet1替换成你的目标数据所在的工作表名称（比如自定义的「日历表」）

步骤3：添加宏按钮 #

1. 回到Excel界面，点击「开发工具」选项卡（若未显示，在「文件→选项→自定义功能区」勾选「开发工具」）
2. 点击「插入」，选择「表单控件」里的「按钮（窗体控件）」
3. 在工作表合适位置拖动绘制按钮，松开后弹出「指定宏」窗口，选择ToggleShowData并点击确定
4. 右键点击按钮，选择「编辑文字」，修改为show data

注意事项 #

• 保存工作簿时需选择「Excel 启用宏的工作簿（.xlsm）」格式，否则宏会丢失
• 打开工作簿时要启用宏，按钮才能正常触发切换逻辑

内容的提问来源于stack exchange，提问作者Joel Elliott