让老板看傻，会折叠的Excel表格来了！

近期，兰色每天早上都要打开百度疫情大数据的查看最新的疫情。其中一个折叠小按钮引起兰色的兴趣。点击它可以查看明细，再点击则可以隐藏明细。

在Excel中其实也有类似的功能，如分类汇总、组合功能

但按钮在最左侧，点起来总不是那么顺手。于是兰色用Excel做一个更好用的：

如果开工后用这样的表格给老板演示，绝对会让他看傻的。

接下来就跟兰色一起做吧

1、插入小三角

在每个省份名称前通过插入 - 图形，添加小三角

2、添加代码

选取小三角 - 右键指定宏 - 新建，把下面的代码粘贴到开始和结束语句中间

---

With Rows('4:21')

    If .Hidden = True Then

       .Hidden = False

    Else

       .Hidden = True

    End If

  End With

ActiveSheet.Shapes.Range(Array('Isosceles Triangle 1')).IncrementRotation 180

---

3、修改代码

根据要隐藏的行和图形名称，修改2处代码。湖北要隐藏的是4：21行，图片的序号是3

---

Sub 等腰三角形3_Click()

With Rows('4:21')

    If .Hidden = True Then

       .Hidden = False

    Else

       .Hidden = True

    End If

  End With

    ActiveSheet.Shapes.Range(Array('Isosceles Triangle3')).IncrementRotation 180

End Sub

---

4、另存文件

按F12另存为启用宏的文件

兰色说：Excel搞不定的工作，VBA总可以轻松完成，这就是很多人痴迷VBA编程的原因，你也想学吗？