จะตรวจสอบและระบุดัชนีสีพื้นหลังของเซลล์ใน Excel ได้อย่างไร?
เมื่อคุณได้รับแผ่นงานที่มีเซลล์หลากสีตามภาพด้านล่างนี้ในบางกรณีคุณอาจต้องการระบุดัชนีสีพื้นหลังของเซลล์สีเหล่านี้ ไม่มีคุณลักษณะในตัวที่สามารถกำหนดดัชนีสีของเซลล์ได้ แต่ในบทความนี้ขอแนะนำรหัส VBA เพื่อแก้ปัญหานี้ใน Excel อย่างรวดเร็ว
ระบุสีของเซลล์ด้วย VBA
ทำตามขั้นตอนต่อไปนี้เพื่อกำหนดสีของเซลล์ด้วย VBA
1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อเปิดไฟล์ โมดูล และวางโค้ด VBA ด้านล่างลงในสคริปต์เปล่า ดูภาพหน้าจอ:
VBA: รับรหัสฐานสิบหกแบบดั้งเดิมของเซลล์
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. บันทึกรหัสและปิดหน้าต่าง VBA เลือกเซลล์ว่างถัดจากเซลล์สีพิมพ์สูตรนี้ = getRGB1 (A16)จากนั้นลากที่จับการป้อนอัตโนมัติบนเซลล์ที่คุณต้องการใช้ ดูภาพหน้าจอ:
 |
 |
เคล็ดลับ: มีรหัสอื่น ๆ ที่สามารถระบุดัชนีสีของเซลล์ได้
1. VBA: ค่าทศนิยมสำหรับแต่ละรหัส
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Functionผลลัพธ์:
2. VBA: ค่าทศนิยม
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End Functionผลลัพธ์:
เลือกค่าที่ซ้ำกันหรือไม่ซ้ำกันอย่างรวดเร็วในช่วง Excel |
| ในแผ่นงาน Excel หากคุณมีช่วงที่มีแถวที่ซ้ำกันอยู่คุณอาจต้องเลือกแถวเหล่านั้นหรือโดดเด่น แต่จะแก้งานนี้ได้อย่างไร？ หากคุณมี Kutools สำหรับ Excelคุณสามารถใช้ เลือกซ้ำ & เซลล์ที่ไม่ซ้ำกัน ยูทิลิตี้เพื่อเลือกรายการที่ซ้ำกันหรือค่าที่ไม่ซ้ำกันในช่วงอย่างรวดเร็วหรือเติมพื้นหลังและสีแบบอักษรสำหรับค่าที่ซ้ำกันและค่าที่ไม่ซ้ำกัน คลิกเพื่อทดลองใช้ฟรี 30 วัน! |
 |
| Kutools for Excel: มีโปรแกรมเสริม Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน |
บทความญาติ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
