讓老闆看傻,會摺疊的Excel表格來了

近期,宏興會計培訓小編每天早上都要打開百度疫情大數據的查看最新的疫情。其中一個摺疊小按鈕引起宏興會計培訓小編的興趣。點擊它可以查看明細,再點擊則可以隱藏明細。

讓老闆看傻,會摺疊的Excel表格來了

在Excel中其實也有類似的功能,如分類彙總、組合功能。

讓老闆看傻,會摺疊的Excel表格來了

但按鈕在最左側,點起來總不是那麼順手。於是宏興會計培訓小編用Excel做一個更好用的:

讓老闆看傻,會摺疊的Excel表格來了

如果開工後用這樣的表格給老闆演示,絕對會讓他看傻的。

1、插入小三角

在每個省份名稱前通過插入 - 圖形,添加小三角

讓老闆看傻,會摺疊的Excel表格來了

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

讓老闆看傻,會摺疊的Excel表格來了

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

讓老闆看傻,會摺疊的Excel表格來了

4、另存文件

按F12另存為啟用宏的文件

讓老闆看傻,會摺疊的Excel表格來了

Excel搞不定的工作,VBA總可以輕鬆完成,這就是很多人痴迷VBA編程的原因,你也想學嗎?


分享到:


相關文章: