近期,宏興會計培訓小編每天早上都要打開百度疫情大數據的查看最新的疫情。其中一個摺疊小按鈕引起宏興會計培訓小編的興趣。點擊它可以查看明細,再點擊則可以隱藏明細。
在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編程的原因,你也想學嗎?
閱讀更多 宏興會計教育 的文章