在超链接单元格之间复制条件格式
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
:
但是,该功能可能取决于您的具体情况。
如何确保单元格的条件格式也应用于其超链接单元格?
以下是我正在尝试做的一个基本示例。单元格 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
:
但是,该功能可能取决于您的具体情况。