本示例显示工作表 A1 单元格下边框的颜色。
MsgBox ActiveSheet.Range("A1").Borders.Item(etEdgeBottom).Color