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

vBA rAngE 1004

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

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

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

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

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

需改成: Sub A() Range(Cells(1, 1), Cells(1, 1)) = "100" End Sub

Wb.Activate Sheets("0812").Select Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("P2").Select ActiveSheet.Paste 把上面的改为下面的: wb.Sheets("0812").Range(Cells(2, 3), Range("C2").End(...

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

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

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

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