作者nelley (名字：大便王)
看板Visual_Basic
标题[VBA ] consolidate的用法
时间Sun Jan 10 19:02:07 2010
想用consolidate的方式将同一个excel里不同分页的资料进行时数加总
已经先把不同分页里要处理的资料全部命名为"加班资料"了
其他分页的名称为01~12
程式码如下:
Sub 汇总不同分页加班时间()
Dim mysht As Worksheet
For Each mysht In Worksheets
If mysht.Name <> "汇总" Then
Range("A6").Consolidate sources:=mysht.Names("加班资料"), _
Function:=xlSum, _
toprow:=True, _
leftcolumn:=True
End If
Next
Range("A6").Value = "Emp No"
End Sub
但是使用的时候会跑出"无法开启合并汇算的来源档案'='12""
是不是consolidate的sources不能这样使用
请板上大大救命一下
--
连跑路都那麽帅
我真幸福
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 113.112.73.44