根据其他细胞的颜色填充细胞的细节

时间:2015-08-09 18:02:31

标签: excel excel-vba excel-formula excel-2007 vba

我有一个由团队执行任务的excel,用户会将每个任务的详细信息放在每一行中,其中包括日期(日期任务开始)和其他详细信息。 任务完成后,特定行将以绿色突出显示不完整的任务,它将以黄色显示,而被取消的任务将显示为红色。我必须制作汇总表,这将分解已完成的任务已取消或不完整。我正在寻找一个根据行颜色提取细节的选项?有没有可用的选项?

1 个答案:

答案 0 :(得分:0)

您可以使用VBA创建UDF(用户定义函数)并将其保存到加载项文件中,以便可以在每个工作簿和其他计算机上使用它。

Microsoft有一篇知识文章解释了如何执行此操作,可以找到HERE。 (https://support.microsoft.com/en-gb/kb/2815384

基本上使用的代码是:

Function CountCcolor(range_data As range, criteria As range) As Long
    Dim datax As range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

现在在单元格中,您要计算用于编写函数的颜色:=CountCcolor(range_data,criteria)

" range_data"是指您想要计算颜色数量的范围和"标准"应该是与要计数的颜色相同的单元格的单元格引用。