วิธีเปลี่ยนสีรูปร่างตามค่าเซลล์ใน Excel

การเปลี่ยนสีรูปร่างตามค่าของเซลล์เฉพาะอาจเป็นงานที่น่าสนใจใน Excel เช่นถ้าค่าของเซลล์ใน A1 น้อยกว่า 100 สีของรูปร่างจะเป็นสีแดงถ้า A1 มากกว่า 100 และน้อยกว่า 200 สีรูปร่างเป็นสีเหลืองและเมื่อ A1 มากกว่า 200 สีของรูปร่างจะเป็นสีเขียวดังภาพต่อไปนี้ หากต้องการเปลี่ยนสีของรูปร่างตามค่าของเซลล์บทความนี้จะแนะนำวิธีการสำหรับคุณ

เปลี่ยนสีรูปร่างตามค่าของเซลล์ด้วยรหัส VBA

เปลี่ยนสีรูปร่างตามค่าของเซลล์ด้วยรหัส VBA

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

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

รหัส VBA: เปลี่ยนสีรูปร่างตามค่าของเซลล์:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

2. จากนั้นเมื่อคุณป้อนค่าในเซลล์ A1 สีของรูปร่างจะเปลี่ยนไปพร้อมกับค่าของเซลล์ตามที่คุณกำหนด

หมายเหตุ: ในโค้ดด้านบน A1 คือค่าเซลล์สีรูปร่างของคุณจะเปลี่ยนไปตามและค่า รี 1 คือชื่อรูปร่างของรูปร่างที่คุณแทรกคุณสามารถเปลี่ยนได้ตามต้องการ