จะเปลี่ยนสีแท็บแผ่นงานตามค่าของเซลล์ได้อย่างไร?
โดยปกติคุณสามารถเปลี่ยนสีแท็บได้อย่างง่ายดายและรวดเร็วใน Excel แต่คุณเคยพยายามเปลี่ยนสีแท็บตามค่าของเซลล์ในแผ่นงานหรือไม่? หากคุณสนใจในงานนี้ฉันจะพูดถึงรหัสบางอย่างเพื่อให้คุณระบายสีแท็บแผ่นงานตามค่าเซลล์เฉพาะใน Excel
เปลี่ยนสีแท็บแผ่นเดียวตามค่าของเซลล์ด้วยรหัส VBA
เปลี่ยนแท็บแผ่นงานหลายแผ่นตามค่าของเซลล์ด้วยรหัส VBA
เปลี่ยนสีแท็บแผ่นเดียวตามค่าของเซลล์ด้วยรหัส VBA
ตัวอย่างเช่นฉันต้องการให้สีแท็บแผ่นงานปัจจุบันเป็นสีเขียวหากค่าของเซลล์ใน A1 เป็นข้อความ“ TRUE” สีของแท็บจะเป็นสีแดงหากข้อความใน A1 เป็น“ FALSE” และสีของแท็บจะเป็นสีน้ำเงินหาก ค่าในเซลล์ A1 คือข้อความอื่น ๆ ตามภาพหน้าจอต่อไปนี้:
1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเปลี่ยนสีตามข้อมูลในเซลล์ A1 แล้วเลือก ดูรหัส จากเมนูบริบท
2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง
รหัส VBA: เปลี่ยนสีแท็บแผ่นเดียวตามค่าของเซลล์:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
หมายเหตุ ในโค้ดด้านบน A1 คือการอ้างอิงเซลล์ที่คุณต้องการให้สีของแท็บตาม "จริง","เท็จ” คือข้อความที่คุณต้องการคุณสามารถเปลี่ยนได้ตามความต้องการและคุณสามารถเปลี่ยนสีในรหัสได้ตามต้องการ
3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณป้อนข้อความ“ จริง” ในเซลล์ A1 สีของแท็บปัจจุบันจะกลายเป็นสีเขียวและเมื่อคุณป้อนข้อความ“ เท็จ” ในเซลล์ A1 สีของแท็บจะกลายเป็นสีแดง และหากป้อนข้อความอื่นในเซลล์ A1 สีของแท็บจะกลายเป็นสีน้ำเงินโดยอัตโนมัติ
เปลี่ยนแท็บแผ่นงานหลายแผ่นตามค่าของเซลล์ด้วยรหัส VBA
หากคุณต้องการเปลี่ยนสีแท็บแผ่นงานหลายแท็บตามค่าของเซลล์นี่คือรหัสที่อาจช่วยคุณได้โปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน ในหน้าต่างที่เปิดอยู่ให้ดับเบิลคลิก สมุดงานนี้ ภายใต้ โครงการ VBA จากนั้นคัดลอกและวางโค้ดด้านล่างลงในช่องว่าง โมดูล:
รหัส VBA: เปลี่ยนแท็บแผ่นงานหลายแผ่นตามค่าของเซลล์:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
หมายเหตุ ในโค้ดด้านบน A1 และ Master คือเซลล์และแผ่นงานที่คุณต้องการให้สีของแท็บเป็นไปตาม Sheet1, Sheet2, Sheet3 คือแผ่นงานที่คุณต้องการให้สีของแท็บ KTE, เค.ที.ดับบลิว, องค์การอนามัยโลก คือค่าของเซลล์ใน A1 ที่คุณต้องการเปลี่ยนสีให้กับแท็บคุณสามารถเปลี่ยนการอ้างอิงและสีในโค้ดได้ตามต้องการ
2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณป้อนข้อความ KTE ในเซลล์ A1 ของแผ่นงานหลักแท็บ Sheet1 จะเป็นสีแดงเมื่อคุณป้อน KTO ในเซลล์ A1 Sheet2 จะเป็นสีเขียวและเมื่อ คุณป้อน KTW ในเซลล์ A1 แล้ว Sheet3 จะเป็นสีฟ้าดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!