江湖救急--数据透视表等五个问题？

学无涯

slf3aIKX.zip (78.38 KB, 下载次数: 44)

2004-2-8 16:21 上传

点击文件名下载附件
江湖救急--数据透视表等五个问题？

详见附件。五个问题分别在sheet1表、sheet2表、表4中。谢谢指教！ 补充说明： 1、上传附件问题四中的data 指定义为 ='2:12'!$A$1:$I$75时，即跨表格的数据区域。 2、问题三中手动重算ctrl+alt+f9.后，表虽然重算了，但2-12表中的i列值全部一样了？？

[此贴子已经被作者于2004-2-8 17:20:40编辑过]

格子人生

问题三：建议如下。。。

〖方案〗

① 自定义函数

'在模块中插入自定义函数

Function SheetName1(R As Range)
SheetName1 = R.Parent.Name
End Function

'在工作表中插入公式

= SHEETNAME1(OFFSET(A1,0,0))

格子人生

问题五：如果你的班级都是用数值表示的话，建议“班级”字段中全部使用公式转换成数值。。。

学无涯

以下是引用格子人生在2004-2-8 20:08:00的发言：
问题三：建议如下。。。

〖方案〗

① 自定义函数

'在模块中插入自定义函数

Function SheetName1(R As Range)
SheetName1 = R.Parent.Name
End Function

'在工作表中插入公式

= SHEETNAME1(OFFSET(A1,0,0))

1、问题三暂时解决，但表中公式不更新的原因还是不知道呀，”格子人生“朋友的自定义函数的确能更新，而我也试用过Application.CalculateFull为何就没有用呢？ 如：Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CalculateFull
End Sub
2、问题一转化为数值型后解决，但还是想问下。数据源应该可以是文本或公式的吧。 .........其他问题好像还没解决。。。期待中ing...

学无涯

get.cell()不能自动更新！是bug吗？ 还剩问题五：如截图所示：两个字段列表中的内容完全不同，但它们是根据相同数据源得来的。我却不清楚它们如何来的，为何会不同？

半榻茶烟

昨天误解了你的意思。那是因为选择了多重合并计算区域，就显示上一个图。 不是Get.cell()不能自动更新的问题。而是它返回的是同一个表的名称。用cell("filename",indirect("a1"))就可以确保返回的是本单元格所在表名。

半榻茶烟

问题４：多重合并计算区域，多个区域需要一个个添加． 问题５：右击字段名－－顺序－－选择向哪边移动即可，默认是按拼音排序的．

半榻茶烟

问题１：I2:=RIGHT(bj,(LEN(bj)-FIND("]",bj)))*1 问题２：排序依据输入$i$5 问题３：修改名称bj=CELL("FILENAME",INDIRECT("A1"))