根据达成率区分不同颜色的数据条

有熊

天下任我行1986 发表于 2019-1-20 22:14
Sub 按照需求并更颜色()
Dim rg As Range
Set Rng = Application.InputBox("请输入需要变更的单元格：",  ...

厉害了......

untamed涛

dengxingchang 发表于 2019-1-21 01:49
照着5楼链接能做出来你可以再按教程做一遍

你这个75%和96%的数据条是什么情况，怎么没有长度了

untamed涛

天下任我行1986 发表于 2019-1-20 22:14
Sub 按照需求并更颜色()
Dim rg As Range
Set Rng = Application.InputBox("请输入需要变更的单元格：",  ...

你这个用了之后数据条颜色是变了，但是长度都是一样的了C:\Users\Administrator\Desktop\微信截图_20210724180913.png