如何确定单元格值是否为 0%？

Question

I want to compare percentage in cells.

dim ws as worksheet
dim LastRow as long

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "test1" And ws.Name <> "test2" Then
        LastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
        
        For i = 3 To LastRow
            If ws.Range("M" & i).Value = 0 Then  '<---here it give me error
                ws.Range("M" & i).Locked = True
            End If
        Next i

    End If
Next ws

In Column M in my sheet, the whole column starting from M3 is percentage format type.

I want to find out if the cell is 0%.

Let's say range("M5") is 0%, I want to check format protection to lock the cells and last protect the worksheet.

I have tried many code such as:

ws.Range("M" & i).Value = 0
ws.Range("M" & i) = 0
ws.Range("M" & i).Value = "0"
ws.Range("M" & i) = "0%"

It gives type mismatch error.

Answer 1

Try to add some error checking on the cell first:

For i = 3 To LastRow
    If Not IsError(ws.Range("M" & i)) Then
        If ws.Range("M" & i).Value = 0 Then
            ws.Range("M" & i).Locked = True
        End If
    End If
Next i