VBA函数错误请教及两VBA共存问题

carlwei

如图所示，本表通过数据有效性制作了三级下拉选项，现通过VBA实现两个目的，1、点击“一键清空”，能清空对应单元格数据，方便重新录入，2、M5、M7、M9、显示前7位数字。
VBA一键清空：
Sub 一键清空()
    Range("N4,AD4,M5,N6,AD6,M7,N8,AD8,M9").Select
    Selection.ClearContents
    Range("N4").Select
End Sub

VBA2:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$5" Or Target.Address = "$M$7" Or Target.Address = "$M$9" Then
        Target = Left(Target, 7)
        Application.EnableEvents = True
    End If
End Sub


现两个VBA不能同时运行，且VBA2运行时报错，请高手指点。

changxuegu

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$5" Or Target.Address = "$M$7" Or Target.Address = "$M$9" Then
    Application.EnableEvents = False
        Target = Left(Target, 7)
        Application.EnableEvents = True
    End If
End Sub

DevilW

我这里没发现问题啊

wangnandu

Sub 一键清空()
    Range("N4,AD4,M5,N6,AD6,M7,N8,AD8,M9") = ""
   
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$M$5" Or Target.Address = "$M$7" Or Target.Address = "$M$9" Then
        Selection = Left(Target.Value, 7)
        Application.EnableEvents = True
    End If
End Sub

microyip

1. Sub 一键清空()
   
2.     Application.EnableEvents = False
   
3.     Range("N4,AD4,M5,N6,AD6,M7,N8,AD8,M9").ClearContents
   
4.     Range("N4").Select
   
5.     Application.EnableEvents = True
   
6. End Sub

复制代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$M$5" Or Target.Address = "$M$7" Or Target.Address = "$M$9" Then
   
3.         Application.EnableEvents = False
   
4.         Target = Left(Target, 7)
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. End Sub

复制代码

Application.EnableEvents = False是屏蔽事件发生，也就是你对单元格再引起数值变化时不会被重复触发Worksheet_Change动作，当然程序结束前要恢复了，否则下次就不能用了

carlwei

感谢各位大侠的指点，特别感谢 microyip 的详细解释。

carlwei

各位大神，把 microyip  的两段代码都放在一个VBA中，执行时，“M5、M7、M9、显示前7位数字”的这段代码不会自动执行，请问如何修改好。

carlwei

经过摸索终于搞掂了，在“一键清除”按钮右击，指定宏，指定一一键清除的代码，就好了。
感谢大家的帮忙。