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

vBA rAngE 1004

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

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

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

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

1)使用函数之前,必须建立对规划求解加载宏的引用。让VBA模块处于活动状态,单击“工具”菜单中的“引用”,然后选中“可使用的引用”列表框中的“Solver.xla”复选框。如果“Solver.xla”未出现在“可使用的引用”列表框中,单击“浏览”并打开“\Office\Libr...

If Cells(i, 5) = Cells(i + 1, 5) Then Sheet1.Range(Cells(i, 3), Cells(i, 5)).Copy 把这句改成 下面的试试 If Cells(i, 5) = Cells(i + 1, 5) Then Sheet1.Range(Sheet1.Cells(i, 3), Sheet1.Cells(i, 5)).Copy

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

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

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

试试改改这里: For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)Next在Sheets.Count前面加一个wb. 改后如下: For G = 1 To wb.Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("...

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