EXCEL运行宏程序时出现: 方法'_Default作用于对象'Range'时失败

程序如下:PrivateSubWorksheet_Change(ByValTargetAsRange)IfCells(8,6)="轿门整组"AndCells(8,1)="... 程序如下:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(8, 6) = "轿门整组" And Cells(8, 1) = "中分2扇" And (Cells(31, 7) - Cells(8, 5) > 0 And Cells(31, 7) - Cells(8, 5) <= 335) And (2 * Cells(8, 3) + 100) < Cells(8, 5) + 130 Then
Cells(8, 9) = Cells(8, 5) + 130 -----------在这行会出现问题!!!
End If
End Sub
然后就会出现 要求调试的界面,若强制关闭的话会出现:系统内存不足,无法完全显示
展开
 我来答
o自在o
2012-02-13 · TA获得超过1379个赞
知道小有建树答主
回答量:1418
采纳率:62%
帮助的人:842万
展开全部
插入暂停事件的语句试一下
Application.EnableEvents = False '暂停事件触发
Cells(8, 9) = Cells(8, 5) + 130
Application.EnableEvents = True '恢复事件触发
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式