[已解决]VBA代码不能运行

zk888 · 发表于 2014-1-15 10:36

13年往来账.zip (59.88 KB, 下载次数: 12)

zjdh · 发表于 2014-1-15 12:48

原因是 Application.EnableEvents = False 语句放错地方

13年往来账.rar (43.76 KB, 下载次数: 11)

苗凱 · 发表于 2014-1-15 12:52

Application.ScreenUpdating = True
Application.Calculate
Application.EnableEvents = False '禁用所有事件
If Target.Count > 1 Then Exit Sub
r = Target.Row: c = Target.Column
If c = 3 And Target.Value = "本月合计"

zk888 · 发表于 2014-1-15 13:05

本帖最后由 zk888 于 2014-1-15 13:10 编辑

谢谢楼上各位的回复。按惯例只好把最佳答案给第一位回复的。

zjdh · 发表于 2014-1-15 13:21

3楼代码依然会出现同样问题！
Application.EnableEvents = False '禁用所有事件
If Target.Count > 1 Then Exit Sub
必须交换位置！！
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False '禁用所有事件

		自动登录	找回密码
密码			注册