[已解决]VBA设置条件格式

chensir

请教各位，如何用语句实现设置图一里的条件格式，就是B:D里，如果B2<>B1，单元格下框线变为红色

最佳答案

月排行榜 / 总排行榜

风林火山

2022-8-26 15:02

1. Sub Macro1() '录制宏
   
2.     With Selection.Borders(xlEdgeTop)
   
3.         .Weight = xlThin
   
4.         .LineStyle = xlContinuous
   
5.         .Color = 255
   
6.         .TintAndShade = 0
   
7.     End With
   
8. End Sub
   
9. Sub TEST()
   
10.     Dim K As Integer
    
11.     For K = 2 To Cells(Rows.Count, 2).End(3).Row
    
12.         If Cells(K, 2) <> Cells(K - 1, 2) Then
    
13.             Cells(K, 2).Resize(1, 4).Select
    
14.             Call Macro1
    
15.         End If
    
16.     Next K
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

风林火山

1. Sub Macro1() '录制宏
   
2.     With Selection.Borders(xlEdgeTop)
   
3.         .Weight = xlThin
   
4.         .LineStyle = xlContinuous
   
5.         .Color = 255
   
6.         .TintAndShade = 0
   
7.     End With
   
8. End Sub
   
9. Sub TEST()
   
10.     Dim K As Integer
    
11.     For K = 2 To Cells(Rows.Count, 2).End(3).Row
    
12.         If Cells(K, 2) <> Cells(K - 1, 2) Then
    
13.             Cells(K, 2).Resize(1, 4).Select
    
14.             Call Macro1
    
15.         End If
    
16.     Next K
    
17. End Sub
    

复制代码

zjdh

Sub Macro1()
    Range("B:D").FormatConditions.Add Type:=xlExpression, Formula1:="=R[1]C2<>RC2"
    With Range("B:D").FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Color = 255
        .Weight = xlThin
    End With
End Sub

zjdh

2楼不是设置条件格式，而是设置框线，新添加内容就不会自动添加红色间隔线！

chensir

zjdh 发表于 2022-8-26 15:23
2楼不是设置条件格式，而是设置框线，新添加内容就不会自动添加红色间隔线！

对的，感谢、感谢。