excel中的图形在符合不同条件的时候变更不同的颜色

chris_01

请问怎么使excel的图形，在符合随着数据范围的不同，而变色？应该和地图变色那个差不多，但是需要自定义颜色和图形以及数据
比如：
1-10    图形是红色
11-20  图形是绿色
21-30  图形是黄色

493861364

没有附件，没有数据，大概猜一下，看是不是你想要的结果
如果想要单元格随着数值的大小呈现不同的颜色，使用条件格式------数据条
如果是图形就设置颜色，图形多的话就用vba

chris_01

493861364 发表于 2022-2-24 18:11
没有附件，没有数据，大概猜一下，看是不是你想要的结果
如果想要单元格随着数值的大小呈现不同的颜色，使 ...

vba需要咋弄完全不会，有没有一些简单一点的方法

493861364

chris_01 发表于 2022-2-24 18:34
vba需要咋弄完全不会，有没有一些简单一点的方法

上传附件，模拟数据，写清楚想要的效果，看能不能帮到你，要不只能继续猜，
论坛里很多老师、大神的

chris_01

有没有大神帮帮忙

chris_01

493861364 发表于 2022-2-24 18:49
上传附件，模拟数据，写清楚想要的效果，看能不能帮到你，要不只能继续猜，
论坛里很多老师、大神的

已经上传附件了，描述起来有点难，大概的意思就是，在数值在1-10，设置的图形比如正方形是红色的。在11-20这个图行就变成黄色这样。和单元格的根据条件变色是一样的，但是现在变色是图形。因为资料没有办法对外提供，只能模拟出差不多的附件表格出来

493861364

1. Sub test()
   
2.     Dim cht As Chart
   
3.     Dim ser As Series
   
4.     Set cht = ActiveSheet.ChartObjects(1).Chart
   
5.     Set ser = cht.SeriesCollection(1)
   
6.     ActiveSheet.ChartObjects(1).Activate
   
7.     For j = 1 To ser.Points.Count
   
8.         ActiveChart.FullSeriesCollection(1).Points(j).Select
   
9.         If ser.Values(j) <= 30 Then
   
10.             ActiveChart.FullSeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(192, 0, 0)
    
11.         ElseIf ser.Values(j) <= 60 Then
    
12.             ActiveChart.FullSeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(255, 255, 0)
    
13.         ElseIf ser.Values(j) <= 90 Then
    
14.             ActiveChart.FullSeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
    
15.         Else
    
16.             ActiveChart.FullSeriesCollection(1).Points(j).Format.Fill.ForeColor.RGB = RGB(0, 176, 240)
    
17.         End If
    
18.     Next j
    
19. End Sub
    

复制代码

david7911

VBA玩不来，添加4个辅助列，将数据分成4个系列，手动填充颜色

493861364

david7911 发表于 2022-2-25 09:21
VBA玩不来，添加4个辅助列，将数据分成4个系列，手动填充颜色

挺好的办法，学习了

chris_01

谢谢各位大神