wake-up-neo.net

Entfernen von Rahmen aus Zellen in einem Bereich in Excel mithilfe von VB.net

Ziel zu erreichen: Grenzen in den Zellen der Reichweite, wenn überhaupt, loszuwerden.

Ich habe :

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

Bitte helfen ..!

Ich bin neu bei Vb.net!

9
Yugal Jindle
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

Entfernt die Ränder um die Zellen und zwischen Zellen (über xlInsideHorizontal und xlInsideVertical). Wenn Sie einen diagonalen Rahmen erwarten, schließen Sie xlDiagonalDown und xlDiagonalUp ein.

Okay, der obige Code war sehr ausführlich. Folgendes sollte es auch tun:

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

Siehe: http://msdn.Microsoft.com/de-de/library/Microsoft.office.interop.Excel.borders.aspx

EDIT:

Während ich über die MSDN-Seite schaue, frage ich mich, ob dieser eine Liner auch das tun könnte:

range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
20
VVS

Bereich ("A2: K100"). Borders.LineStyle = xlNone

3
Unknown

Überprüfen Sie die NamedRange.BorderAround-Methode .

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

beifall und viel Glück!

1
Lucian

warum sind alle Antworten so kompliziert?

für den gesamten Bogengebrauch ...

With .Cells
       .Borders.LineStyle = xlLineStyleNone
End With

für eine Reihe einfach .Cells entsprechend ersetzen

1
Steven Martin