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

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:

Mô hình 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à thử ngay bây giờ! (30-ngày đường mòn miễn phí)


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-resize-comment-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-day) của 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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (18)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn. Giải pháp dễ dàng và nhanh chóng cho vấn đề của tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sử dụng mã của bạn 1. Dim xComment As Comment Cho Mỗi xComment Trong Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. vấn đề với lỗi này xảy ra 445 đối tượng tham chiếu With Range ("A1"). Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape End With
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó không hoạt động giống như mã đầu tiên bạn gửi, nó chỉ phù hợp với nội dung mà tôi muốn là thứ gì đó sẽ làm cho tất cả chúng có cùng chiều rộng và chiều dài sẽ tự động phù hợp với nội dung vì đây là cách cột H trông ngay bây giờ và cột A thay đổi trong kích thước chiều rộng muốn cột A có chiều rộng và chiều dài ba cột để phù hợp với nội dung và phát triển khi cần thiết khi bạn nhấn enter, chiều dài hộp sẽ tăng lên một dòng. Có mã cho điều đó không? lưu ý rằng tôi đã thử cả hai key cod mà trang bạn gửi lần trước.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
điều này đã không hoạt động ở tất cả. Tôi đã gặp lỗi liên tục.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp lỗi: Thời gian chạy '1004': Phương pháp Tự động kích thước của đối tượng TextFrame không thành công
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
"Mã VBA: Các hộp nhận xét tự động định kích thước trong một trang tính" đã xử lý các nhận xét trên bảng tính của tôi. Cám ơn rất nhiều!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tốt! Đã giải quyết vấn đề của tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đó thực sự là một thông tin hay và hữu ích. Tôi rất vui vì bạn đã chia sẻ thông tin hữu ích này với chúng tôi. Hãy giữ cho chúng tôi được cập nhật như thế này. Cám ơn vì đã chia sẻ. kdagekebeceddded
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong khi mã hoạt động, nó làm cho hộp cao một dòng có nghĩa là các bình luận lớn sẽ biến mất khỏi trang ở đâu đó. Bạn có thể cung cấp mã để sửa chiều rộng của mỗi hộp (giả sử ba chiều rộng cột tiêu chuẩn của Excel) và tự động điều chỉnh chiều dài của hộp để vừa với văn bản không? Thanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều. Điều này thực sự đã cứu tôi khỏi rất nhiều phức tạp.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
@DENNIE "Trong khi mã hoạt động, nó làm cho hộp cao một dòng có nghĩa là các nhận xét lớn biến mất khỏi trang ở đâu đó. Bạn có thể cung cấp mã để sửa chiều rộng của mỗi hộp (giả sử ba chiều rộng cột Excel tiêu chuẩn) và tự động điều chỉnh không chiều dài của hộp để phù hợp với văn bản? Cảm ơn. " // Đã đồng ý
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì đã chia sẻ điều này. Thực sự hữu ích!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để làm cho đường từ hộp nhận xét đến ô tối hơn hoặc béo hơn không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Demondrew,
Xin lỗi có thể giúp bạn vì điều đó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đoán Crystal đã khiến chúng ta đi chệch hướng với câu hỏi là: Có cách nào làm cho đường từ hộp nhận xét đến ô tối hơn hoặc béo hơn không? Đó sẽ là dòng bao quanh hộp nhận xét. TIA DD
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
kinh ngạc! cảm ơn bạn, cách đầu tiên hoạt động! đã tiết kiệm cho tôi hàng giờ làm việc!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó không hoạt động, mô-đun chèn không hiển thị
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bom-dia,

Salvou de mais! Có thể lập kế hoạch không có tất cả các mạng di động để bình luận về các sự cố không có máy tính.
Hơn nữa, 10 triệu bình luận đã được ghi lại trong tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL