Как удалить границы из ячеек в диапазоне в Excel с помощью VB.net?

цель для достижения: Чтобы избавиться от границ, если в ячейках диапазона.

Я :

Dim range As Excel.Range = sheet.Range("A2:K100")
For Each cell In range
    // Some cells in the Range has borders
    // How to remove borders from cells in the range
Next cell

пожалуйста, помогите.. !

Я новичок в Vb.net !

6
.net border excel excel-vba vb.net vba

4 ответов

range.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlLineStyleNone

удаляет границы вокруг ячеек и между ячейками (через xlInsideHorizontal и xlInsideVertical). Если вы ожидаете диагональные границы, включите xlDiagonalDown и xlDiagonalUp.

хорошо, приведенный выше код был очень подробным. Следующее должно сделать это тоже:

For Each border in range.Borders
    border.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Next

см.: http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx

EDIT:

просматривая страницу MSDN, мне интересно, если этот лайнер тоже мог это сделать:--8--> 

range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
18

Диапазон ("A2: K100").Границы государств.LineStyle = xlNone

2

Регистрация элемент управления namedrange.Метод BorderAround .

Dim range As Excel.Range = sheet.Range("A2:K100")
range.BorderAround(Excel.XlLineStyle.xlLineStyleNone, Excel.XlBorderWeight.xlThin, Microsoft.Office.Interop.Excel.XlColorIndex.xlColorIndexAutomatic, missing)

ура и удачи!

1

почему все ответы так витиевато?

для всей пользы листа...

With .Cells
       .Borders.LineStyle = xlLineStyleNone
End With

для диапазона просто заменить .Ячейки по мере необходимости

0