堆积条形图指定内容填充颜色

暗夜央 · 发表于 2022-1-30 10:10

现在是产生这样一张堆积图，颜色是自动填充的，我希望能指定颜色，比如step6填充为绿色，step15填充为红色，这样来指定，表有点多，每张表手动改太麻烦，有没有方法写个宏来执行

暗夜央 · 发表于 2022-1-30 10:11

附件为测试用数据表

蓝桥玄霜 · 发表于 2022-1-30 18:21

图表生成后加以改变：

暗夜央 · 发表于 2022-2-7 14:03

蓝桥玄霜发表于 2022-1-30 18:21
图表生成后加以改变：

现在代码这是指定行改色，但我表很多，用这代码不如手动，能不能改成查询step的值来改色，这样我可以直接宏执行

蓝桥玄霜 · 发表于 2022-2-8 10:01

在E1单元格选择step，在G2：i2单元格输入颜色值即可。

暗夜央 · 发表于 2022-2-8 12:23

蓝桥玄霜发表于 2022-2-8 10:01
在E1单元格选择step，在G2：i2单元格输入颜色值即可。

改好颜色选了step后报错13类型不匹配，进调试指向tt = d(Target.Value)这一行报错

暗夜央 · 发表于 2022-2-9 09:15

蓝桥玄霜发表于 2022-2-8 10:01
在E1单元格选择step，在G2：i2单元格输入颜色值即可。

我把tt = d(Target.Value)改成tt = Target.Value后该行不报错，Sub bs(n)内.FullSeriesCollection(n).Select报错1004参数无效，n我在代码内也没找到定义，是不是还缺代码内容啊

蓝桥玄霜 · 发表于 2022-2-9 11:29

代码不需要修改，先点击A1单元格，然后再选择其它。

暗夜央 · 发表于 2022-2-9 12:54

蓝桥玄霜发表于 2022-2-9 11:29
代码不需要修改，先点击A1单元格，然后再选择其它。

我在新的表中要实现这效果的话需要怎么操作，代码加入宏中，E1添加数据验证，E2还有G2：i2需要怎么设置

暗夜央 · 发表于 2022-2-9 16:03

蓝桥玄霜发表于 2022-2-9 11:29
代码不需要修改，先点击A1单元格，然后再选择其它。

我想让这个效果重复15次实现，实现这张图这样
批注 2022-02-09 154016.png

我尝试for i=1 to 31 step 2 ,for j=2 to 32 step 2循环，单元格表达改为cells(e,i)这样,但With Cells(e, 1).Validation报错1004定义错误，改怎么修改代码

		自动登录	找回密码
密码			免费注册

[求助] 堆积条形图指定内容填充颜色