根据特定的内部颜色在细胞周围添加白色边界

Question

我正在尝试将条件格式添加到指定的数据范围内，该数据将在具有特定背景颜色的单元格周围放置白色边界。我希望它的作用像条件格式，当使用特定的内部颜色时，它会自动放置边界(即，不是一次性可执行的宏(。

白色边界的样本图像

我需要能够对进行排序并维护围绕颜色的边框(有条件格式的一种类型将移动单元格的颜色，但不能移动边框(。因此，我了解这必须通过宏观/VBA实现。如果是这样，任何人都可以帮助宏观/VBA公式吗？

谢谢！

Answer 1

这个宏应该可以解决问题。将其放入工作表代码模块中。只需将下面的范围编辑到您的彩色单元格中的任何范围内即可。在SelectionChange事件中，这非常有效，但是您可能会在计算上根据设置颜色的方式进行计算。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim TargetRange As Range
    Dim cell As Range
    Set TargetRange = Range("A1:C5")  'or whatever you want to search
    For Each cell In TargetRange
        If (cell.Interior.Color = vbGreen Or cell.Interior.Color = vbRed) Then
            cell.Borders.Color = vbWhite
            cell.Borders.LineStyle = xlContinuous
        Else
            cell.Borders.LineStyle = xlNone
        End If
    Next
End Sub

Answer 2

有条件格式的选项以设置边框轮廓颜色：

格式窗口的图像

尝试： 条件格式> 新规则> 格式> border

排序将通过有条件格式设置的边框颜色。

我认为您正在寻找