Excel Macro – удаление или добавление диагональных границ

Я очень новичок в кодировании и нуждаюсь в коде для удаления диагональных границ.

Этот макрос используется как кнопка для пустых ячеек с следующим кодом:

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 

Я также хотел бы удалить только одну диагональную границу для этой строки:

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

Как это достигается?

Удалить все границы: Sheets("Southwood").Range("M6:S9").Borders.LineStyle = xlNone

Удалите только диагональные границы:

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

Excel: найдите 'a' или 'b' в ячейке

Применение проверки даты в ячейке Excel из VB.Net

Данные поиска, если дата больше заданной даты и в указанном диапазоне дат

задайте тип формата столбца как дату или время, используя HSSFSheet

Aspen IP21 Тег Значение запроса с R

Применить границу к диапазону ячеек с помощью Openpyxl

Не удалось сохранить в каталог в облачной службе azure

Perl – пустые строки при записи CSV из Excel

Как получить данные из каждой отдельной ячейки?

Как сохранить несколько итераций переменной в Excel

vba-excel: как исключить копирование диапазона ячеек с циклом for и если оператор

Как объединить пары дат и значений, содержащихся в уникальном csv

Создание пользовательской проверки данных для согласования имени пользователя на рабочей панели Backend

VBA пытается установить адрес ячейки, не работает

Не удалось загрузить тип Microsoft.Office.Interop.Excel._Application

Давайте будем гением компьютера.