|
楼主 |
发表于 2011-10-4 14:48
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
lxw6 发表于 2011-10-4 12:51
cells(row,column)
我也是这样做的,但是动态设置属性的时候很不方便,
总是得像这样写
Cells(i + i - rowR, colorColunm + j).Borders(xlDiagonalDown).LineStyle = xlNone
Cells(i + i - rowR, colorColunm + j).Borders(xlDiagonalUp).LineStyle = xlNone
With Cells(i + i - rowR, colorColunm + j).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
我想弄的方便点
像这样:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With |
|