游客

标题:Excel 宏Worksheet_Change事件的简单应用
正文:
边框 小边框 Private Sub Worksheet_Change(ByVal Target As Range) 'Cells(Target.Row, 1) 获取/设置 当前行的第一列值 'Target.Offset(0, -1) 针对当前位置进行偏移 ' '示例： '当被修改的单元格只有一个，且列号等于2，行号大于1时 If Target.count = 1 And Target.Column = 2 And Target.Row > 1 Then '判断被修改的单元格左边一个单元格的值如果为空则将它设置为当前日期 If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date End If End IfEnd Sub 边框 小边框 Private Sub Worksheet_Change(ByVal Target As Range) Dim i, text For i = 1 To Target.Count &nbsp
[<<][[1]][2][>>]

查看评论(0)
发表评论



首页