单元格遍历

标签：

? ?

• Private Sub Worksheet_Change(ByVal Target As Range)
• On Error Resume Next
• Application.EnableEvents = False
• For Each c In Target.Cells
• With c
• For i = 1 To 30
• If Cells(i, 1) = 1 Then ‘判断是否在第1列(a列)输入数据.
  .Value = "√"
• End If
• Next
• End With
• Next
• Application.EnableEvents = True
• End Sub

单元格遍历

标签：

原文地址：http://www.cnblogs.com/isunlitao/p/5937173.html