xtrh.net
当前位置:首页 >> vBA rAngE 1004 >>

vBA rAngE 1004

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

(2, 1)这写法是错误的,你想选中哪一个单元格,我帮你改代码。 看这句是不是你想要的效果: Range("A1").End(xlDown).Offset(2,1).Select

那句代码应该改为: a = Application.WorksheetFunction.CountIf(Range("B:B"), "=12")

应该是你的cells没有表名引用的sheet是哪个,默认是激活的这个sheet,你写完整看看:Call 合并(Sheet1.Range(sheet1.Cells(FR, 1), sheet1.Cells(R - 1, 1)))

Range(Cells(i, j)) 这种形式用于区域: Range(Cell1,Cell2)

试试把这二行: 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...

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

猜不出你要做什么,这写的奇怪了。 aac = Range("f1") 你可以msgbox一下 是f1的值 如果 f1 的数字的话,你又定义aac为文本类型... 用在cells里面 当然是要数值了。 do while 是循环语句,你这里并没有用到循环 只要写 if cells(1,7)="" then 就好了

ActiveSheet.Shapes(Range("B" & i.Value)).Fill.ForeColor.RGB = Range(Range("E" & i.Value)).Interior.Color

Sheets(1).Range("A1:H").End(xlUp).Select很明显,应该改为 Sheets(1).Range("A1:H1").End(xlUp).Select,你就缺了一个1,就是Range("A1:H1"),呵呵。采纳吧。。。

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