关于条件格式下的vba获取单元格的字体颜色

提取A1单元格的颜色？？？

ALT+F11——F7——粘贴如下代码，注意换行——F5运行

Sub 提取颜色()

Dim i As Long  '定义循环变量

For i = 1 To [a65536]End(xlUp)Row    '从第1行循环至最后一行

    Range("b" & i) = Range("a" & i)FontColorIndex '获取A列数据字体颜色

Next i

End Sub

效果图如下：

Sub jk()

Dim i, j

ApplicationScreenUpdating = False

Range("a7:aq900")Select

For i = 1 To SelectionCount

If Selection(i) <> "" Then

With Selection(i)Interior

Pattern = xlSolid

PatternColorIndex = xlAutomatic

Color = 65535

TintAndShade = 0

PatternTintAndShade = 0

End With

Else: With Selection(i)Interior

Pattern = xlNone

TintAndShade = 0

PatternTintAndShade = 0

End With

End If

Next

ApplicationScreenUpdating = True

End Sub

条件格式，设置四个条件

选择A列，条件格式公式输入=AND(A1=MAX($A1:$D1),A1<>"")，填充选择红色

选择B列，条件格式公式输入=AND(B1=MAX($A1:$D1),B1<>"")，填充选择绿色

选择C列，条件格式公式输入=AND(C1=MAX($A1:$D1),C1<>"")，填充选择蓝色

选择D列，条件格式公式输入=AND(D1=MAX($A1:$D1),D1<>"")，填充选择紫红色

Option Explicit

Sub fColor()

    Dim rng As Range, srng As Range, res As Range

    With Sheets("Sheet1") '这里选择工作表

        Set srng = [a1:d12] '这里选择区域

        For Each rng In srng

            If rngInteriorColorIndex = 3 Then

                If Not res Is Nothing Then

                    Set res = Union(res, rng)

                Else

                    Set res = rng

                End If

            End If

        Next rng

        MsgBox resAddress(0, 0)

        DebugPrint resAddress(0, 0)

        resSelect

        Set res = Nothing

        Set srng = Nothing

    End With

End Sub

以上就是关于关于条件格式下的vba获取单元格的字体颜色全部的内容，包括:关于条件格式下的vba获取单元格的字体颜色、excel vba给有内容的单元填充颜色、如何在vba中实现满足条件的单元格填充相应的颜色等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！