【VBA】学习记录1：利用命令按钮刷新数据透视表

已于 2022-02-15 11:51:36 修改
阅读量5.8k 收藏 14
点赞数
分类专栏： VBA 文章标签： vba
于 2022-02-15 11:41:22 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/truly121314/article/details/122939318
版权
本文介绍了如何使用VBA在Excel中创建一个命令按钮，以便更直观地刷新数据透视表。作者在记账表的背景下，分享了两种VBA代码实现方法，并详细讲解了设置步骤，包括选择数据源、插入按钮、编写代码等关键操作。通过这个实例，作者开始了VBA的学习之旅。
摘要由CSDN通过智能技术生成

1 背景

今年想重新做个记账表。
之前用过手机APP，做过手动记账的A4模板，都各有优缺点。APP方便但是耗眼睛，纸档的记录方便核算不方便，想不利于做数据分析。
最终敲定还是用Excel（用的WPS）。平时记录基础数据，利用数据透视表汇总分析。
记账表
这里有一个问题，基础数据更新后，数据透视表不会自动更新。手动更新的方法有几种，菜单栏选择刷新或者右键单击数据透视表更新都不够直观，所以想到设置刷新按钮，利用VBA实现。
在这里插入图片描述

2 VBA代码

网上搜索代码，一般给出的方法如下：

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

或者

Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh

刚开始用的第一种，试了几次都不行。第二天用的第二种，成了。还没深究原因，先记录下来。

Worksheets("1-流水账").PivotTables("数据透视表-流水账&#
最低0.47元/天 解锁文章
truly_chen
关注
  • 0
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
excel vba 阻塞 先刷新 连接 再 刷新所有透视表
yy的博客
01-29 1058
代码用途 先刷新所有连接 然后刷新所有表 这里的连接是指数据是从远程连接刷新过来的 比如远程mysql服务器 hive等等 连接后的表格可以通过透视表和透视图给公司制作一系列报表或者图表展示 但是每次数据库数据更新后点击全部刷新 由于外部连接耗时比较久 导致table还没刷新 透视表就刷新了 所以这里需要手动设置透视表必须在table(连接的数据)刷新之后再刷新 vba代码 Sub 先刷新连接后刷新所有表() For Each objConnection In ThisW...
Excel中更改及更新数据透视表数据源.pdf
07-10
Excel中更改及更新数据透视表数据源.pdf 学习资料 复习资料 教学资源
数据透视表自动刷新的vba代码
weixin_43187775的博客
02-04 3041
用vba代码来让数据透视表自动刷新
设置自动刷新数据透视表的数据源
最新发布
m0_47147246的博客
05-29 370
设置自动刷新数据透视表的数据源
excel VBA更新数据透视表
10-31
excel通过VBA创建更新数据透视表，对数据完成自动分析
【VBA】数据透视表刷新
LittleAria的博客
11-05 3456
刷新（多表） Sub activepath() Dim sht, st As Worksheet Set st = ThisWorkbook.Worksheets("aaa") '透视表所在sheet Set sht = ThisWorkbook.Worksheets("bbb") '透视表源数据所在sheet arr = Array("数据透视表1", "数据透视表2", "数据透视表3") With st...
刷新按钮_处理数据透视表的隐藏选项（四）：固定报表刷新前后的列宽和格式...
weixin_33172127的博客
01-12 740
——我还有改变的可能性，一想起这一点，我就心潮澎湃。 当我们为了完整地显示数据而改变了数据透视表的列宽，或者为了美观而为报表设置了格式时，当然不希望在刷新后又重新进行设置，此时久可以使用“数据透视表选项”中的功能固定列宽和格式。步骤1 刷新报表接上节。如图所示：1 为工作表重新设置单元格填充颜色；2 在报表中任意单元格右击；3 在弹出的快捷菜单中单击“刷新”命令。步骤2 启动对话框如图所示：1 切...
不懂任何VBA代码，也可实现数据透视表自动更新
yihuliunian的博客
04-28 3245
转载自品略图书馆http://www.pinlue.com/article/2020/04/2815/5810254760534.html 一般的数据透视表，修改原表数据后，需要手动刷新才可以更新计算，本文通过几步简单的操作，来实现自动计算。 情况一：透视表与原始表格在同一个工作表 普通表格转换成为动态表 点击表格中的任意一个单元格，在插入菜单，点击表格，此表是有标题的，因此将其勾选，确...
会计实务：Excel中刷新数据透视表的两种方法.pdf
11-28
3. 自动刷新---使用 VBA 代码实现自动刷新透视表 （3.1）激活工作表时刷新：打开透视表代码窗口输入： Private Sub Worksheet_Activate() ---当激活这个工作表时执行下列语句命令 ActiveSheet.PivotTables(数据透视...
会计经验：如何刷新数据透视表.pdf
07-12
可以使用 VBA 代码来实现自动刷新透视表，例如，在激活工作表时刷新数据透视表，或者设计一个批量刷新的工具按钮。 四、数据透视表的数据缓存 数据透视表的数据缓存是计算机内存中的一个指定区域，用于存储报表...
如何刷新数据透视表【会计实务精选文档首发】.doc
07-12
当我们修改相应字段对应的原始数据的时候，但刷新数据透视表后，相应的字段选项里仍存在一些垃圾选项，解决方法为，先移除此字段，刷新透视表，然后重新在数据透视表字段列表内拖放至原处。 注意：数据源中新增的行...
EXCEL VBA各种常用命令
11-09
本文汇总了VBA常用命令、对象、属性及用法
Excel数据透视表应用大全-excel home
03-17
- 解决方案：检查原始数据是否包含重复记录，并在创建数据透视表前进行去重处理。 2. **数值显示问题**： - 解决方案：通过“值字段设置”调整数值格式，如设置为百分比、货币等形式。 - 还可以通过“格式化...
从Excel VBA代码开始
IT与开发人员的地盘
05-27 188
Excel开发如此容易进行的主要原因之一是Macro Recorder（ 工具 / 宏 / 记录新的宏... ）可以生成一些（尽管很基本）代码供您查看和构建。 不知道正确的对象吗？ 不确定正确的程序吗？ Excel可以为您提供所需的技巧，以帮助您了解想要做的事情。 只要您知道如何通过操作员界面执行操作，就可以快速，轻松地找到至少一种通过代码执行操作的方法。 但是为您构建的代码是非常基本的。 几...
sql demand 按需刷新 什么时候会刷新数据_通过Excel的VBA自动刷新，删除指定查询数据以及数据模型...
weixin_39798626的博客
12-14 392
1、 通过菜单及VBA刷新数据(1) 打开工作簿时刷新(2) 每几分钟刷新(3) 按需刷新，删除连接ThisWorkbook.Connections("查询-表名").RefreshThisWorkbook.Connections("查询-表名").Delete请注意这个连接名称不单是单独的查询表名，具体的可以从菜单现有连接中查看。删除连接主要作用是删除加载表和查询的连接关系，查询还是继续存在。(...
VBA to refresh connections in Excel.
diandian82的专栏
12-16 1898
<br />In this code, you can pass parameters to the connection and refresh it, the pivot table in the excel will get updated. It is very useful when developing the excel reports.<br /> <br />Sub ToRefreshPivot() Dim Alias As String 'Alias =
VBA刷新窗体数据的3种方法
热门推荐
大圣的博客
05-23 2万+
refresh 和requery的区别：以子窗体为例。第一种：Me.frmChild.Requery这是最有效，最简单的方法。第二种：Me.frmChild.Form.Refresh这种方法并不能使窗体中的数据立即改变。第三种：Me.frmChild.SourceObject =“”DoCmd.RunSQL strSQL Me.frmChild.SourceObject =“frmsalelist...
excel、wps，vba数据透视表多重和计算区域，同比环比表，更新数据源并设置格式
Sharon_Yaoa的博客
10-30 505
vba 同比、环比、多重和计算区域，数据透视表更改数据源并且添加条件格式和设置值显示方式，单元格百分比显示
【EXCEL】EXCEL VBA UPDATE原来是这样玩的
软件技术与项目管理
12-21 3695
方法一、 update  表1  inner  join   表2   on  表1.公共字段= 表2.公共字段 set   表1.字段=表2.字段 方法二、 update   表1,表2 set   表1.字段=表2.字段 where  表1.公共字段= 表2.公共字段 方法三、 update  表1  as  a,(select  *   from   表2)   as   b
vba 利用数据透视表 按指定列拆分工作表
05-27
您可以按照以下步骤使用 VBA 利用数据透视表按指定列拆分工作表： 1. 创建一个名为“PivotTable”的数据透视表，将需要拆分的列放到行区域中，需要保留的列放到值区域中。 2. 在 VBA 编辑器中，打开需要拆分的工作表的代码模块。 3. 在模块中添加以下代码： ``` Sub SplitPivotTable() Dim pt As PivotTable Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim lr As Long Dim i As Long Set pt = Worksheets("PivotTable").PivotTables("PivotTable") Set ws = Worksheets.Add lr = pt.TableRange1.Rows.Count For Each cell In pt.TableRange1.Columns(1).Cells Set rng = ws.Range("A" & lr + 1) cell.Resize(, pt.TableRange1.Columns.Count).Copy rng lr = lr + 1 Next cell For i = 2 To ws.Columns.Count If ws.Cells(1, i).Value <> "" Then ws.Columns(i).Delete i = i - 1 End If Next i ws.Name = "NewSheet" End Sub ``` 4. 修改代码中的“PivotTable”为您的数据透视表名称。 5. 运行代码，新建一个工作表，按照透视表第一列的值拆分并复制到新工作表中。 注意事项： 1. 此代码仅适用于数据透视表中只有一个数据字段。 2. 如果需要拆分的列中存在空值，则会在新工作表中创建空行。 3. 如果需要保留的列中存在空值，则会在新工作表中创建空列。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值