[已解决]change事件和自定义函数是不是不能同时使用！

flh1000

change事件和自定义函数是不是不能同时使用？请高手指点，比如我自己做个个人所得税的函数，就不能和change事件同时使用，请高手指点，为什么！

最佳答案

月排行榜 / 总排行榜

爱疯

2010-3-23 11:34

change事件，需要防止因值不断更改，而出现循环，导致出错。

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    '
    '
    '你的代码
    '
    '
    Application.EnableEvents = True
End Sub

看看是不是这个原因

[em09]

跳转到最佳答案楼层

爱疯

change事件，需要防止因值不断更改，而出现循环，导致出错。

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    '
    '
    '你的代码
    '
    '
    Application.EnableEvents = True
End Sub

看看是不是这个原因

[em09]

领风飞翔

自定义函数只能放在模块中[em01]

爱疯

w3rKeUdx.rar (7.6 KB, 下载次数: 4)

2010-3-23 11:57 上传

点击文件名下载附件
change事件和自定义函数是不是不能同时使用！

为什么这样还可以呀[em09]

 

Function AA()
    MsgBox 1
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    AA
    Application.EnableEvents = True
End Sub

领风飞翔

QUOTE:

以下是引用爱疯在2010-3-23 11:58:00的发言：

为什么这样还可以呀[em09]

 

Function AA()
    MsgBox 1
End
  Function

Private
  Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    AA
    Application.EnableEvents = True
End
  Sub

这样的自定义函数只适用于所在工作表了

爱疯

学习了，勾起一段记忆[em04]