KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何變更 Excel 中的註解指示器顏色?

作者Xiaoyang修改日期

預設情況下,當您在 Excel 中插入註解時,儲存格右上角會顯示一個小型紅色三角形,作為該儲存格含有註解的視覺提示。然而在許多情境中,您可能希望自訂此指示器的顏色——例如配合公司品牌識別、分類系統,或讓註解在共用活頁簿中更為醒目。雖然 Excel 並未內建直接變更註解指示器顏色的功能,但本文提供了一種實用的替代方案,透過 VBA 程式碼即可實現此效果。

變更註解指示器顏色在協作環境中,或管理含有多則註解的複雜試算表時特別實用。自訂指示器不僅有助於視覺化整理意見回饋、區分不同類型的註解,還能為您的工作表增添個人風格,讓審閱更輕鬆高效。以下將詳細說明此替代方案的操作步驟與注意事項,並提供實用的疑難排解技巧、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,可考慮運用條件格式來標示含有註解的儲存格,作為視覺辨識的替代方案——儘管此方法無法變更三角形本身的顏色。另一種替代方式則是手動以圖形或圖示標記含有註解的儲存格。


相關文章:

如何在 Excel 中醒目提示所有批註?

如何在 Excel 中顯示或隱藏所有註解及其指示器?


最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 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 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用