[已解决]求销售对比图表

月光不合

销售对比图.7z (42.92 KB, 下载次数: 43)

2021-6-2 11:13 上传

点击文件名下载附件

493861364

把主要坐标轴的最小值改为-1000

月光不合

493861364 发表于 2021-6-2 12:47
把主要坐标轴的最小值改为-1000

谢谢................

493861364

月光不合 发表于 2021-6-2 14:17
谢谢................

互相帮助，互相学习

zyspecial

两列数据对比图

493861364

zyspecial 发表于 2021-6-12 09:04
两列数据对比图

柱子颜色设置的很漂亮，能分享一下吗

zyspecial

这个是通过Vba批量设定的系列内的填充色

月光不合

zyspecial 发表于 2021-6-12 15:18
这个是通过Vba批量设定的系列内的填充色

求分享..................

zyspecial

Function ColorGroup(首颜色, 尾颜色, 个数) '根据首尾颜色按照个数进行拆分出系列渐变色
    Dim CC1&, CC2&, CE1&, CE2&, CE3&, DLT1, DLT2, DLT3, XX1&, C1R, C1G, C1B, C2R, C2G, C2B, TempArr, NN1&, iX&
    CC1 = 首颜色
    CC2 = 尾颜色
    NN1 = 个数
    C1R = CC1 Mod 256
    C1G = (CC1 - C1R) / 256 Mod 256
    C1B = (CC1 - C1R - C1G * 256) / 256 ^ 2
    C2R = CC2 Mod 256
    C2G = (CC2 - C2R) / 256 Mod 256
    C2B = (CC2 - C2R - C2G * 256) / 256 ^ 2
    CE1 = C2R - C1R
    CE2 = C2G - C1G
    CE3 = C2B - C1B
    DLT1 = CE1 / (NN1 - 1)
    DLT2 = CE2 / (NN1 - 1)
    DLT3 = CE3 / (NN1 - 1)
    ReDim TempArr(0 To NN1 - 1)
    For iX = 0 To NN1 - 1
        TempArr(iX) = RGB(C1R + DLT1 * XX1, C1G + DLT2 * XX1, C1B + DLT3 * XX1)
        XX1 = XX1 + 1
    Next
    ColorGroup = TempArr
End Function

493861364

zyspecial 发表于 2021-6-15 12:33
Function ColorGroup(首颜色, 尾颜色, 个数) '根据首尾颜色按照个数进行拆分出系列渐变色
    Dim CC1&, C ...

这位老师，怎么调用这个函数啊，试了半天也没搞出来，拜谢了！