วิธีปรับขนาดกล่องความคิดเห็นอัตโนมัติให้พอดีกับเนื้อหาใน 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 กุญแจสำคัญในการเรียกใช้รหัสนี้และกล่องความคิดเห็นทั้งหมดในแผ่นงานที่ใช้งานได้ถูกปรับขนาดให้พอดีกับเนื้อหาดังภาพหน้าจอต่อไปนี้

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

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

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

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

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

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

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

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

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

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

หมายเหตุ : :

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

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

• จะเปลี่ยนรูปร่างของกล่องความคิดเห็นใน Excel ได้อย่างไร?
• วิธีเปลี่ยนรูปแบบความคิดเห็นทั้งหมดในเซลล์ใน Excel
• วิธีแสดงความคิดเห็นทั้งหมดในแผ่นงานหรือสมุดงานใหม่ใน Excel
• วิธีแทรกรูปภาพหรือรูปภาพในความคิดเห็นใน Excel