我是想通过将某源文件粘贴到固定表单,通过透视的方式反映出该文件一个计数项
功能倒是实现了 就是算完了一个换另外一个就需要手动刷新一下透视表
很麻烦 参考了你在知道中的回答 也参考了很多VB的解决方案 均没有得到解决
想求助于你 看看到底问题出在哪里?
http://zhidao.baidu.com/question/109957296.html?fr=qrl&index=4
试试看列表吧,方便些,不用vba也不用函数
1、按图1,选择现有数据区域后,在选项卡点选“插入”-“表格”确定
2、在“公式”选项卡选择“公式管理器”,查看新列表的定义名称,如果是第一次在文件中使用列表,表名默认为“表1”。(见图2)
3、激活原有透视表后,在透视表工具选项卡选择“修改数据源”,将数据源改名为“公式管理器”中的表名确定即可。(见图3)
效果刷新透视表可见,如有问题请详述,谢谢。
图1
图2
图3
相当于还是要手动刷新 不能实现变更原表格 就直接变透视表是吗
追答假设你的透视表放在Sheet3这个工作表
按截图设置:
------------------------代码复制---------------------------
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
End Sub
------------------------复制结束---------------------------
将以上代码复制到图中红箭头所指的窗口
图中有一点需注意:透视表放在哪个工作表,就在那个工作表表名右键-查看代码
如有问题请详述。这个代码试过了 在别处百度到的
可是还是没有自动刷新 说是触发
我点击其他表 也没有看到触发刷新事件
非得右键在透视表上点一下再点一下刷新才能刷新 要不你给我个邮箱 我把我做的表发给你看看