วิธีเปลี่ยนสีตัวบ่งชี้ความคิดเห็นใน Excel
ใน Excel หลังจากแทรกข้อคิดเห็นแล้วตัวบ่งชี้สามเหลี่ยมสีแดงเล็ก ๆ จะปรากฏที่มุมขวาบนของเซลล์ ผู้ใช้ Excel หลายคนอาจสงสัยว่าสีตัวบ่งชี้สีแดงสามารถเปลี่ยนเป็นสีอื่นที่พวกเขาชอบได้หรือไม่ ในบทความนี้ฉันจะพูดถึงวิธีแก้ปัญหาเพื่อทำงานนี้ให้เสร็จ
เปลี่ยนสีตัวบ่งชี้ความคิดเห็นด้วยรหัส VBA
เปลี่ยนสีตัวบ่งชี้ความคิดเห็นด้วยรหัส VBA
ไม่มีวิธีโดยตรงที่เราจะเปลี่ยนสีของตัวบ่งชี้ความคิดเห็นได้อย่างรวดเร็วและง่ายดาย แต่รหัส VBA ต่อไปนี้สามารถช่วยให้คุณวาดรูปสามเหลี่ยมซ้อนทับตัวบ่งชี้ความคิดเห็นแต่ละรายการด้วยสีเฉพาะที่คุณต้องการบนแผ่นงานที่ใช้งานอยู่
1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการเปลี่ยนสีตัวบ่งชี้ความคิดเห็น
2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: เปลี่ยนสีตัวบ่งชี้ความคิดเห็นในแผ่นงานที่ใช้งานอยู่
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. หลังจากวางรหัสแล้วให้กด F5 กุญแจสำคัญในการรันโค้ดและตัวบ่งชี้สามเหลี่ยมสีแดงทั้งหมดจะถูกปิดด้วยสามเหลี่ยมสีน้ำเงินดังภาพหน้าจอต่อไปนี้ที่แสดง:
 |
 |
 |
หมายเหตุ:
1. ในโค้ดด้านบนคุณสามารถเปลี่ยนสีน้ำเงินเป็นสีที่ชอบได้โดยเพียงแค่เปลี่ยนดัชนีสีในสคริปต์ .Fill.ForeColor.SchemeColor = 12.
2. รูปร่างสามเหลี่ยมที่คุณเพิ่มโดยด้านบน VBA จะเปลี่ยนขนาดเมื่อคุณปรับขนาดเซลล์
3. หากคุณต้องการลบรูปสามเหลี่ยมสีทั้งหมดทันทีรหัส VBA ต่อไปนี้จะช่วยคุณได้:
รหัส VBA: ลบรูปทรงสามเหลี่ยมเหนือตัวบ่งชี้ความคิดเห็น
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
บทความที่เกี่ยวข้อง:
วิธีเน้นเซลล์ทั้งหมดด้วยความคิดเห็นใน Excel
จะแสดงหรือซ่อนความคิดเห็นและตัวบ่งชี้ความคิดเห็นทั้งหมดใน Excel ได้อย่างไร?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
