跳到主要內容

如何更改Excel單元格中的所有註釋格式?

在工作表中插入註釋時,有時可能需要更改默認註釋格式,如果有少量註釋,我們可以手動更改它們,但是如果有數百個註釋需要更改,如何解決? ?

使用VBA代碼更改所有註釋格式

方便快捷的工具,可快速,省時地更改所有評論格式


箭頭藍色右氣泡 使用VBA代碼更改所有註釋格式

使用以下VBA代碼,您可以更改單元格中的字體大小和註釋的字體,但不能更改字體顏色。 請使用以下VBA作為:

1。 點擊 開發者 > Visual Basic中,一個新的 適用於應用程序的Microsoft Visual Basic 將顯示一個窗口,單擊 插入 > 模塊,然後將以下代碼複製並粘貼到模塊中:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

在上面的代碼中,您可以設置 。名稱 。尺寸 您想要的變量。

2。 然後點擊 文檔更改註釋格式-1 按鈕運行代碼。 然後點擊 回顧 > 顯示所有評論 要查看註釋,整個工作簿中的所有註釋格式均已更改。 查看屏幕截圖:

文檔更改註釋格式 1 -2 文檔更改註釋格式 2

箭頭藍色右氣泡 方便快捷的工具,可快速,省時地更改所有評論格式

如果您想快速更改所有註釋的其他格式,可以嘗試使用 格式註釋 of Excel的Kutools.

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即獲取

安裝Kutools for Excel之後,請按照以下步驟更改註釋格式:

1。 使用要應用於其他註釋的樣式來格式化一個註釋。

2。 點擊 庫工具 > 更多 > 格式註釋,請參見屏幕截圖:

3。 在 格式註釋 對話框,單擊 格式 標籤,然後選擇要更改註釋格式的範圍,您可以選擇 活動表 or 所有工作表。 然後點擊 指定評論單元格 按鈕選擇包含要應用的特定註釋格式的單元格。 然後會彈出另一個對話框,告訴您已更改的單元數。 看截圖:

4。 然後點擊 Ok > 取消 按鈕可關閉對話框,並且所選單元格註釋格式已應用於其他註釋。

筆記:

如果您不想在所有註釋單元格中使用粗體字體樣式,請檢查 強制非粗體格式 選項。

有關更多詳細信息 格式註釋 , 請拜訪 格式註釋功能說明.


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations