Excel中输入1时单元格显示为勾

如图：

 

 1 Private Sub Worksheet_Change(ByVal Target As Range)
 2     On Error Resume Next
 3     Application.EnableEvents = False
 4     For Each c In Target.Cells
 5         With c
 6         For i = 1 To 30
 7          If Cells(i, 1) = 1 Then \'判断是否在第1列(a列)输入数据.
 8            Value = "√"
10             End If
11                  
12             Next
13          End With
14     Next
15     Application.EnableEvents = True
16 End Sub