ไปยังเนื้อหาหลัก

วิธีปรับขนาดกล่องความคิดเห็นอัตโนมัติให้พอดีกับเนื้อหาใน 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:

พื้นที่ ใส่ความคิดเห็นอัตโนมัติ ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยปรับขนาดของช่องแสดงความคิดเห็นให้พอดีกับเนื้อหาได้อย่างรวดเร็วโดยอัตโนมัติในแผ่นงานดังตัวอย่างด้านล่างที่แสดง ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 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 คีย์เพื่อรันโค้ดนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงของเซลล์ที่คุณต้องการปรับขนาดกล่องความคิดเห็นดูภาพหน้าจอ:

doc-resize-comment-box3

4. จากนั้นคลิก OKกล่องความคิดเห็นของเซลล์ที่คุณเลือกได้รับการปรับให้พอดีกับเนื้อหาความคิดเห็นโดยอัตโนมัติ

ปลาย: รหัสนี้ไม่สามารถปรับขนาดกล่องความคิดเห็นใหม่ที่คุณเพิ่มโดยอัตโนมัติ


ขนาดช่องแสดงความคิดเห็นอัตโนมัติเพื่อให้พอดีกับเนื้อหาในแผ่นงานที่ใช้งานอยู่หรือแผ่นงานทั้งหมด 

คุณสามารถลองใช้ไฟล์ ปรับแต่งความคิดเห็นอัตโนมัติ ประโยชน์ของ Kutools สำหรับ Excel เพื่อปรับขนาดไฟล์จะแสดงความคิดเห็นในแผ่นงานที่ใช้งานอยู่หรือแผ่นงานทั้งหมดใน Excel กรุณาดำเนินการดังนี้

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. สำหรับการปรับขนาดช่องแสดงความคิดเห็นโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหาในแผ่นงานที่ใช้งานอยู่โปรดคลิก Kutools > More > ปรับแต่งความคิดเห็นอัตโนมัติ > แผ่นงานที่ใช้งานอยู่.

และถ้าคุณต้องการปรับขนาดกล่องความคิดเห็นทั้งหมดในสมุดงานทั้งหมดโดยอัตโนมัติโปรดคลิก Kutools > More > ปรับแต่งความคิดเห็นอัตโนมัติ > แผ่นงานทั้งหมด. ดูภาพหน้าจอ:

จากนั้นช่องแสดงความคิดเห็นทั้งหมดจะถูกปรับขนาดโดยอัตโนมัติเพื่อให้พอดีกับเนื้อหา ดูภาพหน้าจอ:

หมายเหตุ / รายละเอียดเพิ่มเติม:

  • 1. หลังจากปรับขนาดช่องแสดงความคิดเห็นโดยอัตโนมัติแล้วเมื่อแก้ไขความคิดเห็นอีกครั้งกล่องความคิดเห็นจะขยายหรือย่อโดยอัตโนมัติพร้อมกับเนื้อหา
  • 2. สำหรับความคิดเห็นใหม่ที่คุณแทรกคุณต้องเปิดใช้งานยูทิลิตีความคิดเห็นพอดีอัตโนมัตินี้อีกครั้งเพื่อปรับขนาดกล่องความคิดเห็นที่แทรกใหม่

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


ปรับขนาดช่องแสดงความคิดเห็นอัตโนมัติได้อย่างง่ายดายเพื่อให้พอดีกับเนื้อหา


บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

kte แท็บ 201905


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
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