條件格式在單邊

Question

邊框我試圖添加行之間的邊界時，在第1點的數據發生變化。此代碼分爲.LineStyle = xlContinuous。我得到的錯誤是「無法設置Border類的LineStyle屬性」。

有代碼或這樣做的另一種方法錯誤？

Sub AddBorders() 
    With Range("A:B").FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<>A2") 
     With .Borders(xlEdgeBottom) 
      .LineStyle = xlContinuous 
      .ColorIndex = xlAutomatic 
      .TintAndShade = 0 
      .Weight = xlThin 
     End With 
    End With 
End Sub 

Answer 1

看來，這不是xlEdgeBottom它只是xlBottom。所以，改線：

With .Borders(xlEdgeBottom)

到

With .Borders(xlBottom)

和它的工作對我來說

Answer 2

除了使用xlBottom代替xlEdgeBottom，另一個可能出現此錯誤的原因是已經將三種以上的條件格式應用於相同的範圍。我遇到了同樣的問題，這是爲我解決的。

的MSDN documentation on the Add method狀態：

不能定義三個以上的條件格式的範圍。使用Modify方法修改現有條件格式，或使用Delete方法在添加新格式之前刪除現有格式。