让不同的颜色计算为不同的值

进击的猪人

如图，我要把不同的颜色都对应为不同的值，要怎么弄公式或者vba呢

hxj119

函数与公式不能获取到颜色！！！，这颜色填充有啥规律没？

进击的猪人

hxj119 发表于 2024-7-23 09:45
函数与公式不能获取到颜色！！！，这颜色填充有啥规律没？

同个色的都标记为一个值，色是我自己手动标上去的

hxj119

进击的猪人 发表于 2024-7-23 10:20
同个色的都标记为一个值，色是我自己手动标上去的

目前公式不能实现！！！

饮冰e士

1. Option Explicit
   
2. 
   
3. Function colVal(rng As Range)
   
4. Dim RG As Range, c
   
5.   '标记为易失性函数，无论何时在工作表的任意单元格中进行计算时，易失性函数都必须重新进行计算
   
6.   Application.Volatile
   
7.   For Each RG In Sheet1.Range("H2:H6")
   
8.     If RG.Interior.Color = rng.Interior.Color Then colVal = RG.Offset(0, 1).Value
   
9.   Next RG
   
10. End Function
    

复制代码

进击的猪人

hxj119 发表于 2024-7-23 10:22
目前公式不能实现！！！

不可以用颜色映射什么的吗

hxj119

进击的猪人 发表于 2024-7-23 11:34
不可以用颜色映射什么的吗

函数无此功能，建议用VBA试试

进击的猪人

饮冰e士 发表于 2024-7-23 10:38

我用wps说是第一行第七列语法错误

世界客都

简单，用个宏表函数即可不用vba

宏表函数.zip (9.99 KB, 下载次数: 11)

2024-7-23 12:25 上传

点击文件名下载附件

饮冰e士

进击的猪人 发表于 2024-7-23 11:40
我用wps说是第一行第七列语法错误

我也用的WPS