Vba 有if却没有end if 求大神帮我缩进下代码,我是纯菜鸟,第一次用这个,完全不懂

如题所述

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hh
If Target.Column = 5 And Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 2).Value = Now()
End If
If Target.Column = 8 And Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Now()
Target.Offset(0, 2).Value = Now()
End If
hh:
End Sub追问

大神,解决了,谢谢谢谢,太谢谢你了,但是为什么关闭Excel 第二次打开的时候又没有任何反应了呢,把代码抹掉,保存Excel 然后打开,再次写入代码又能用,然后保存关闭后打开又不能用了,一次性的了

温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-03-11
exit sub 上面再加一个end if
相似回答