如何變更 Excel 中的註解指示器顏色?
預設情況下,當您在 Excel 中插入註解時,儲存格右上角會顯示一個小型紅色三角形,作為該儲存格含有註解的視覺提示。然而在許多情境中,您可能希望自訂此指示器的顏色——例如配合公司品牌識別、分類系統,或讓註解在共用活頁簿中更為醒目。雖然 Excel 並未內建直接變更註解指示器顏色的功能,但本文提供了一種實用的替代方案,透過 VBA 程式碼即可實現此效果。
變更註解指示器顏色在協作環境中,或管理含有多則註解的複雜試算表時特別實用。自訂指示器不僅有助於視覺化整理意見回饋、區分不同類型的註解,還能為您的工作表增添個人風格,讓審閱更輕鬆高效。以下將詳細說明此替代方案的操作步驟與注意事項,並提供實用的疑難排解技巧、VBA 自訂方法,以及在您的環境限制使用 VBA 時的可行替代方案。
使用 VBA 程式碼變更註解指示器顏色
目前 Excel 尚未提供讓使用者直接快速變更註解指示器三角形顏色的功能。不過,您可以透過 VBA,在預設指示器上方疊加一個您指定顏色的三角形圖形,有效打造全新的視覺外觀。此方法適用於作用中工作表上所有包含註解的儲存格。請注意,這並非真正更改原生註解指示器的顏色,而是以覆蓋彩色三角形的方式呈現視覺效果。
此方法非常適合希望以簡便方式視覺區分註解指示器的使用者,無需進行繁瑣的手動格式設定。若您經常分享活頁簿,或希望根據註解類型或作者對註解進行色彩編碼,透過 VBA 即可輕鬆實現所需的視覺自訂效果。使用 VBA 的優點在於能快速將變更套用至多個儲存格;缺點則是需啟用巨集權限,且其並非 Excel 原生功能。此外,若工作表已啟用保護,執行 VBA 程式碼前可能需先解除保護。
1. 開啟您要自訂註解指示器顏色的工作表。
2. 按下 ALT + F11,即可開啟 Microsoft Visual Basic for Applications 視窗。此快捷鍵適用於任何 Excel 工作表,立即進入您的 VBA 編輯器環境!
3. 在 VBA 視窗中,按一下插入> 模組 以建立新模組,然後將下列 VBA 程式碼複製並貼上至模組視窗中。此程式碼將自動偵測批註,並在每個指示器上繪製彩色三角形。
VBA 程式碼:變更註解指示器顏色當前工作表
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. 貼上程式碼後,按下 F5(或點選 VBA 視窗中的「執行」按鈕)即可執行。執行後,您作用中工作表上的所有批註指示器將被指定顏色的三角形覆蓋——如下圖所示:
![]() |
![]() |
![]() |
注意事項與技巧:
1. 在程式碼中,三角形顏色透過 .Fill.ForeColor.SchemeColor = 12 設定。您可以將 12 修改為其他顏色編號,輕鬆打造符合個人偏好的視覺效果!例如,改為 10 即可切換至不同色調。立即參閱官方 Excel ColorIndex 文件,探索完整的配色方案編號!
2. 自訂三角形圖形雖錨定於儲存格角落,但在調整或移動底層儲存格時,其大小或位置仍可能改變。為確保最佳效果,請於執行程式碼前先確認儲存格尺寸;若已調整工作表尺寸,可重新執行 VBA 程式碼以更新圖形。
3. 若您想立即移除所有彩色三角形圖形(而不刪除實際註解),請執行下列 VBA 程式碼,該程式碼僅會清除先前指令碼所新增的三角形。當您希望恢復預設的紅色指示器,或再次調整顏色時,此方法格外實用。
VBA 程式碼:移除註解指示器上方的三角形圖形
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
若要執行移除程式碼,請依照上述相同步驟操作:開啟 VBA 編輯器、插入模組、貼上程式碼,並按下 F5 執行。此操作將完整保留您的註解資料,僅移除指示器圖形。
若您在執行任一指令碼時遇到錯誤,請再次確認 Excel 設定中已啟用巨集、工作表未受保護,且工作表上的物件未被鎖定。此外,在執行 VBA 前務必先儲存您的工作,以便必要時還原變更。
若您所在的組織限制執行巨集,或您不希望使用 VBA,可考慮運用條件格式來標示含有註解的儲存格,作為視覺辨識的替代方案——儘管此方法無法變更三角形本身的顏色。另一種替代方式則是手動以圖形或圖示標記含有註解的儲存格。
相關文章:
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用


