偶尔兴致来了，练习一些图表，记录一下

morpheus126

493861364 发表于 2022-8-6 20:27
感谢老师指点，提供宝贵思路，我琢磨着点击作图的数据源单元格，图表动态变化还是可行的方案，有了结果再 ...

非技术人员的话，有兴趣玩玩可以，真用到工作汇报经营分析的话，太卷了，整那么漂亮简直对不起自己劳动力

morpheus126

micch 发表于 2022-8-6 20:40
有默认的图表事件，也可以写类模块来引用事件，还可以自定义事件。

长见识了，原来是宏表。。。
感觉可以玩点花样，谢谢指路

493861364

morpheus126 发表于 2022-8-7 10:41
非技术人员的话，有兴趣玩玩可以，真用到工作汇报经营分析的话，太卷了，整那么漂亮简直对不起自己劳动力 ...

哈，学的越多，越要慎用

493861364

往前翻了几页，应该没重，离600页越来越近了

wb_1027

画了一个寂寞

493861364

wb_1027 发表于 2022-8-11 19:47
画了一个寂寞

画了个例子（栗子）

493861364

太水了，每个柱子都有标签，纯柱形图

楼主赶紧发表大作啊，哈哈！

wb_1027

假设有图片所示的数据

要求展示各部门预算与实际费用使用情况
展示出超支或节约



利用 函数计算出超支与节约的差值，分两列
建立一个双折线图表
插入涨跌柱，美化即可

micch

每个形状指定同一个宏即可

1. Dim sp0 As Shape
   
2. '---形状点击执行的宏
   
3. Sub TestClick()
   
4.     s0$ = Application.Caller
   
5.     '---显示点击形状对应地名和形状设置颜色的宏（公共变量对前一个点击的形状恢复颜色）
   
6.     Range("F3").Value = s0
   
7.     If Not sp0 Is Nothing Then sp0.Fill.ForeColor.RGB = &HCCFFF2
   
8.     Set sp0 = Shapes(s0)
   
9.     '---B列地名，C列数据并设置地名对应的颜色
   
10.     Set Rng = Range("C" & Application.WorksheetFunction.Match(s0, Columns(2), 0))
    
11.     sp0.Fill.ForeColor.RGB = Rng.Interior.Color
    
12. End Sub
    
13. 
    

复制代码

493861364

micch 发表于 2022-8-22 10:58
每个形状指定同一个宏即可

厉害！！！