在超链接单元格之间复制条件格式

copy conditional formatting between hyperlinked cells

如何确保单元格的条件格式也应用于其超链接单元格?

以下是我正在尝试做的一个基本示例。单元格 E6 具有条件格式。单元格 M7 超链接到单元格 E6。如何确保 M7 具有与 E6 相同的格式?

使用Hyperlink.SubAddess 获取对其目标范围的引用。接下来复制目标范围并使用Hyperlink.PasteSpecial xlPasteFormats将所有格式复制过来。如果您只想要条件格式,则必须迭代目标的 FormatConditions。

Sub ProcessHyperlinks()
    Dim h As Hyperlink
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        For Each h In ws.Hyperlinks
            If h.SubAddress <> "" Then
                On Error Resume Next
                h.Range.FormatConditions.Delete
                Range(h.SubAddress).Copy
                h.Range.PasteSpecial xlPasteFormats
                On Error GoTo 0
            End If
        Next
    Next

End Sub

tl;dr 扩展 适用于 范围 ,M7

将 M7 包含在已条件格式化的 CF 的适用范围内。例如,假设 E6:G24 的条件格式以 F15 的值为 AAAA 为条件,例如使用此公式规则:

  =$F="AAAA"

适用于 $E:$G

在条件格式规则管理器中 select 适用于并附加 M7

但是,该功能可能取决于您的具体情况。