Note: The other languages of the website are Google-translated. Back to English
English English

จะตรวจสอบและระบุดัชนีสีพื้นหลังของเซลล์ใน Excel ได้อย่างไร?

เมื่อคุณได้รับแผ่นงานที่มีเซลล์หลากสีตามภาพด้านล่างนี้ในบางกรณีคุณอาจต้องการระบุดัชนีสีพื้นหลังของเซลล์สีเหล่านี้ ไม่มีคุณลักษณะในตัวที่สามารถกำหนดดัชนีสีของเซลล์ได้ แต่ในบทความนี้ขอแนะนำรหัส VBA เพื่อแก้ปัญหานี้ใน Excel อย่างรวดเร็ว
doc กำหนดดัชนีสี 1

ระบุสีของเซลล์ด้วย VBA


ระบุสีของเซลล์ด้วย VBA

ทำตามขั้นตอนต่อไปนี้เพื่อกำหนดสีของเซลล์ด้วย VBA

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
doc กำหนดดัชนีสี 2

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
doc กำหนดดัชนีสี 3
doc กำหนดดัชนีสี 4

3. บันทึกรหัสและปิดหน้าต่าง VBA เลือกเซลล์ว่างถัดจากเซลล์สีพิมพ์สูตรนี้ = getRGB1 (A16)จากนั้นลากที่จับการป้อนอัตโนมัติบนเซลล์ที่คุณต้องการใช้ ดูภาพหน้าจอ:

doc กำหนดดัชนีสี 5
doc กำหนดดัชนีสี 6

เคล็ดลับ: มีรหัสอื่น ๆ ที่สามารถระบุดัชนีสีของเซลล์ได้

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

ผลลัพธ์:
doc กำหนดดัชนีสี 7

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

ผลลัพธ์:
doc กำหนดดัชนีสี 8


เลือกค่าที่ซ้ำกันหรือไม่ซ้ำกันอย่างรวดเร็วในช่วง Excel

ในแผ่นงาน Excel หากคุณมีช่วงที่มีแถวที่ซ้ำกันอยู่คุณอาจต้องเลือกแถวเหล่านั้นหรือโดดเด่น แต่จะแก้งานนี้ได้อย่างไร? หากคุณมี Kutools สำหรับ Excelคุณสามารถใช้ เลือกซ้ำ & เซลล์ที่ไม่ซ้ำกัน ยูทิลิตี้เพื่อเลือกรายการที่ซ้ำกันหรือค่าที่ไม่ซ้ำกันในช่วงอย่างรวดเร็วหรือเติมพื้นหลังและสีแบบอักษรสำหรับค่าที่ซ้ำกันและค่าที่ไม่ซ้ำกัน  คลิกเพื่อทดลองใช้ฟรี 30 วัน!
doc เน้นที่ซ้ำกันในคอลัมน์ 6
 
Kutools for Excel: มีโปรแกรมเสริม Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

บทความญาติ:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Excelente Post ฉันอาจดู พาราเบนส์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โกเดแดก

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
รหัสทั้งหมดตายแล้ว ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies

ฮูป ฟาน จูลลี่ เต ฮอเรน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย เว็บไซต์แปลเอง...

ฉันสงสัยว่าทำไมสิ่งนี้ใช้ไม่ได้กับเซลล์สีโดยใช้การจัดรูปแบบตามเงื่อนไข
โปรแกรมทั้งหมดในหน้านี้ให้ผลลัพธ์ "ว่าง" ดังนั้นจึงไม่มีสีเลยแม้ว่าเซลล์จะมีสีก็ตาม
ถ้าฉันระบายสีเซลล์ด้วยตัวเองแทนการจัดรูปแบบตามเงื่อนไข ฉันจะได้รับผลลัพธ์ที่ถูกต้องกลับมา แต่ฉันก็ต้องการการจัดรูปแบบตามเงื่อนไขด้วย!

หวังว่าจะได้ยินจากคุณ!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ