[已解决]求助 修改循环引用

新会甜橙

zjdh 发表于 2012-10-22 21:16
这么简单的代码还要注释？

要啊,不懂学习下

zjdh

我这是扫盲了
Private Sub Worksheet_Change(ByVal Target As Range) 工作表被改变事件
    If Target.Column = 11 Then         如果改变的是第11列则
        For I = 4 To Target.Row        从第4行到被改变的那行循环
            If Cells(I, 11) <> "" And Cells(I, 13) = "" Then Cells(I, 13) = Date
              若第11列I行单元格有数据，以及第13列对应行单元格为空白，则填上当前日期
            If Cells(I, 11) = "" Then Cells(I, 13) = ""
              若第11列I行单元格无数据，则第13列对应行单元格清空
        Next    下一个
    End If
End Sub

新会甜橙

zjdh 发表于 2012-10-23 07:48
我这是扫盲了
Private Sub Worksheet_Change(ByVal Target As Range) 工作表被改变事件
    If Targe ...

谢谢老师详解,学习了