(已解决）列表的自动扩展区域功能，能与数据透视表汇总多表的汇总同时使用吗？

dg831451 · 发表于 2009-11-4 13:28

是的。。。

penghaifeng · 发表于 2009-11-5 11:10

原帖由 aliceshum 于 2009-11-3 22:15 发表
谢谢，又见到你啦！上次也是你帮助我的，你很乐意推广SQL的SELECT 语句呀，呵呵。我以后也多用用吧，呵呵。

”推广“？我可不是MS的营销员！~~~

掌握点查询语句可以提高数据处理和分析速度，仅为了大家提高一些效率！~~

penghaifeng · 发表于 2009-11-5 11:13

回复 7楼 aliceshum 的帖子
用SQL语句的前提，是第一行必须为字段名对吧？至于在表格的后面加了东西，这个应该就不影响了。

我倒是觉得未必如此，数据源是可以选择范围的，如select * from [sheet1$]固然行得通，也可以不修改数据源现有格式，直接用select * from [sheet1$A2：H99]；

aliceshum · 发表于 2009-11-5 23:15

直接用select * from [sheet1$A2：H99]；

咦，还有这个功能呀？今天在统计各分公司的数据，头痛死了，他们又有表头，又有合并单元格，还搞个“合计数”在下面，我要删表头；取消合并单元格，再删多余空列（多余空列不影响统计但影响美观，手痒还是要删，呵呵）；还要删“合计数”。。。。

还有的分公司，弄成这个样子，
凌乱的表格.jpg

我今天还在想，是否要人为把它调整成这个样子：
调整后.jpg

看了PENGHAIFENG上面的说法，好象可以不用这样调整了啊。直接用
select * from [sheet1$A2:B5] union all select * from [sheet1$C2:D6] union all select * from [sheet1$A9:B13]union all select * from [sheet1$C9:D13]
也行了。不过，这样选区域，还是很容易看花眼，又不能象平时选数据源那么方便，鼠标一选，单元格区域地址自动出来，呵呵。

呵呵，PENGHAIFENG，一段时间不见，您的水平又提高了啊！

[ 本帖最后由 aliceshum 于 2009-11-5 23:45 编辑 ]

aliceshum · 发表于 2009-11-5 23:57

另外，我在一楼问的问题，现在可以解决了。方法是：单击“列表”工具栏中的“切换汇总行”,然后，选择列表区域时，要连“汇总”那一行一起选上。这样，数据透视表还是可以自动更新。（这个方法也是我昨晚在《数据透视表应用大全》上看到的，第222-223页。用定义动态名称的方式，也可以创建动态的多重合并计算数据区域的数据透视表，这个在217-221页有介绍。）

附件已上传。

aliceshum · 发表于 2009-11-5 23:41

原帖由 penghaifeng 于 2009-11-5 11:10 发表

”推广“？我可不是MS的营销员！~~~

掌握点查询语句可以提高数据处理和分析速度，仅为了大家提高一些效率！~~

呵呵，SQL语句是很不错，之前觉得发给别人，要帮别人改路径，或是要求别人只能放在指定路径下，还觉得不太方便。昨晚又在《数据透视表应用大全》的第269-270页看到，可以用VBA控制它自动更改路径的。VBA代码，在EH论坛上也有，是jssy的贴子，我试了，有效！

http://club.excelhome.net/viewth ... p;extra=&page=1

代码也顺手贴过来吧，呵呵。

Private Sub Workbook_Open()
Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
'定义变量
On Error Resume Next
strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
'将当前活动数据透视表中缓存连接信息赋值给变量strCon
Select Case Left(strCon, 5)  'select case语句,条件为strCon变量中从左侧取5个字符
Case "ODBC;"                '用于判断缓存连接信息中的数据连接方式,如果是ODBC方式
      iFlag = "DBQ="          '将"DBQ=" 赋值给变量iFlag
Case "OLEDB"                '用于判断缓存连接信息中的数据连接方式,如果是OLEDB方式
iFlag = "Source="          '将"DBQ=" 赋值给变量iFlag
Case Else
      Exit Sub
End Select
iStr = Split(Split(strCon, iFlag)(1), ";")(0)  '在变量strCon中截取文件路径信息
iPath = ActiveWorkbook.FullName             '获取当前活动工作簿的完全路径
With ActiveSheet.PivotTables(1).PivotCache    '替换数据透视表中缓存信息中的文件完全路径
      .Connection = VBA.Replace(strCon, iStr, iPath)
      .CommandText = VBA.Replace(.CommandText, iStr, iPath)
End With
End Sub

jssy厉害吧？简直太佩服，太感激他了！

[ 本帖最后由 aliceshum 于 2009-11-5 23:43 编辑 ]

penghaifeng · 发表于 2009-11-6 14:28

学习了!~~

XHY11 · 发表于 2009-11-6 14:33

谢谢，在学习

XHY11 · 发表于 2009-11-6 14:34

不错

penghaifeng · 发表于 2009-11-6 15:11

多重合并的扩展功能及查询透视表的路径更新应用（为以后查找方便，留个记号！

）

原先看到过,但没看懂,今天也先复制下来吧!~~~

[ 本帖最后由 penghaifeng 于 2009-11-7 08:07 编辑 ]

		自动登录	找回密码
密码			免费注册

[分享] (已解决）列表的自动扩展区域功能，能与数据透视表汇总多表的汇总同时使用吗？

回复 16楼 aliceshum 的帖子

回复 15楼 aliceshum 的帖子