不能获取条件格式单元格颜色range.DisplayFormat.Interior.ColorIndex

yvhgydn

中设置了条件格式，选择A1，点击按钮，运行显示不支持该属性或方法

我在其他电脑上运行没问题，
Selection.DisplayFormat.Interior.ColorIndex,此句代码运行不支持属性或方法

Sub fd()
    If Selection.Count = 1 And Selection.FormatConditions.Count > 0 Then
        ys = Selection.DisplayFormat.Interior.ColorIndex '颜色
        If ys = Range("d1").DisplayFormat.Interior.ColorIndex Then MsgBox "正确"
    End If
End Sub
向各位进行请教。 Book1.rar (17.86 KB, 下载次数: 4)

2024-1-8 11:26 上传

点击文件名下载附件

yvhgydn

如图，在输入代码时，属性方法下拉列表中不显示.DisplayFormat属性，该如何调用呢

yvhgydn

我看了一下，是不是因为EXCEL2007版本range不支持displayformat方法,那要实现此功能，该怎么办呢

taller

那就复杂了，需要遍历条件格式，使用VBA代码去评估其中的条件是否满足，如果满足读取条件格式设置的填充色。简单的说，就是用代码实现重新实现了一遍条件格式的判断逻辑。

建议采用其他方式，而无需锁定在条件格式上。

perfect131

yvhgydn 发表于 2024-1-8 14:21
我看了一下，是不是因为EXCEL2007版本range不支持displayformat方法,那要实现此功能，该怎么办呢

你得谷歌
selection.formatconditions(1).Interior.ColorIndex

cidanji

DisplayFormat不能用的话就得按条件来，那就难了

yvhgydn

cidanji 发表于 2024-1-8 17:41
DisplayFormat不能用的话就得按条件来，那就难了

我本来用DisplayFormat都写好了代码，现在我的版本是2007，同一单元格可能有两至三个条件格式，就达不到一次性进行提取，好象自定义函数也不太好写
selection.formatconditions(1).Interior.ColorIndex循环条件格式好象也不太好用啊
还有就是range.Interior.ColorIndex和range.DisplayFormat.Interior.ColorIndex提取出来的颜色值不一至

yvhgydn

现在的办法是将条件格式分开做，每一列单元格只做一个条件格式，另外多写段代码，如是2007版本就报错跳用2007相关的代码，如是2010以上版本就用另一段代码
Sub 填充色解释()
On Error GoTo line1 '遇错误继续执行，执行2007版本
    If Selection.Count = 1 And Selection.FormatConditions.Count > 0 Then
        ys = Selection.Displayformat.Interior.ColorIndex '颜色2010版本以上使用Displayformat，如不能使用则错误跳过执行LINE1
        For Each ranys In Sheets("问题建议").Range("a2:a10")
            If ranys.Displayformat.Interior.ColorIndex = ys Then
                MsgBox ranys.Offset(0, 1) & "： " & ranys.Offset(0, 2), 1, "单元格条件格式及种颜色含义"
                yss = yss + 1
            End If
        Next
        If yss = 0 Then MsgBox Sheets("问题建议").Range("c11"), 1, "单元格条件格式及颜色含义" '如没有循环颜色 ，则显示所有颜色解释
End  '如前面执行没问题，退出程序，不执行2007版本要求
   
line1: '2007版本执行以下代码
        ys = Selection.FormatConditions(1).Interior.ColorIndex '颜色2010版本以上使用Displayformat，如不能使用则错误跳过执行LINE1
        For Each ranys In Sheets("问题建议").Range("a2:a10")
            If ranys.Interior.ColorIndex = ys Then
                MsgBox ranys.Offset(0, 1) & "： " & ranys.Offset(0, 2), 1, "单元格条件格式及种颜色含义"
                yss = yss + 1
            End If
        Next
        If yss = 0 Then MsgBox Sheets("问题建议").Range("c11"), 1, "单元格条件格式及颜色含义" '如没有循环颜色 ，则显示所有颜色解释
        
    Else

         MsgBox Sheets("问题建议").Range("c11"), 1, "该单元格未使用条件格式" '如没有条件格式 ，则显示所有颜色解释
    End If
End Sub