[求助]Worksheet_Change事件问题_已解决

huangwerzi

Private Sub Worksheet_Change(ByVal T As Range)

If T.Column = 1 And T.Count = 1 Then
        T.Offset(, 0) = T.Offset(, 0).Value * 3 
        T.Offset(, 2).Value = T.Offset(, 0).Value + T.Offset(, 1).Value   

 End If

End sub

这个就是当A列输入一个数值时,就在当前格*3,并将AB列相应的相加显示在C列相应的单元格里,

但在T.Offset(, 0) = T.Offset(, 0).Value * 3时又重新触发了Private Sub Worksheet_Change(ByVal T As Range)事件,

请各位有什么办法补救,谢谢

 

[em09]

[此贴子已经被作者于2007-7-1 2:28:02编辑过]

yuanzhuping

Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column = 1 And T.Count = 1 Then
        Application.EnableEvents = False
            T.Value = T.Value * 3
            T.Offset(, 2).Value = T.Value + T.Offset(, 1).Value
        Application.EnableEvents = True
    End If
End Sub

huangwerzi

yuanzhuping  高手

谢谢你,

fyd_excel

收藏了。。。。。。。。。。。。。。

陈国华

正好被此问题困扰，谢谢高人!问题已经解决了

yangxhhb

yuanzhuping 发表于 2007-7-1 01:13
Private Sub Worksheet_Change(ByVal T As Range)    If T.Column = 1 And T.Count = 1 The ...

版主，如果单元格中输入的不是数值会出现错误提示，然后好像事件激活一直处于false状态，代码就不能正常运行了