Excel一键实现所选区域内容的隐藏与显示技巧

1、本教程以下图中的数据为例。

3、绘制切换按钮。

5、界面自动跳转到VBA后，在模块窗口中，复制粘贴以下代码：P筠续师诈rivate Sub ToggleButton1_Click()Dim rn爿讥旌护g As RangeSet rng = SelectionFor Each rng In SelectionIf ToggleButton1 Then Selection.NumberFormatLocal = ";;;"Else Selection.NumberFormatLocal = "G/通用格式"End IfNextEnd Sub

7、框选需要实现该功能的区域，反复点击按钮即可实现所选区域内容的隐藏和显示。