run-time error 5 invalid procedure call or argument ไม่ทราบว่าเกิดขึ้นจากอะไรครับ

[4ko6yon61]

ต้องการตรวจสอบเลขหลัก หมื่น ถ้ามีค่าเท่ากับ 2 ให้เติมสี cell แต่ต้องรันขึ้น error เพราะอะไรครับ

Code: Select all

Sub test()
 r = 2
        Do While r < 500
            If Mid(Cells(r, 1), Len(Cells(r, 1)) - 4, 1) = "" Then
            
            ElseIf Mid(Cells(r, 1), Len(Cells(r, 1)) - 4, 1) = 2 Then
                Sheets("Sheet1").Cells(r, 1).Interior.Color = RGB(229, 255, 204)
            End If
            r = r + 1
        Loop
End Sub

ขอบคุณมากครับผม

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

r = 2
Do While r < 500
    If Cells(5, 1).Value <> "" And VBA.Mid(Cells(r, 1).Value, 2, 1) = "2" Then
        Cells(r, 1).Interior.Color = RGB(229, 255, 204)
    End If
    r = r + 1
Loop