求助第一个实例我的宏怎么这样了？

zjywboy · 发表于 2015-1-1 16:23

我全部按照视频与书本的操作，可我录制的宏怎么成这样了？请专家指导呀：
Sub Macro10()
'
' Macro10 Macro
'

'
ActiveCell.Rows("1:1").EntireRow.ActiveSheet
.DiagramNode
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.ActiveSheet
.CheckSpelling := xlDown
ActiveCell.ActiveSheet
End Sub

一剑惊心 · 发表于 2015-1-1 16:40

录制的本来就这样，不知这结果跟楼主想像的差别在哪？

zjywboy · 发表于 2015-1-1 21:02

本帖最后由 zjywboy 于 2015-1-1 21:06 编辑

执行宏的时候，通不过呀，谢谢二楼！提示说中断程序不能执行代码！运行提示无效或不合格代码，停在 .CheckSpelling := xlDown

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