导航菜单

CASE9双层饼图(一键出图表)

  不能上链接,带附件的,微信公众号,搜【财会人nAzy】,同课程内有链接地址。

  ———————————————

  还是图表,双层饼,一般教程教你怎么做,那就一键出表吧,想学手操的去看别的教程。

  先下载模板文件,百度网盘:微信公众号,搜【财会人nAzy】,同课程内有链接地址。

  另外说一句,这些case是拿来直接用的,不是当做教程学的,有一天当自觉水平够了可以研究代码,别卡在这里死扣耽误时间。

  效果:

  CASE9 双层饼图(一键出图表)

  这是维度一为4个季度,维度二为每个季度的3个月,维度二并不要求都必须3个字段,但是要求维度二的N个字段汇总对应维度一的字段数据,否则饼子就错位了。

  应用场景,无非是财务可以搞季度对应月度的收入、利润,成本、销售、管理对应的主要支出二级科目,HR搞一线人员、二线销售、职能人员对应各部门的人工成本分布等等,场景很多,双层饼还是比两个饼图要看起来直观很多。

  一、 制作过程简单,一键出表

  1. 上来先删掉已经存在的饼图,避免名称重复报错,文件制定了饼图name为"Tbb"

  2. 下图是模板文件内的数据底稿,可以自行更换为您想要出图的数据

  CASE9 双层饼图(一键出图表)

  3. 点击按钮陆续弹出2个窗口,问维度一、维度二的范围,按照下面格式修改即可

  CASE9 双层饼图(一键出图表)

  CASE9 双层饼图(一键出图表)

  4. 双层饼子出现了,没有做美化

  CASE9 双层饼图(一键出图表)

  二、 美化

  每个人的审美不同,这块自己按习惯选择,为了贴入PPT好看,我习惯用最后一个设计的样式,再插入数据标签,就是上面的效果,具体表头等根据最终展示环境自行设置。

  CASE9 双层饼图(一键出图表)

  CASE9 双层饼图(一键出图表)

  三、代码如下:

  Sub 宏1()

  j = InputBox("第一维度数据所在区域", "第一维度参数", "$A$2:$B$5")

  m = Range(j).Rows.Count

  k = InputBox("第二维度数据所在区域", "第二维度参数", "$C$2:$C$13")

  sht = ActiveSheet.Name

  ActiveSheet.Shapes.AddChart2(251, xlPie).Select

  ActiveChart.SetSourceData Source:=Range(sht & "!" & j)

  ActiveSheet.ChartObjects(1).Name = "Tbb"

  ActiveChart.SeriesCollection.NewSeries

  ActiveChart.FullSeriesCollection(2).Values = "=" & sht & "!" & k

  ActiveChart.FullSeriesCollection(1).AxisGroup = 2

  ActiveSheet.ChartObjects("Tbb").Activate

  ActiveChart.ChartArea.Select

  ActiveChart.FullSeriesCollection(1).Select

  Selection.Explosion = 50

  For i = 1 To m

  ActiveChart.FullSeriesCollection(1).Points(i).Select

  Selection.Explosion = 0

  Next

  End Sub

  Ok,Down。

  CASE9 双层饼图(一键出图表)