VBA入门之三《夏夜，我们看萤火虫》

hner

application.enablevents=false

    ......

application.enablevents=false

上述代码中加enablevents属性主要是为了在运行它下面的代码时，不再触发本事件，下面是对的

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Region As Range
Set Region = [a2:c30]
Application.EnableEvents = False
Target.Offset(0, -1) = Application.WorksheetFunction.Max(Region.Columns(1)) + 1
Target.Offset(0, 1) = Target.Value + Target.Offset(0, 1)
Application.EnableEvents = True
End Sub

如果去掉enableevents则会陷入死循环，当然除了利用enableevents屏蔽死循环外，也可以利用if判断语句

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Region As Range
Set Region = [a2:c30]
'Application.EnableEvents = False
If Target.Column = 2 Then
    Target.Offset(0, -1) = Target.Row - 1
    Target.Offset(0, 1) = Target.Value + Target.Offset(0, 1)
End If
'Application.EnableEvents = True
End Sub

hner

山菊花

   敏感性问题还是没有解决！

 

对于第一个问题，不用循环也可以解决！

hner

山菊花

    不好意思，我仔细看了一下运行效果，你的结果敏感性好像是减弱了

但我看不懂你代码的意思，能否解释一下！

ljx63426

正在研究之中，好贴，辛苦了

[em27][em26][em23]

来点暴风雨

好贴，爽

YEST8

好贴!

认真学习!

ai4ni

山菊花老师,我想问你一个本课之外的问题,你讲到工作表事件的时候,有一个附件,是有关"清除数据"的那一个EXCEL表,请问为什么A列,C列不可以选择,我点到他们的时候就自动移动到B列了,请问这个是如何设置的,还有A列C列自动填充的内容,是用的公式吗?请指教,不胜感激!

 

[em29][em29][em29][em29][em29]

[此贴子已经被作者于2006-8-18 14:53:33编辑过]

9611234

谢谢。努力学习中！！！

孤独裘剑

好贴,谢谢!收藏先

随心所欲

  我想问山菊花老师,VBA 和我在中级学的VB 应该可以做同样的解释吗?