条件格式Excel边框

Question

我有一个从宏填充的数据库 在专栏B:B中，我有约会。工作表按日期排序 我的目标是用黑线将所有行块与相同日期分开（使用边框） 我写了这段代码，但它无法正常工作

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n&, i&
n = Cells(150, 2).End(3).Row
For i = n To 2 Step -1
        If Cells(i + 1, 2) <> Cells(i , 2) Then Rows(i).Select
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlMedium
End With
Next i
End Sub

有点乱 如果有人可以提供帮助

Answer 1

使用条件格式可能会更好。 您只能使用CF设置细线或无线，但您可以将默认格式设置为中线，然后制定CF规则，以便在条件为True时将边框设置为除之外的任何内容。换句话说，当您需要中线时，CF规则将为False。