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

vBA rAngE 1004

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

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

不在电脑前,瞎猜的啊,把“.value”改成“.text”。

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)))

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

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

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("A:A").EntireColumn.Hidden = True括号内换成你需要的行或者列, 再试试

'1. 引号的问题,VBA中2个单引号表示单元格公式中的1个单引号, '2. & 符号问题,&前后要留空 修改如下: Sheets("汇总").Cells(i, 9).FormulaArray = "=INDEX(INDIRECT((LEFT($C$4,LEN($C$4)-1)) & " & """!D:D""" & "),SMALL(IF(ISNUMBER(1/(M...

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