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

2024-11-30 来源：个人技术集锦

如图：

 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

转载于:https://www.cnblogs.com/Alenliu/p/4270386.html

显示全文

全部栏目

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