ต้องการเช็คระดับชั้นด้วย VBA

[tigerwit]

จากไฟล์ที่แนบ
ต้องการใช้ Code เช็คว่า อักษรซ้ายสุดใน F1 เป็น ป หรือไม่
ถ้าเป็น ป ให้ แสดง MsgBox บอกว่า ชั้นประถมศึกษา
ถ้าไม่ใช่ ป ให้ แสดง MsgBox บอกว่า ชั้นมัธยมศึกษา
ต้องปรับ Codeอย่างไรครับ

Code: Select all

Sub chkclass()
    If Left(Range("F1"), 1).Value = "ป" Then
        MsgBox "ชั้นประถมศึกษา"
    Else
        MsgBox "ชั้นมัธยมศึกษา"
    End If
End Sub

[puriwutpokin]

แก้ไขส่วนนี้ครับ

Code: Select all

Sub chkclass()
    If Left(Range("F1"), 1) = "ป" Then
        MsgBox "ชั้นประถมศึกษา"
    Else
        MsgBox "ชั้นมัธยมศึกษา"
    End If
End Sub

[tigerwit]

ขอบคุณครับ