รวมเซลล์ตามสีตัวอักษรใน Excel อย่างง่ายดาย – 2 วิธีที่พิสูจน์แล้ว

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

คุณสามารถดาวน์โหลดสมุดงานฝึกฝนจากปุ่มดาวน์โหลดด้านล่าง

2 วิธีที่มีประสิทธิภาพสำหรับการ Sum ตามสีตัวอักษรใน Excel

1. Sum ตามสีตัวอักษรด้วย SUBTOTAL และ Filter

สมมติว่าคุณมีชุดข้อมูลที่มีสีตัวอักษรหลากหลายในคอลัมน์เดียวดังนี้ วิธีนี้อาจเป็นวิธีที่ดีที่สุดในการรวมค่าเหล่านั้นตามสีตัวอักษร ทำตามขั้นตอนด้านล่างเพื่อใช้วิธีนี้

📌 ขั้นตอน

• ก่อนอื่น ใส่สูตรต่อไปนี้ในเซลล์ C13 ตัวเลข 9 ในสูตรหมายถึงฟังก์ชัน SUM มันเปิดใช้งานฟังก์ชัน SUBTOTAL ให้ส่งคืนผลรวมของช่วงที่ต้องการ

• ตอนนี้ เลือกที่ใดที่หนึ่งในชุดข้อมูล จากนั้น กด CTRL+SHIFT+L เพื่อใช้ Filter บนชุดข้อมูล หลังจากนั้น คุณจะเห็นปุ่มตัวกรองที่มุมขวาล่างของเซลล์หัวข้อตามภาพด้านล่าง

• ตอนนี้ กรองชุดข้อมูลตามสีเฉพาะโดยใช้ปุ่มตัวกรองตามภาพด้านล่าง

• จากนั้น คุณจะได้ผลลัพธ์ดังนี้

อ่านเพิ่มเติม: วิธี Sum เซลล์ที่กรองแล้วใน Excel (5 วิธีที่เหมาะสม)

บทความที่คล้ายกัน

• วิธี Sum เซลล์ที่เลือกใน Excel (4 วิธีง่าย)
• Sum ถึงท้ายคอลัมน์ใน Excel (8 วิธีที่มีประโยชน์)
• วิธี Sum คอลัมน์ใน Excel (7 วิธี)
• [แก้ไขแล้ว!] สูตร Excel SUM ไม่ทำงานและคืนค่า 0 (3 วิธีแก้)
• วิธี Sum หลายแถวใน Excel (4 วิธีรวดเร็ว)

2. Sum ตามสีตัวอักษรด้วย User Defined Function (UDF) ใน Excel

วิธีก่อนหน้านี้จะไม่ทำงานหากคุณมีชุดข้อมูลแบบนี้ คุณสามารถใช้ User Defined Function (UDF) แทน ทำตามขั้นตอนด้านล่างเพื่อทำเช่นนั้น

📌 ขั้นตอน

• ก่อนอื่น บันทึกสมุดงานเป็น macro-enabled workbook ต่อไป กด ALT+F11 เพื่อเปิดหน้าต่าง VBA จากนั้น เลือก Insert >> Module ตามภาพด้านล่าง นี่จะสร้างโมดูลว่างใหม่

• หลังจากนั้น คัดลอกโค้ดที่ให้ด้านล่าง

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range) Dim cell_color, sum_color As Long Dim Cell As Range Application.Volatile sum_color = 0 cell_color = ref_color.Font.ColorIndex For Each Cell In sum_range If cell_color = Cell.Font.ColorIndex Then sum_cell = WorksheetFunction.Sum(Cell, sum_cell) End If Next Cell SUMBYFONTCOLOR = sum_cell End Function

• ตอนนี้ วางโค้ดที่คัดลอกไว้ลงในหน้าต่างโมดูลดังนี้

• หลังจากนั้น กลับไปที่แผ่นงานของคุณ จากนั้น เขียนชื่อสีที่ต้องการในเซลล์ I5:I9 ต่อไป เปลี่ยนสีตัวอักษรของพวกมันให้ตรงกัน
• ตอนนี้ ใส่สูตรต่อไปนี้ในเซลล์ J5 จากนั้น ใช้ Fill Handle icon เพื่อใช้สูตรกับเซลล์ด้านล่าง

สุดท้าย คุณจะได้ผลลัพธ์ดังนี้ 👇

ตอนนี้ หากคุณเปลี่ยนสีตัวอักษรของเซลล์ใดๆ ภายในช่วง ผลลัพธ์จะไม่อัปเดต คุณต้องดับเบิลคลิกที่เซลล์แล้วคลิกออกไปเพื่อบังคับให้คำนวณใหม่ หรือคุณสามารถกด CTRL+ALT+F9 เพื่อผลลัพธ์เดียวกัน

• ตอนนี้ คัดลอกโค้ดต่อไปนี้หากคุณไม่ต้องการทำทั้งสองอย่าง

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A:Z")) Is Nothing Then ActiveSheet.Calculate End If End Sub

• จากนั้น กลับไปที่หน้าต่าง VBA ต่อไป คลิกสองครั้งที่แผ่นงานชื่อ UDF จะเปิดหน้าต่างว่าง หลังจากนั้น วางโค้ดที่คัดลอกไว้ลงในหน้าต่างนั้นตามภาพต่อไปนี้

ตอนนี้ คุณสามารถเปลี่ยนสีตัวอักษรและคลิกออกไปเพื่ออัปเดตผลลัพธ์ได้

คำอธิบายโค้ด VBA

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
ฟังก์ชันสาธารณะนี้จะรับอาร์กิวเมนต์ 2 ตัว อาร์กิวเมนต์ ref_color จะรับสีตัวอักษรจากเซลล์อ้างอิง เราจะรวมค่าเซลล์ตามสีตัวอักษรของพวกมันภายในช่วงที่อ้างอิงโดยอาร์กิวเมนต์ sum_range

Dim cell_color, sum_color As Long
Dim Cell As Range
ประกาศตัวแปรที่จำเป็น

Application.Volatile
บรรทัดโค้ดนี้บังคับให้ Excel คำนวณใหม่ทุกครั้งที่ผู้ใช้ทำการเปลี่ยนแปลงใดๆ

sum_color = 0
กำหนดค่าเริ่มต้นสำหรับตัวแปร

cell_color = ref_color.Font.ColorIndex
ตัวแปร cell_color เก็บสีตัวอักษรของเซลล์ที่อ้างอิงโดยอาร์กิวเมนต์ ref_color

For Each Cell In sum_range
ลูป For นี้จะดำเนินการบรรทัดโค้ดถัดไปผ่านแต่ละเซลล์ภายในช่วงที่อ้างอิงโดยอาร์กิวเมนต์ sum_range

If cell_color = Cell.Font.ColorIndex Then
ก็ต่อเมื่อสีตัวอักษรของเซลล์ภายใน sum_range ตรงกับสีตัวอักษรของเซลล์ที่อ้างอิงโดยอาร์กิวเมนต์ ref_color บรรทัดโค้ดถัดไปจึงจะทำงาน

sum_cell = WorksheetFunction.Sum(Cell, sum_cell)
บรรทัดโค้ดนี้เปิดใช้งานฟังก์ชัน SUM เพื่อบวกค่าเซลล์ที่มีสีตัวอักษรตรงกัน

SUMBYFONTCOLOR = sum_cell
บรรทัดโค้ดนี้เก็บผลรวมไว้ เพื่อให้ฟังก์ชันสามารถคืนค่านี้ได้

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ขั้นตอนส่วนตัวนี้ทำงานก็ต่อเมื่อมีการเปลี่ยนแปลงใดๆ เกิดขึ้นภายในแผ่นงานเฉพาะนั้น

If Not Intersect(Target, Range(“A:Z”)) Is Nothing Then
บรรทัดโค้ดนี้รับรองว่าบรรทัดโค้ดถัดไปจะทำงานก็ต่อเมื่อผู้ใช้ทำการเปลี่ยนแปลงภายในช่วงที่กำหนด (A:Z)

ActiveSheet.Calculate
บังคับให้คำนวณสูตรทั้งหมดภายในแผ่นงานที่ใช้งานอยู่ใหม่ เพื่อให้การเปลี่ยนแปลงได้รับการอัปเดต

อ่านเพิ่มเติม: วิธี Sum ช่วงเซลล์ในแถวโดยใช้ Excel VBA (6 วิธีง่าย)

สิ่งที่ต้องจำ

• อย่าลืมดับเบิลคลิกเซลล์และคลิกออกไปเพื่อดูผลลัพธ์ที่อัปเดต หากคุณเปลี่ยนสีตัวอักษร หรือคุณต้องกด CTRL+SHIFT+F9 สำหรับสิ่งนั้น
• คุณต้องคลิกออกไปภายในช่วงที่กำหนด (A:Z) เพื่ออัปเดตผลลัพธ์หลังจากเปลี่ยนสีตัวอักษร

สรุป

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

บทความที่เกี่ยวข้อง

• วิธี Sum เซลล์ที่มีสีใน Excel (4 วิธี)
• Sum Cells in Excel: Continuous, Random, With Criteria, etc.
• วิธี Sum เซลล์ที่มีสีใน Excel โดยไม่ใช้ VBA (7 วิธี)
• บวกตัวเลขใน Excel (2 วิธีง่าย)
• วิธี Sum หลายแถวและคอลัมน์ใน Excel