開始以為你使用單元格填充做的條形圖，後來發現是 Chart。。。囧因為平常做計劃都是 Project，所以對於 Excel 做甘特圖還是不熟悉，剛照虎畫貓做了一個：其實接下來怎麼做我也不知道，但有神器： 錄製宏開啟錄製器：選中一個條條，改變它的顏色，結束錄製，Alt+F11 進入 VBE 看看程式碼:大概讀一下:

選區圖表，選區圖示的資料系列，選區圖表上的點也就是一個 Task 對應的甘特條設定填充，也就是 ForeColor.RGB這一個賦值剩下的工作就是刪除不需要的資訊，比如 Visible，Transparency 啊這些：另外要考慮的就是當你輸入的時候要自動更改，因此需要將程式碼新增到 WorkSheet_Change 事件中，另外考慮到程式碼複用性，可以寫一個模組 SetColor，然後將 SetColor 插到 SheetChange 事件中：試驗一下，是可以的，不過最後圖會被選擇，這樣：解決辦法是在設定完顏色後加一個 Range("A1").Select，這樣執行完 Selection 就會被釋放，然後定位到 A1，當然你也可以設定其他的剩下的工作就是針對其他點新增程式碼，並測試完善可以寫個 For 迴圈來實現。因為要呼叫單元格參考，這個時候 For Each 就不適用了，還是用迴圈變數來 For 吧另外，你要將對應的點和單元格的關係對應起來： If 那一塊的條件自己新增吧，我這個只是個簡單的示例，顏色自己更改另外，弱弱的問一句為什麼不用 Project 呢……半小時基本就入門了，還能設定前置任務，關鍵路徑……Code：注意，放在你資料所在的那個 Sheet 之後可以去掉 ActiveSheet