Excel Forum

Posted: **Wed Jan 15, 2020 10:58 am**

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

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

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

Posted: **Wed Jan 15, 2020 5:25 pm**

ตัวอย่าง 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

Excel Forum

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

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

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