การใช้ if ตรวจสอบหลายเงื่อนไข ใน Excel

การใช้ฟังก์ชัน If ของ Excel ตรวจสอบหลายเงื่อนไข  มีรูปแบบ ดังนี้            If( condition, value_if_true, value_if_false )

เราสามารถตรวจสอบหลายเงื่อนไข โดยการเพิ่ม if เข้าในส่วนที่ไม่เป็นไปตามเงื่อนไข เช่น
            If( condition, value_if_true, If( condition, value_if_true, value_if_false ) )
ตัวอย่าง
            =IF(MID(A1,1,3)="นาย","นาย",IF(MID(A1,1,3)="นาง","นาง",""))

ถ้ามีการตรวจสอบหลายครั้ง การใช้ฟังก์ชัน if จะไม่ค่อยสะดวก เพราะตรวจสอบยากมาก เนื่องจากข้อความที่เขียนจะยาวมาก ต้องตรวจสอบหลายครั้งกว่าที่จะทำได้ถูกต้อง

ทางออกอย่างหนึ่งที่ง่ายกว่า คือการใช้ VBA ช่วย โดยสร้างฟังก์ชันขึ้นใช้เอง และใช้ if หรือ Select caseตรวจสอบเงื่อนไข จะทำให้สะดวกกว่า เช่น
    if (เงื่อนไขที่ 1) then
        ..............................
    elseif (เงื่อนไขที่ 2) then
        ..............................
    elseif (เงื่อนไขที่ 3) then
        ...............................

    elseif (เงื่อนไขที่ 4) then
        ...............................
    else
        ...............................
    end if

ตัวอย่าง

ต้องการตรวจสอบและแยกคำนำหน้าชื่อออกไปอีกเซลล์ต่างหาก คำนำหน้าชื่อที่ต้องการตรวจสอบมีหลายคำ ได้แก่ นาย นาง นางสาว เด็กชาย เด็กหญิง ด.ช. และ ด.ญ.

วิธีการ

1. เปิดหน้าจอ VBA โดยกด Alt + F11
2. เพิ่ม Module โดยไปที่ Insert > Module
3. คลิกเลือก Module
4. คัดลอก ข้อความต่อไปนี้ และ Paste ลงในหน้าจอ
   
   Function getTitle(fullName As String) As String
   Dim thisTitle As String
       If Mid(fullName, 1, 3) = "นาย" Then
           getTitle = "นาย"
       ElseIf Mid(fullName, 1, 3) = "นาง" Then
           getTitle = "นาง"
       ElseIf Mid(fullName, 1, 6) = "นางสาว" Then
           getTitle = "นางสาว"
       ElseIf Mid(fullName, 1, 4) = "ด.ช." Then
           getTitle = "ด.ช."
       ElseIf Mid(fullName, 1, 5) = "ด.ญ." Then
           getTitle = "ด.ญ."
       ElseIf Mid(fullName, 1, 7) = "เด็กชาย" Then
           getTitle = "เด็กชาย"
       ElseIf Mid(fullName, 1, 8) = "เด็กหญิง" Then
           getTitle = "เด็กหญิง"
       Else
           getTitle = blank
       End If
   End Function
   
   
   
   
   

วิธีการเรียกใช้งาน ฟังก์ชัน ให้ดูเรื่อง การแยกคำนำหน้าชื่อ