运行后失去焦点是怎么回事

王跃峰

Private Sub Worksheet_Change(ByVal Target As Range)    '当前单元格在第1行则不响应    If Target.Row = 1 Then Exit Sub       '添加序号    If Range("A"& Target.Row) <> "" And Target.Row > 1 Then        Range("D"& Target.Row) = Target.Row - 1    End If       '当前单元格在第2行则添加明天的日期和星期    If Target.Row = 2 Then        Range("E"& Target.Row).Value = Date + 1        Range("F"& Target.Row).Value = Format(Range("F" &Target.Row).Offset(0, -1).Value, "aaaa")    Else    '否则，在上一行的基础上加上一天        Range("E"& Target.Row).Value = Range("E" & Target.Row).Offset(-1,0).Value + 1        Range("F"& Target.Row).Value = Format(Range("F" & Target.Row).Offset(0,-1).Value, "aaaa")    End IfEnd Sub

万事胜①

这一步触发了递归调用，形成了死循环

王跃峰

万事胜① 发表于 2023-2-5 11:35
这一步触发了递归调用，形成了死循环

感谢帮助，请问如何改？

万事胜①

王跃峰 发表于 2023-2-5 13:22
感谢帮助，请问如何改？

加个判断就可以了

王跃峰

万事胜① 发表于 2023-2-5 13:46
加个判断就可以了

麻烦您加一下试试

ivccav

王跃峰

ivccav 发表于 2023-2-5 19:57

太感谢您了

smiletwo

乱码奔腾