Bỏ qua nội dung chính

Làm thế nào để đặt lại tất cả các vị trí nhận xét trong Excel?

Trong một trang tính có nhiều nhận xét, đôi khi, chúng ta cần phải điều chỉnh hoặc di chuyển vị trí hộp nhận xét để xem nội dung ô phía sau hộp nhận xét, trong trường hợp này, các hộp nhận xét sẽ được chuyển đến các vị trí khác nhau. Sau khi kết thúc thao tác, bạn cần trả các hộp nhận xét về vị trí ban đầu, làm thế nào bạn có thể đặt lại tất cả các vị trí nhận xét cùng một lúc trong Excel?

Đặt lại tất cả các vị trí hộp nhận xét bằng mã VBA trong Excel
Một cú nhấp chuột để đặt lại tất cả các vị trí hộp nhận xét với Kutools cho Excel


Đặt lại tất cả các vị trí hộp nhận xét bằng mã VBA trong Excel

Bạn có thể áp dụng mã VBA sau để khôi phục tất cả các hộp nhận xét về vị trí ban đầu của chúng cùng một lúc.

1. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

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

Mã VBA: Đặt lại tất cả các vị trí nhận xét trong trang tính đang hoạt động

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Sau đó nhấn F5 để chạy mã này và tất cả các vị trí nhận xét trong trang tính đang hoạt động đã được đặt lại cùng một lúc. Xem ảnh chụp màn hình:

doc-reset-bình luận-1
-1
doc-reset-bình luận-2

Đặt lại tất cả các vị trí hộp nhận xét chỉ với một cú nhấp chuột

Ở đây chúng tôi giới thiệu Đặt lại vị trí nhận xét tiện ích của Kutools cho Excel. Với tiện ích này, bạn có thể nhanh chóng đặt lại tất cả các vị trí nhận xét trong trang tính hiện hoạt hoặc tất cả các trang tính chỉ bằng một cú nhấp chuột.

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. Nếu bạn chỉ muốn đặt lại tất cả vị trí hộp nhận xét trong trang tính hiện hoạt, vui lòng nhấp vào Kutools > Hơn > Đặt lại vị trí nhận xét > Bảng hoạt động.

Để đặt lại tất cả vị trí hộp nhận xét trong tất cả các trang của sổ làm việc hiện tại, vui lòng nhấp vào Kutools > Hơn > Đặt lại vị trí nhận xét > Tất cả các trang tính. Xem ảnh chụp màn hình:

Sau khi nhấp vào Trang tính hiện hoạt hoặc Tất cả trang tính, tất cả các vị trí nhận xét trong trang tính hiện hoạt hoặc tất cả các trang tính sẽ được đặt lại về vị trí ban đầu ngay lập tức.

  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.


Một cú nhấp chuột để đặt lại tất cả các vị trí hộp nhận xét với Kutools cho Excel


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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations