วิธีเปลี่ยนค่าตามสีของเซลล์ใน Excel
บทความนี้พูดถึงการเปลี่ยนค่าของเซลล์โดยอัตโนมัติตามสีพื้นหลังใน Excel ตัวอย่างเช่นหากเซลล์เติมสีพื้นหลังสีแดงในส่วนที่เลือกจากนั้นเติมข้อมูลในเซลล์เหล่านี้ด้วยหมายเลข 1 และสำหรับเซลล์สีพื้นหลังสีน้ำเงินให้กรอกหมายเลข 0
เปลี่ยนค่าตามสีของเซลล์ด้วยรหัส VBA
เปลี่ยนค่าตามสีของเซลล์ด้วยรหัส VBA
คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อเปลี่ยนค่าตามสีของเซลล์ใน Excel กรุณาดำเนินการดังนี้
1. เลือกช่วงที่คุณต้องการเปลี่ยนค่าตามสีพื้นหลังจากนั้นกด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: เปลี่ยนค่าตามสีของเซลล์ใน Excel
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
3 กด F5 คีย์เพื่อเรียกใช้รหัสจากนั้นคุณจะเห็นเซลล์สีแดงทั้งหมดในช่วงที่เลือกเต็มไปด้วยหมายเลข 1 และเซลล์สีน้ำเงินจะเต็มไปด้วยหมายเลข 0 ตามภาพด้านล่างที่แสดง
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!