excel表格怎么更改选项框

1.在excel中如何改变选定单元格边框?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Cells.FormatConditions.Delete With Target.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 6 End With End Sub。