ไปยังเนื้อหาหลัก

วิธีการนับเซลล์ด้วยข้อความเฉพาะและเติม / สีแบบอักษรใน 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 ปุ่ม. ดูภาพหน้าจอ:

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


นับเซลล์ด้วยข้อความและสีแบบอักษรเฉพาะด้วยรหัส 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 ปุ่ม. ดูภาพหน้าจอ:

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


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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

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

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, he probado la función cuente celdas con texto específico y color de relleno pero cuando aprieto la tecla F5 solo me sale la función "IR A" y no me sale la ventana para seleccionar la celda.
Supongo que no podrá probarse y tengo que comprar
This comment was minimized by the moderator on the site
Hi Nando,
The VBA codes are provided for free. Which Excel version are you using? Is there any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations