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

วิธีเปลี่ยนรูปแบบความคิดเห็นทั้งหมดในเซลล์ใน Excel

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

เปลี่ยนรูปแบบความคิดเห็นทั้งหมดด้วยรหัส VBA

เครื่องมือที่มีประโยชน์ในการเปลี่ยนรูปแบบความคิดเห็นทั้งหมดอย่างรวดเร็วและประหยัดเวลา


ลูกศรสีฟ้าฟองขวา เปลี่ยนรูปแบบความคิดเห็นทั้งหมดด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถเปลี่ยนขนาดแบบอักษรและแบบอักษรของความคิดเห็นในเซลล์ได้ แต่ไม่สามารถเปลี่ยนสีแบบอักษรได้ โปรดใช้ VBA ต่อไปนี้เป็น:

1. คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะปรากฏขึ้นให้คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางรหัสต่อไปนี้ในโมดูล:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

ในรหัสด้านบนคุณสามารถตั้งค่าไฟล์ .ชื่อ และ .ขนาด ตัวแปรตามที่คุณต้องการ

2. จากนั้นคลิก doc-เปลี่ยนความคิดเห็น-รูปแบบ-1 ปุ่มเพื่อเรียกใช้รหัส จากนั้นคลิก รีวิว > แสดงความคิดเห็นทั้งหมด เพื่อดูความคิดเห็นรูปแบบความคิดเห็นทั้งหมดในสมุดงานทั้งหมดได้รับการเปลี่ยนแปลง ดูภาพหน้าจอ:

เอกสารเปลี่ยนความคิดเห็นรูปแบบ1 -2 เอกสารเปลี่ยนความคิดเห็นรูปแบบ2

ลูกศรสีฟ้าฟองขวา เครื่องมือที่มีประโยชน์ในการเปลี่ยนรูปแบบความคิดเห็นทั้งหมดอย่างรวดเร็วและประหยัดเวลา

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

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

หลังจากติดตั้ง Kutools for Excel แล้วโปรดทำตามขั้นตอนต่อไปนี้เพื่อเปลี่ยนรูปแบบความคิดเห็น:

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

2. คลิก Kutools > More > จัดรูปแบบความคิดเห็นดูภาพหน้าจอ:

3. ใน จัดรูปแบบความคิดเห็น คลิกตกลง รูปแบบ และเลือกขอบเขตที่คุณต้องการเปลี่ยนรูปแบบความคิดเห็นคุณสามารถเลือกได้ แผ่นงานที่ใช้งานอยู่ or แผ่นงานทั้งหมด. จากนั้นคลิก ระบุเซลล์ข้อคิดเห็น เพื่อเลือกเซลล์ที่มีรูปแบบข้อคิดเห็นเฉพาะที่คุณต้องการใช้ จากนั้นกล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อบอกจำนวนเซลล์ที่เปลี่ยนแปลง ดูภาพหน้าจอ:

4. จากนั้นคลิก Ok > ยกเลิก เพื่อปิดกล่องโต้ตอบและรูปแบบความคิดเห็นของเซลล์ที่เลือกถูกนำไปใช้กับความคิดเห็นอื่น ๆ

หมายเหตุ:

หากคุณไม่ต้องการใช้รูปแบบตัวอักษรตัวหนาในเซลล์ความคิดเห็นทั้งหมดโปรดตรวจสอบ บังคับใช้การจัดรูปแบบที่ไม่เป็นตัวหนา ตัวเลือก

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ จัดรูปแบบความคิดเห็น กรุณาเยี่ยมชม รูปแบบคำอธิบายคุณลักษณะความคิดเห็น.


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

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

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

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

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations