本帖最后由 zjdh 于 2012-10-23 07:50 编辑
我这是扫盲了
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