clwn.net
当前位置:首页 >> ExCEl 录制宏之后 运行时错误'1004 类RAngE 的Auto... >>

ExCEl 录制宏之后 运行时错误'1004 类RAngE 的Auto...

可以做如下调整,试试 sub 打印() sheets("打印").range("C4:J7").PrintOut end sub

可以如下方式解决: 1、当按F5键,就报:运行时错误1004。可以这样操作,单击文件――选项――信任中心――打开“信任中心”对话框,宏设置――勾寻信任对VBA工程对象模型的访问”。再次运行,就不会出现运行时错误1004提示。 2、再在搜索引擎查询,才知道...

你的按钮是在哪个Sheet里呢? 对于非按钮所在Sheet里的单元格引用,Range前面要加上所在的Sheet名,这样代码看起来也不容易混淆,如: Sheets("Sheet3").Activate Sheets("Sheet3").Range("B6:D6").Select 并且,如果你不需要界面显示真的切换到...

这个是自己编的吗? 这句话本身没问题啊,你的用户窗口存在吗?

Range("A:A").EntireColumn.Hidden = True括号内换成你需要的行或者列, 再试试

可以做如下调整,试试 sub 打印() sheets("打印").range("C4:J7").PrintOut end sub

在工作表保护状态下,是不能插入行或列的,如果此时插入行或列就会出现错误提示。 正确的做法应该是在代码的开始先撤消工作表保护,再插入及其他操作,然后在代码的结尾再保护工作表。 撤消保护的代码: ActiveSheet.Unprotect 保护的代码: Act...

试试把这二行: Cells(2, 1).Resize(lr, lc).Sort Key1:=Cells(2, 1).Resize(lr), Order1:=xlAscending Cells(2, 1).Resize(lr, lc).Sort Key2:=Cells(2, col).Resize(lr), Order1:=xlDescending 修改成: Cells(2, 1).Resize(lr, lc).Sort Key1...

Range.AutoFilter 方法 使用“自动筛驯筛选一个列表。 语法 表达式.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown) 表达式 一个返回 Range 对象的表达式。 参数 名称 必选/可选 数据类型 说明 Field 可选 Variant 相对于作...

.Range("A1").AutoFill .Range("A1:A2000")

网站首页 | 网站地图
All rights reserved Powered by www.clwn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com