---
disqus: ahb0222
GA : G-CQ4L16KHK4
---
# 分享 Excel 甘特圖摺疊儲存格與群組功能
> [color=#40f1ef][name=LHB阿好伯, 2021/07/06][:earth_africa:](https://www.facebook.com/LHB0222/)
###### tags: `Excel` `VBA`

[TOC]

紀錄一下在社群解決的問題
今天有網友詢問如何在Excel實現甘特圖的摺疊功能

我這邊使用Excel內建的模板來測試給大家看

# 方法-1 內建群組功能
優點:+1: : 方便快速

缺點:-1: : 儲存格設定間隔



# 方法-2 VBA搭配核選方塊
設定核選方塊連結

#設定巨集依照需求增減

Sub 巨集1()
'
' 巨集1 巨集
'

'
    If Range("A5").Value = "True" Then  '判斷核選方塊連結資料位置是否為True
    Rows("5:11").Select  '連結資料位置為True選取預隱藏列號
    Selection.EntireRow.Hidden = True   '隱藏儲存格
    Range("A1").Select   '指向A1儲存格
    Else   '連結資料位置不是True則
    Rows("5:11").Select '選取隱藏列號
    Selection.EntireRow.Hidden = False  '取消隱藏儲存格
    Range("A1").Select
    End If
    

End Sub

指定巨集

測試

[測試檔案](http://b00.tw/2OMgJ)

全文分享至

https://www.facebook.com/LHB0222/

https://www.instagram.com/ahb0222/

有疑問想討論的都歡迎於下方留言

喜歡的幫我分享給所有的朋友 \o/

有所錯誤歡迎指教

# [:page_with_curl: 全部文章列表](https://hackmd.io/@LHB-0222/AllWritings)