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

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

---

下面是我尝试做的一个基本例子。单元格E6具有条件格式。单元M7与单元E6超链接。如何确保M7具有与E6相同的格式？

使用

Hyperlink.subaddes

获取对其目标范围的引用。接下来复制目标范围，并使用

Hyperlink.pasteFormats

复制所有格式。如果您只需要条件格式，那么您必须重新测试目标的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

子进程超链接（）
模糊h作为超链接
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
对于ws.Hyperlinks中的每个h
如果h.SubAddress“”则
出错时继续下一步
h、 Range.FormatConditions.Delete
范围（h.子地址）。复制
h、 Range.Paste特殊XLPaste格式
错误转到0
如果结束
下一个
下一个
端接头

使用

Hyperlink.subaddes

获取对其目标范围的引用。接下来复制目标范围，并使用

Hyperlink.pasteFormats

复制所有格式。如果您只需要条件格式，那么您必须重新测试目标的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

子进程超链接（）
模糊h作为超链接
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
对于ws.Hyperlinks中的每个h
如果h.SubAddress“”则
出错时继续下一步
h、 Range.FormatConditions.Delete
范围（h.子地址）。复制
h、 Range.Paste特殊XLPaste格式
错误转到0
如果结束
下一个
下一个
端接头

tl；dr使用

，M7

将M7包括在已按条件格式化的CF的“应用于”范围中。例如，假设E6:G24的条件格式取决于F15的值为

AAAA

，例如使用以下公式规则：

  =$F$15="AAAA"

with适用于

$E$6:$G$24

在条件格式规则管理器中，选择应用于并追加

M7

：

---

但是，功能可能取决于您的具体情况

tl；dr使用

，M7

将M7包括在已按条件格式化的CF的“应用于”范围中。例如，假设E6:G24的条件格式取决于F15的值为

AAAA

，例如使用以下公式规则：

  =$F$15="AAAA"

with适用于

$E$6:$G$24

在条件格式规则管理器中，选择应用于并追加

M7

：

但是，功能可能取决于您的具体情况