Excel高阶图表，牛到不行了

Excel高阶图表，牛到不行了

涉及的知识点：

切片器（链接数据透视表，切片器格式化） Worksheet_PivotTableUpdate透视表更新事件 VBA自动筛选程序（AutoFilter代码用于筛选该城市经销商） 定义名称（offset函数动态引用区域，用于制作图表时添加序列） 通过添加序列的方式制作常规图表 VBA代码添加放大及返回的宏按钮

之前在Excel连接SQL Server数据库的文章中，曾经介绍过切片器及数据透视表更新事件的使用。本例中与其原理完全一致。

不太容易构思之处在于： 1）通过VBA自动筛选程序将该城市自动筛选后，粘贴进指定工作表，继而通过定义好的名称动态捕捉作图数据，用于生成各种图表。 2）用切片器替代了省市二级下拉菜单的制作，不仅制作过程简单，而且选择项目方便，目视设计美观。

这段代码实现的功能是将第一步准备的数据源表，以第一行为筛选行，以第31列（城市列）为筛选字段，以仪表板工作表的CB3单元格（数据透视表切片后结果单元格，即城市）为筛选条件进行自动筛选，将结果粘贴到“抓取”工作表中，用于下一步制图。

注： 因每个城市经销商数量不同，COUNTA函数起到了计算非空行也即城市数量的作用； 对于没有经销商的城市，这里外套了一个if函数，即将行标题作为结果返回。否则会弹出定义名称引用区域错误的对话框。

06 — 添加放大和返回按钮 通过选择对应的range区域，设置合适的缩放级别，便可实现放大和返回的效果。 Sub 返回() Application.ScreenUpdating = False ‘暂停刷新屏幕 Sheets(“仪表板”).Select ActiveWindow.Zoom = 40 Application.ScreenUpdating = True ‘恢复刷新屏幕 Range(“A1”).Select End Sub Sub 放大图表1() Application.ScreenUpdating = False ‘暂停刷新屏幕 Application.DisplayFullScreen = True Sheets(“仪表板”).Select Range(“A1:Q37”).Select ActiveWindow.Zoom = True Application.ScreenUpdating = True ‘恢复刷新屏幕 End Sub

Sub 放大图表2() Application.ScreenUpdating = False ‘暂停刷新屏幕 Application.DisplayFullScreen = True Sheets(“仪表板”).Select Range(“Q1:AF37”).Select ActiveWindow.Zoom = True Application.ScreenUpdating = True ‘恢复刷新屏幕 End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。