(2)在插入的模块中输入如下代码(可以复制此处代码进行粘贴。能实现颜色求和功能的代码有多种,下方只是相对简单的一种。) Function SumColor(sum_range As Range, ref_rang As Range) Dim x As Range For Each x In sum_range If x.Interior.ColorIndex = ref_rang.Interior.ColorIndex Then SumColor = Applic...
Function按颜色计数(iAsRange, jAsRange)'新建一个自定义函数,函数名为 Countc(参数 1 是一个区域 i,参数 2 也是一个区域 j)Dim n As Integer '定义一个变量 n,变量 n 为数值Dim kAsRange'定义一个变量 k,变量 k 为区域For Each k In i '遍历区域 i 的所有单元格Ifk.Interior.Color = j.Interior....
51CTO博客已为您找到关于excel if函数变颜色的相关内容,包含IT学习相关文档代码介绍、相关教程视频课程,以及excel if函数变颜色问答内容。更多excel if函数变颜色相关解答可以来51CTO博客参与分享和学习,帮助广大IT技术人实现成长和进步。
If rng.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(rng) + SumColor End If Next rng End Function 这样的话，我们单元格里面输入公式：=SumColor(B2:D14,B3)我们用代码自定义了一个求和函数，第一个参数是求和区域，第二个参数是求和的颜色参照单元格 VBA代码的方法，当...
If x.Interior.Color = s Then n = n + x.Value End If Next YS = n End Function 2.1输入自定义公式：在C10单元格输入刚刚的自定义公式“=YS(B10,$B$2:$J$8)”2.2 函数解释： YS(颜色对象，求和区域) 即计算在B2:J8区域内颜色与B11单元格相同的所有数字的和。按对应颜色的条件求和：上面介绍...
EachRgIn求和区域SelectCase颜色类型Case"填充"Bol = (Rg.Interior.Color = 参考单元格.Interior.Color)Case"字体"Bol = (Rg.Font.Color = 参考单元格.Font.Color)CaseElse按颜色求和 ="第三参数出错,请检查确认"ExitFunctionEndSelectIfBolThenTotal = Total + Rg.ValueEndIfNext按颜色求和 = TotalEndFunction...
If x.Interior.ColorIndex = ref_rang.Interior.ColorIndex Then SumColor = Application.Sum(x) + SumColor End If Next x End Function (3)返回工作表即可用函数SUMCOLOR进行求和了。 附上代码解析: 注意:使用了宏表函数,以及VBA自定义函数后,文件需要保存为支持宏的xlsm格式。 小结 1.如果是利用条件格式赋予...
选中”7月3日“前面的单元格，插入-名称-定义-输入”color“-引用位置输入”=GET.CELL(38,B3)（这里的B3为“7月3日”单元格所在位置“）确认保存 A3=IF(COLOR=4，"返料","")颜色代码见下图：可
= colorName Then ColorValue = colorDict(dictKey) Exit For End If ColorValue = RGB(255, 255, 255) '如果没有则为白色 Next ColorByName = ColorValue End If End Function这里有个对工作表是否存在的判断，可以单独列出来作为一个自定义函数来用，另外，加入字典的颜色以“整理...
.Color = -16776961 .TintAndShade = 0 End With End If Next myCell End Sub The color value of your RGB values = 10284031 (i.e. the result of R+G*256+B*256*256). You need this to be able to read out color value in each of your cells. ...