Question

如何在if语句为true的当前行的底部添加边框？如果当前行中特定单元格中的值等于'X'，我试图添加边框。

到目前为止，我尝试通过条件格式进行操作，但是由于某些原因，它不起作用。我标记了整行（需要底部边框），然后使用“使用公式来...”，然后使用公式：=$N$3='X'。我假设该表将进一步复制此格式，但事实是没有边框出现。

与编码一样，我也尝试过：

Public Sub formating()

  Dim rng As Range
  Set rng = Range(ActiveCell.Row)

  If (ActiveCell.Value = x) Then
     With rng.Borders
         .LineStyle = xlContinous
         .Color = vbBlack
         .Weight = xlThin
     End With

End Sub

Answer 1

Ganja，使用Range.Borders属性很容易实现。

请参见以下内容：

If ActiveCell.value = 10 Then
    With ActiveCell.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
End If

如果ActiveCell中的值等于10，则会在ActiveCell上添加底部边缘边框。请参见我们的代码中的差异，并尝试应用(xlBottomEdge)，您可以详细了解here。希望这会有所帮助。

Answer 2

@JanFusik的较短变体：

With ActiveCell
  .Borders(xlEdgeBottom).LineStyle = IIf(.Value = 10, xlContinuous, .Borders(xlEdgeBottom))
End With

if语句为true后，如何在当前行的底部添加边框？

2 个答案: