วิธีการนับเซลล์ด้วยข้อความเฉพาะและเติม / สีแบบอักษรใน Excel

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

นับเซลล์ด้วยข้อความเฉพาะและเติมสีด้วยรหัส VBA
นับเซลล์ด้วยข้อความและสีแบบอักษรเฉพาะด้วยรหัส VBA

นับเซลล์ด้วยข้อความเฉพาะและเติมสีด้วยรหัส VBA

สมมติว่าคุณมีตารางด้านล่างภาพหน้าจอสำหรับการนับเซลล์ในคอลัมน์ B ตามข้อความและสีเติมของเซลล์ E2 โปรดใช้รหัส VBA ต่อไปนี้

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: นับเซลล์ที่มีข้อความเฉพาะและเติมสี

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

หมายเหตุ: ในรหัส B2: B9 คือช่วงที่คุณจะนับเซลล์ภายใน E2 มีข้อความและสีเติมที่คุณจะนับเซลล์ตาม คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

3 กด F5 เพื่อเรียกใช้รหัสจากนั้นกดปุ่ม Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกเซลล์เพื่อวางผลลัพธ์จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นผลการนับจะแสดงในเซลล์ที่เลือกทันที

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

นับเซลล์ด้วยข้อความและสีแบบอักษรเฉพาะด้วยรหัส VBA

สำหรับการนับเซลล์ในช่วง B2: B9 ตามข้อความและสีแบบอักษรของเซลล์ E2 โปรดดำเนินการดังนี้

1 เปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โดยกดปุ่ม อื่น ๆ + F11 กุญแจ

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: นับเซลล์ด้วยข้อความและสีแบบอักษรเฉพาะ

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

หมายเหตุ: ในรหัส B2: B9 คือช่วงที่คุณจะนับเซลล์ภายใน E2 คือเกณฑ์ที่คุณจะนับเซลล์ตาม คุณสามารถเปลี่ยนได้ตามต้องการ

3 กด F5 เพื่อเรียกใช้รหัสจากนั้นกดปุ่ม Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกเซลล์เพื่อวางผลลัพธ์จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

คุณจะได้ผลลัพธ์ตามภาพด้านล่างที่แสดง:

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

• วิธีการนับจำนวนเซลล์ระหว่างสองค่าหรือวันที่ใน Excel
• วิธีการนับเซลล์ด้วยข้อความเฉพาะในการเลือกใน Excel
• วิธีการนับว่าเซลล์มีข้อความหรือบางส่วนของข้อความใน Excel หรือไม่?
• วิธีการนับจำนวนคำบางคำ / เฉพาะในเซลล์หรือช่วงของเซลล์ใน Excel