นับรูปแบบ Regex ใน Excel ด้วย COUNTIF: คู่มือทีละขั้นตอน

ขณะทำงานใน Excel บางครั้งเราต้องค้นหารูปแบบเฉพาะด้วย Regular Expressions (Regex) แต่ Excel ไม่รองรับ Regex โดยตรง ทำให้เกิดความยุ่งยาก วันนี้จะแชร์วิธีนับ Regex ด้วย COUNTIF ใน Excel

นับ Regex ด้วย COUNTIF ใน Excel: ขั้นตอนโดยละเอียด

ต่อไปนี้คือขั้นตอนโดยละเอียดสำหรับการนับ Regex ด้วย COUNTIF ใน Excel

ขั้นตอนที่ 1: เตรียมชุดข้อมูลสำหรับ Regex Match

สมมติเรามีชุดข้อมูล รายชื่อติดต่อ ต้องการตรวจสอบว่ามีเบอร์โทรศัพท์หรือไม่

นับรูปแบบ Regex ใน Excel ด้วย COUNTIF: คู่มือทีละขั้นตอน

ขั้นตอนที่ 2: สร้าง Custom Helper Function ด้วย VBA

ในส่วนนี้จะใช้ VBA สร้างฟังก์ชันช่วยเหลือชื่อ RegExMatch ทำตามขั้นตอน:

กด ALT+F11 เพื่อเปิด Microsoft Visual Basic for Applications
เลือก Module จากเมนู Insert

นับรูปแบบ Regex ใน Excel ด้วย COUNTIF: คู่มือทีละขั้นตอน

วางโค้ดต่อไปนี้ในโมดูล แล้วบันทึก:

Public Function RegExMatch(input_reg_range As Range, reg_pattern As String, Optional reg_match As Boolean = True) As Variant
    Dim WX() As Variant
    Dim Input_Row, Input_Col, cnt_Rows, cnt_Cols As Long
    On Error GoTo ErrHandl
    RegExMatch = WX
    Set Wregex = CreateObject("VBScript.RegExp")
    Wregex.pattern = reg_pattern
    Wregex.Global = True
    Wregex.MultiLine = True
    If True = reg_match Then
        Wregex.ignorecase = False
    Else
        Wregex.ignorecase = True
    End If
    cnt_Rows = input_reg_range.Rows.Count
    cnt_Cols = input_reg_range.Columns.Count
    ReDim WX(1 To cnt_Rows, 1 To cnt_Cols)
    For Input_Row = 1 To cnt_Rows
        For Input_Col = 1 To cnt_Cols
            WX(Input_Row, Input_Col) = Wregex.Test(input_reg_range.Cells(Input_Row, Input_Col).Value)
        Next
    Next
    RegExMatch = WX
    Exit Function
ErrHandl:
    RegExMatch = CVErr(xlErrValue)
End Function

นับรูปแบบ Regex ใน Excel ด้วย COUNTIF: คู่มือทีละขั้นตอน