Note: The other languages of the website are Google-translated. Back to English

如何自動調整註釋框的大小以適合Excel中的內容?

當您將註釋插入單元格時,註釋框的大小是默認值。 如果您在其中輸入很多內容,則某些內容將不會直接可見。 是否可以自動使註釋框的大小適合其內容?

自動調整註釋框的大小以使其適合工作表中的內容
自動調整註釋框大小以使其內容適合一系列單元格
輕鬆自動調整註釋框大小,以使用出色的工具將其內容適合活動工作表或所有工作表


自動調整註釋框的大小以使其適合工作表中的內容

在Excel中,您可以將註釋框手動一一拖到您需要的大小,但是如果有很多註釋框需要調整大小,這種方式將很繁瑣且耗時。 在這種情況下,您可以應用以下VBA代碼。

1.按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊窗口.

VBA代碼:自動調整工作表中的註釋框的大小

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3.然後按 F5 鍵以運行此代碼,並且活動工作表中的所有註釋框都已調整大小以適合其內容,如以下屏幕截圖所示:

doc自動調整大小comment1

尖端:此代碼僅在當前工作表中起作用,並且無法自動調整您添加的新註釋框的大小。


一鍵快速將註釋框的大小自動調整為適合Excel中的內容:

自動評論 的效用 Excel的Kutools 可以幫助在工作表中自動將註釋框的大小自動調整為其內容,如下面的演示所示。 立即下載並試用! (30-天免費試用)


自動調整註釋框大小以使其內容適合一系列單元格

如果只需要自動調整單元格註釋框的大小,則可以使用以下VBA代碼。

1.按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊窗口.

VBA代碼:在一系列單元格中自動調整註釋框的大小

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3.然後按 F5 鍵以執行此代碼,然後會出現一個提示框,提醒您選擇要調整註釋框大小的單元格範圍,請參見屏幕截圖:

文檔調整大小評論框3

4.然後單擊 OK,您選擇的單元格註釋框已自動適應註釋內容。

尖端:此代碼無法自動調整您添加的新註釋框的大小。


自動調整註釋框大小以使其內容適合活動工作表或所有工作表 

你可以試試 自動調整評論 的效用 Excel的Kutools 自動調整大小活動工作表中的所有註釋框或Excel中的所有工作表。 請執行以下操作。

申請前 Excel的Kutools首先下載並安裝.

1.要自動調整註釋框的大小以使其適合活動表中的內容,請單擊 庫工具 > 更多 > 自動調整評論 > 活動表.

如果要自動調整整個工作簿中所有註釋框的大小,請單擊 庫工具 > 更多 > 自動調整評論 > 所有工作表。 看截圖:

然後,所有評論框都會自動調整大小以適合其內容。 看截圖:

筆記:

  • 1.自動調整註釋框的大小後,再次編輯註釋時,註釋框將隨內容自動擴展或縮小。
  • 2.對於您插入的新註釋,您需要再次啟用此AutoFit註釋實用程序以調整所有新插入的註釋框的大小。

  如果您想免費試用(30-day) 這個實用程序, 請點擊下載,然後按照上述步驟進行操作。


輕鬆自動調整註釋框大小以適合其內容


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (18)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
謝謝。 輕鬆快速地解決我的問題。
網站主持人對此評論進行了最小化
使用您的代碼 1. 將 xComment 作為註釋為 Application.ActiveSheet.Comments 中的每個 xComment xComment.Shape.TextFrame.AutoSize = True 下一個 2. 出現此錯誤的問題 445 對象引用範圍(“A1”).Comment.Shape。 TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape 以
網站主持人對此評論進行了最小化
它不像您發送的第一個代碼那樣工作,它只適合我想要的內容,這將使它們具有相同的寬度,長度將自動適合內容,因為這就是 H 列現在的外觀,而 A 列在寬度大小希望列 A 為三列寬和長度以適應內容並在您點擊輸入框時根據需要增長長度應該增長一行是否有代碼? 請注意,我嘗試了您上次發送的頁面的兩個關鍵代碼。
網站主持人對此評論進行了最小化
這根本不起作用。 我反復出錯。
網站主持人對此評論進行了最小化
我收到一個錯誤:運行時“1004”:對象 TextFrame 的方法 AutoSize 失敗
網站主持人對此評論進行了最小化
“VBA 代碼:工作表中的自動調整註釋框大小”處理了我的電子表格的註釋。 非常感謝!
網站主持人對此評論進行了最小化
好的! 解決了我的問題。
網站主持人對此評論進行了最小化
這確實是一個很好的有用的信息。 我很高興您與我們分享了這些有用的信息。 請像這樣讓我們保持最新狀態。 感謝分享。 kdagekebecedded
網站主持人對此評論進行了最小化
雖然代碼有效,但它使框高了一行,這意味著大註釋會在頁面外某處消失。 您能否提供用於固定每個框的寬度(比如說三個標準 Excel 列寬)並自動調整框的長度以適合文本的代碼? 謝謝。
網站主持人對此評論進行了最小化
非常感謝你。 這真的讓我免於很多麻煩。
網站主持人對此評論進行了最小化
@DENNIE“雖然代碼有效,但它使框高了一行,這意味著大註釋會在頁面外某處消失。您能否提供用於固定每個框的寬度(比如說三個標準 Excel 列寬)和自動調整的代碼框的長度以適合文本?謝謝。 // 同意
網站主持人對此評論進行了最小化
非常感謝你分享這個。 真的很有幫助!
網站主持人對此評論進行了最小化
有沒有辦法使從評論框到單元格的線更暗或更厚?
網站主持人對此評論進行了最小化
嗨德蒙德魯,
對不起,可以幫助你。
網站主持人對此評論進行了最小化
我猜水晶讓我們偏離了軌道,問題是:有沒有辦法讓評論框到單元格的線條更暗或更厚? 那將是評論框周圍的線。 TIA DD
網站主持人對此評論進行了最小化
驚人的! 謝謝,第一種方法有效! 節省了我的工作時間!
網站主持人對此評論進行了最小化
它不起作用,插入模塊不顯示
網站主持人對此評論進行了最小化
邦迪亞,

薩爾瓦德邁斯! Após abrir planilha no celular todos os comentários ficaram desajustados no pc。
Tinha mais de 10 mil 評論 pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! 奧布里加多。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護