在Excel中，可以將邊框添加到單個單元格以強(qiáng)調(diào)數(shù)據(jù)，標(biāo)記匯總值或單元格區(qū)域中的數(shù)據(jù)。邊界也可以用不同的線條樣式和顏色進(jìn)行格式化。本文介紹了如何使用Spire.XLS將邊框樣式應(yīng)用于Excel單元格。

Step 1: 創(chuàng)建一個工作簿實例并獲取第一個工作表。

Workbook wb = new Workbook();
Worksheet sheet = wb.Worksheets[0];

Step 2: 獲取您想要應(yīng)用邊框樣式的單元格區(qū)域。

CellRange range = sheet.Range["B2:D4"];

Step 3: 調(diào)用BorderInside（）和BorderAround（）方法將樣式應(yīng)用于范圍內(nèi)和范圍的邊界。 若要將邊框添加到頂部，底部，左側(cè)和右側(cè)，請使用邊框[BordersLineType.EdgeTop] .LineStyle屬性，邊框[BordersLineType.EdgeBottom] .LineStyle屬性等。

range.BorderInside(LineStyleType.Thin, Color.Blue);
range.BorderAround(LineStyleType.Medium, Color.Blue);

Step 4: 保存到文件。

wb.SaveToFile("result.xlsx", ExcelVersion.Version2013);

輸出：

完整代碼：

[C#]

Workbook wb = new Workbook();
Worksheet sheet = wb.Worksheets[0];

//apply border style to the range B2:D4
CellRange range = sheet.Range["B2:D4"];
range.BorderInside(LineStyleType.Thin, Color.Blue);
range.BorderAround(LineStyleType.Medium, Color.Blue);

//apply border style to the range D7:F9
range = sheet.Range["D7:F9"];
range.Borders.LineStyle = LineStyleType.Double;
range.Borders[BordersLineType.DiagonalDown].LineStyle = LineStyleType.None;
range.Borders[BordersLineType.DiagonalUp].LineStyle = LineStyleType.None;

//apply border style to the range F12:H14
range = sheet.Range["F12:H14"];
range.Merge();
range.BorderAround(LineStyleType.Thin);
range.Borders[BordersLineType.DiagonalDown].LineStyle = LineStyleType.Thin;
range.Borders[BordersLineType.EdgeBottom].LineStyle = LineStyleType.Thick;  
range.Borders.Color = Color.Red;

wb.SaveToFile("result.xlsx", ExcelVersion.Version2013);

[VB.NET]

Dim wb As Workbook = New Workbook()
Dim sheet As Worksheet = wb.Worksheets(0)
 
'apply border style to the range B2:D4
Dim range As CellRange = sheet.Range("B2:D4")
range.BorderInside(LineStyleType.Thin, Color.Blue)
range.BorderAround(LineStyleType.Medium, Color.Blue)
 
'apply border style to the range D7:F9
range = sheet.Range("D7:F9")
range.Borders.LineStyle = LineStyleType.Double
range.Borders(BordersLineType.DiagonalDown).LineStyle = LineStyleType.None
range.Borders(BordersLineType.DiagonalUp).LineStyle = LineStyleType.None
 
'apply border style to the range F12:H14
range = sheet.Range("F12:H14")
range.Merge()
range.BorderAround(LineStyleType.Thin)
range.Borders(BordersLineType.DiagonalDown).LineStyle = LineStyleType.Thin
range.Borders(BordersLineType.EdgeBottom).LineStyle = LineStyleType.Thick
range.Borders.Color = Color.Red

wb.SaveToFile("result.xlsx", ExcelVersion.Version2013)

點(diǎn)擊下載Spire.XLS