Bỏ qua nội dung chính

Làm thế nào để tự động kích thước hộp nhận xét để phù hợp với nội dung của nó trong Excel?

Khi bạn chèn nhận xét vào ô, kích thước của hộp nhận xét là mặc định. Nếu bạn nhập nhiều nội dung vào đó, một số nội dung sẽ không hiển thị trực tiếp. Có thể tự động điều chỉnh kích thước của hộp nhận xét với nội dung của nó không?

Kích thước hộp nhận xét tự động để phù hợp với nội dung của nó trong một trang tính
Kích thước hộp nhận xét tự động để phù hợp với nội dung của nó trong một loạt ô
Dễ dàng tự động kích thước hộp nhận xét để phù hợp với nội dung của nó trong trang tính hoạt động hoặc tất cả trang tính bằng một công cụ tuyệt vời


Kích thước hộp nhận xét tự động để phù hợp với nội dung của nó trong một trang tính

Trong Excel, bạn có thể kéo từng hộp nhận xét đến kích thước bạn cần theo cách thủ công, nhưng nếu có nhiều hộp nhận xét cần được thay đổi kích thước, cách này sẽ tẻ nhạt và tốn thời gian. Trong trường hợp này, bạn có thể áp dụng mã VBA sau.

1. Nhấn giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Mã VBA: Kích thước hộp nhận xét tự động trong trang tính

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

3. Sau đó nhấn F5 để chạy mã này và tất cả các hộp nhận xét trong trang tính đang hoạt động đã được thay đổi kích thước để phù hợp với nội dung của chúng như hình minh họa sau:

doc tự động kích thước bình luận1

Mẹo: Mã này chỉ hoạt động trong trang tính hiện tại và nó không thể tự động thay đổi kích thước các hộp nhận xét mới bạn thêm vào.


Một cú nhấp chuột để nhanh chóng điều chỉnh kích thước của hộp nhận xét với nội dung của nó một cách tự động trong Excel:

Sản phẩm Nhận xét tự động tiện ích của Kutools cho Excel có thể giúp nhanh chóng điều chỉnh kích thước của hộp nhận xét với nội dung của nó một cách tự động trong một trang tính như hình minh họa bên dưới. Tải xuống và dùng thử ngay bây giờ! (đường mòn miễn phí 30 ngày)


Kích thước hộp nhận xét tự động để phù hợp với nội dung của nó trong một loạt ô

Nếu bạn chỉ cần tự động định kích thước một loạt các hộp nhận xét ô, bạn có thể sử dụng mã VBA sau.

1. Nhấn giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Mã VBA: Kích thước hộp nhận xét tự động trong một loạt ô

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. Sau đó nhấn F5 để thực thi mã này và một hộp nhắc nhở sẽ xuất hiện để nhắc bạn chọn một dải ô mà bạn muốn thay đổi kích thước các hộp nhận xét, hãy xem ảnh chụp màn hình:

doc-thay đổi kích thước-bình luận-box3

4. Và sau đó nhấp vào OK, các hộp nhận xét ô đã chọn của bạn đã được tự động điều chỉnh cho phù hợp với nội dung nhận xét.

Mẹo: Mã này không thể tự động thay đổi kích thước các hộp nhận xét mới mà bạn thêm vào.


Kích thước hộp nhận xét tự động để phù hợp với nội dung của nó trong trang tính hoạt động hoặc tất cả trang tính 

Bạn có thể thử Tự động bổ sung nhận xét tiện ích của Kutools cho Excel để tự động thay đổi kích thướcSẽ có các hộp nhận xét trong trang tính hiện hoạt hoặc tất cả các trang tính trong Excel. Hãy làm như sau.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Để các hộp nhận xét tự động thay đổi kích thước để phù hợp với nội dung của chúng trong trang tính hiện hoạt, vui lòng nhấp vào Kutools > Hơn > Tự động bổ sung nhận xét > Bảng hoạt động.

Và nếu bạn muốn tự động thay đổi kích thước tất cả các hộp nhận xét trong toàn bộ sổ làm việc, vui lòng nhấp vào Kutools > Hơn > Tự động bổ sung nhận xét > Tất cả các trang tính. Xem ảnh chụp màn hình:

Sau đó, tất cả các hộp nhận xét được tự động thay đổi kích thước để phù hợp với nội dung của chúng. Xem ảnh chụp màn hình:

Chú ý:

  • 1. Sau khi tự động thay đổi kích thước các ô bình luận, khi chỉnh sửa lại bình luận, ô bình luận sẽ tự động mở rộng hoặc thu nhỏ theo nội dung.
  • 2. Đối với các nhận xét mới bạn đã chèn, bạn cần bật lại tiện ích Tự động bổ sung nhận xét này để thay đổi kích thước tất cả các hộp nhận xét mới được chèn.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Dễ dàng tự động điều chỉnh kích thước hộp nhận xét để phù hợp với nội dung của nó


Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations