![在 Excel 2013 中更改多个单元格的边框颜色而不更改边框样式](https://linux22.com/image/1529819/%E5%9C%A8%20Excel%202013%20%E4%B8%AD%E6%9B%B4%E6%94%B9%E5%A4%9A%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E7%9A%84%E8%BE%B9%E6%A1%86%E9%A2%9C%E8%89%B2%E8%80%8C%E4%B8%8D%E6%9B%B4%E6%94%B9%E8%BE%B9%E6%A1%86%E6%A0%B7%E5%BC%8F.png)
但是,是否可以在不更改边框样式的情况下更改所有边框颜色?我已经尝试选择线条颜色并使用 CTRL 浏览单元格 - 但这确实会改变线条样式,而我有多种样式,我不想从头开始。
答案1
在 VBA 中,您可以.colorindex
独立于边框对象的其他属性来更改该属性:
Sub bordercolor()
With Selection.Borders
.ColorIndex = 32
End With
End Sub
这只会改变边框颜色,而不会改变线条样式或宽度。为方便起见,请将此宏分配给一个键。32
表示颜色索引值,请根据您的喜好进行调整。请参阅本文如果您只想更改一个特定边框(xlDiagonalDown
,xlDiagonalUp
,xlEdgeBottom
,xlEdgeLeft
,xlEdgeRight
,xlEdgeTop
或),xlInsideHorizontal
请查看边框集合的描述。xlInsideVertical