Question

excel vba 无法执行

首先说明,我的问题是,之前的电脑坏了(xp + office2007)现在换了一台,用win7+office2007,文档格式为xlsm.但是换电脑后文档中的vba代码不执行,跟踪调试没反应.在之前电脑中可用使用,文档保存在excel"可信任位置".代码如下
Private Sub Worksheet_change(ByVal Target As Range)
Application.EnableEvents = False
Dim i, k As Integer

k = Selection.Rows.Count
For i = 1 To k
If Cells(Target.Cells(i, 1).Row, 1) = "" Then
Cells(Target.Cells(i, 1).Row, 2).ClearContents
Else
Cells(Target.Cells(i, 1).Row,2) = Format(Date, "YYYY年MM月DD日") '2表示在第2行记录修改时间
End If
Next i

Application.EnableEvents = True
End Sub
不知道如何解决?各位帮助一下!分不多了,小小意思,解决后一定加分.
电脑刚换,新安装的win7专业版,域环境裸奔中

Answer 1

这个是因为VBA事件触发条件的问题
解决办法很简单，只要另存为，关闭，打开另存的文档OK
如果还是解决不了
就删除代码中
Application.EnableEvents = True
Application.EnableEvents = False
这两句，防止触发循环事件，到底死循环代码，应该就Ok了！

Answer 2

应该是打开文件时禁用了宏等相关程序。当然还有一种可能，你编译的程序不对。

Answer 3

文件发我看看吧

代码没问题 不知道你想怎么搞

追问

你的执行结果完全正确,如果你A列没数据F列就自动删除,但问题是我这完全不执行代码

我在A列增加k列也不会有结果

追答

换电脑 换系统 换office

Answer 4

你的粘贴的是完整代码吗？编译就通不过哦，缺少End Sub

追问

代码完整,我这编译没问题啊,如果相信的话我发文档给你看看可以不?就这个代码和一个显示时间的代码,其它我全部删除了

追答

文件你可以传到百度云，粘贴连接，这样大家就可以下载了。

但现在你的情况是： 你文件没有做任何修改，换电脑就不能用了，那么我们下载多半是可以使用的。

我这里执行的情况是：

只要修改任何单元格内容，F2就修改为当前时刻

追问

你的执行结果完全正确,如果你A列没数据F列就自动删除,但问题是我这完全不执行代码

追答

一、在现在的change代码里面按F9设置断点，修改数据看看是否弹出调试

二、在现在的代码后面增加SUB，直接按F5看看是否执行，例如：
sub xxx()
msgbox "ok"
end sub

三、把宏安全设置为最低试试看

四、是否有杀毒软件进行拦截

追问

一 设置断点没反应,

二 按F5后又弹出OK
三 文件放在excel"可信任位置",宏设置和active x 也一并设置全部执行
四 刚装的系统,域环境裸奔中.

追答

测试以下主动调用change函数，代码如下：

Sub test()
    Application.EnableEvents = True
    Worksheet_change [a4]
End Sub

测试前先在a4里面输入内容，或者清除内容，然后查看变化。是否因为执行到Application.EnableEvents = False语句之后被终止了。