Excel vba设置单元格边框

两种方法：

 第一种：

cells(x,y).Borders.LineStyle = xlContinuous   ''设置单元格边框

cells(x,y).Borders.ColorIndex = 48   "设置边框颜色  

Cells(x,y).Interior.ColorIndex = 48 ' 背景的颜色为色号48

Cells(x,y).Interior.Color = RGB(0, 0, 255)  '背景的颜色蓝色

  第二种：

Range(Cells(x, y), Cells(x + 1, y)).Borders.LineStyle = xlContinuous    "同时给多行单元格设置边框  本例为给 x行及x的下一行 两行同时添加边框

Range(Cells(x, y), Cells(x + 1, y)).Borders.ColorIndex = 48  "同时给多行单元格设置边框颜色