Excelmacros – 删除或添加对angular边框

我对编码非常陌生，需要一个代码去除对angular边界。

这个macros被用作一个button，用下面的代码清空单元格：

Sub Southwood_Click() Sheets("Southwood").Range("C6:C8") = "" Sheets("Southwood").Range("D9:F9") = "" Sheets("Southwood").Range("F6:J8") = "" Sheets("Southwood").Range("J9") = "" Sheets("Southwood").Range("M6:S9") = "" Sheets("Southwood").Range("C26:C28") = "" Sheets("Southwood").Range("E26:E28") = "" Sheets("Southwood").Range("H26:O28") = "" Sheets("Southwood").Range("M29") = "" Sheets("Southwood").Range("C52:M54") = "" Sheets("Southwood").Range("C75:H77") = "" Sheets("Southwood").Range("J75:J77") = "" Sheets("Southwood").Range("L75:P77") = "" MsgBox "Southwood has been cleared." End Sub 

我也想删除这一行的对angular线边框：

 Sheets("Southwood").Range("M6:S9") = "" 

这是如何完成的？

Answer 1

删除所有边框： Sheets("Southwood").Range("M6:S9").Borders.LineStyle = xlNone

只删除对angular边框：

 With Sheets("Southwood").Range("M6:S9") .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone End With