【来日复制粘贴】让PivotTable随数据源一起动起来

在不用刷新按钮的前提下，如何让pivot和数据源一起动起来呢？VBA之。

1. 首先要给数据源定义好名称，公式：

=OFFSET(数据源!$A$1,,,COUNTA(数据源!$A:$A),COUNTA(数据源!$1:$1))

2. 制作pivot时候，引用数据区域要写

3. 接下来针对数据源的tab要上vba代码了。

Private Sub Worksheet_Activate()Dim pv As PivotTable, rng As Range, dFld As PivotFieldSet pv = Sheet2.[b3].PivotTablepv.RefreshTableFor Each rng In Worksheets("数据源").Range("Data").Rows(1).CellsIf VBA.InStr(1, strFld, "," & VBA.Trim(rng)) = 0 Then _pv.AddDataField pv.PivotFields(rng.Value), " " & rng.Value, xlSumNext rngpv.ManualUpdate = FalseApplication.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()Dim pv As PivotTableSet pv = Sheet2.[b3].PivotTableFor Each dFld In pv.PivotFieldsstrFld = strFld & "," & dFld.NameNext
End Sub

4.插入一个模块，写上一句语言。

Public strFld As String '定义一个公共变量

到了这里以后你只要来回点pivot和数据源的tab标签。数据源里面的更新就开始对pivot table起作用了。

【来日复制粘贴】让PivotTable随数据源一起动起来相关推荐

【来日复制粘贴】数据透视表分类不同账龄
大意就是有一些应收账数据,对应着具体日期,现在需要你把这些应收账分为:小于30天的账,31到60天的账,61到90天的账,最后是大于90天的账. 数据源接下来第一件事,把它做成数据透视表,如下图. ...
【来日复制粘贴】关于排名
图之, 1. 关于效率排名公式为 =SUMPRODUCT(1*(B2/C2<B$2:B$15/C$2:C$15))+1 2. 关于不占位业绩排名公式为 =SUMPRODUCT((B$2:B$ ...
【来日复制粘贴】状态栏随机显示
最近都在折腾别的,没有好好编程,不开心.今天凑巧看到一个我老是会磕绊的地方,特此记录.另外,整个这个程序当滚动条思路还是不错的. 大意就是收款时间那里为空的就是还欠账呢,然后可以让他的大名去状态栏滚动 ...
【来日复制粘贴】输出匹配到的字符串
目前用正则还是很少,用到的话一般也是replace那个函数.一直头疼我要输出找到的东西咋整?原来是用数组搞定.代码如下, Sub RegTest()'定义正则表达式对象Dim oRegExp As ...
【来日复制粘贴】使用公式提取数据
要求, 在以下表格中提取市场部人员的员工编号. 可用公式有两个,全部为数组公式 =IF(ROW(1:1)>COUNTIF(C$2:C$20,"市场部"),"&quo ...
【来日复制粘贴】跨sheet的数据录入
效果: 录入Sheet2: 代码的含义需自己点明一下,方便日后用起来瞬间理解它的运行逻辑. Sub haha()Dim lastRow As Long Dim lstData As ListObjec ...
【来日复制粘贴】提取工作表和工作簿名称
在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式.特此记录. 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FI ...
【来日复制粘贴】用高级筛选和函数公式拆分数据列表
要求把表2里面不包含的项从表1取出,并建立一个新表. A25处的公式为 =ISNA(MATCH(A3,$F$3:$F$12,0)) ※须留意:因为例子里面的订单编号是唯一的所以用match没问题.m ...
【来日复制粘贴】利用函数公式解决Tricky的不重复记录高亮
今天在学习Excel的时候,看到了一则很实用的技巧说明,下面直接进入主题. 此处的公式就是: =SUMPRODUCT(1*($A2&$B2&$C2&$D2=$A$2:$A$16 ...

【来日复制粘贴】让PivotTable随数据源一起动起来

【来日复制粘贴】让PivotTable随数据源一起动起来相关推荐

最新文章

热门文章