CONSOLIDATE的SOURCES参数可选？？？

乐无存

CONSOLIDATE的SOURCES参数可选？？？
技巧90的代码解析中，提到SOURCES参数时，说：该参数可选，缺省时为当前工作簿中其他工作表中单元格A1的当前区域，因此上面的代码可以简化为：
#003 .consolidate function:=xlsum,toprow:=true,leftcolumn:=true
但是省略这个参数后，就提示：1004错误，没有指明合并计算的源引用。
我用的是WINDOWS XP SP3和EXCEL 2003，请问：
1、这个参数为必选吗？
2、其他原因？
请解答，谢谢

清风_ll

回复:
1,该参数为可选,修改示例90中的代码如下,可得到相同的结果.

1. Sub ConsolidateDemo()
   
2.      With Worksheets("汇总").Range("A1")
   
3.          .Consolidate Function:=xlSum, TopRow:=True, LeftColumn:=True
   
4.          .Value = "姓名"
   
5.      End With
   
6. End Sub
   

复制代码

2,不清楚您的操作步骤,无法判断.

乐无存

我不管是直接用ALT+F8运行宏,或者使用控件,再或者直接在VBE窗口中运行,结果都是一样的提示:没有源引用.
版主,我把文件传上来了,你帮我看下是什么原因.谢谢
汇总工作表.rar (7.02 KB, 下载次数: 70)

2008-12-5 23:07 上传

点击文件名下载附件

清风_ll

很抱歉,书中有误。
该参数可选不错，但必须是之前已指定了合并计算的区域，可以通过代码指定或者手工添加。手工添加的方法在：数据->合并计算... 对话框中，如下图。

正确的说法应该是：“该参数可选，缺省时为上一次使用合并计算时所指定的区域”。
非常感谢指出错误，应该说这是一个极为重大的错误，对此深表歉意。这将在以后时刻提醒我们更加不敢怠懈，精益求精。

同时也希望所有的读者都能够提出对书中的疑惑，以便于发现和及时纠正错误。

清风_ll

使用以下代码，可以自动合并计算工作簿中其它工作表A1单元格的当前区域数据显示在活动工作表的A1单元格开始的区域，代码中使用动态数组保存各工作表中A1单元格所在区域的R1C1引用。

1. Sub ConsolidateDemo()
   
2.     Dim Arr     As Variant
   
3.     Dim sht     As Worksheet
   
4.     Dim WsCount As Integer
   
5.     Dim i       As Integer
   
6.    
   
7.     WsCount = ThisWorkbook.Worksheets.Count
   
8.    
   
9.     ReDim Arr(1 To WsCount - 1)
   
10.    
    
11.     For Each sht In ThisWorkbook.Worksheets
    
12.         If Not sht Is ActiveSheet Then
    
13.             i = i + 1
    
14.             Arr(i) = sht.Name & "!" & sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
    
15.         End If
    
16.     Next
    
17.     '
    
18.     With ActiveSheet.Range("A1")
    
19.         .Consolidate Sources:=Arr, Function:=xlSum, TopRow:=True, LeftColumn:=True
    
20.   '      .Value = "姓名"
    
21.     End With
    
22.    
    
23. End Sub
    

复制代码

[ 本帖最后由 清风_ll 于 2008-12-7 20:47 编辑 ]