用vb在二次excel中给D3单元格添加下边框

发布网友发布时间：2022-06-09 21:43

共1个回答

热心网友时间：2024-01-18 03:27

录个宏就知道，关于xl开头的是Excel里定义的常量，你可以在宏编辑器的对象浏览器里查找到具体的值

Const xlDiagonalDown = 5

objSheet.Range("D3").Select
objSheet.Range("D3").Borders(xlDiagonalDown).LineStyle = xlNone
objSheet.Range("D3").Borders(xlDiagonalUp).LineStyle = xlNone
objSheet.Range("D3").Borders(xlEdgeLeft).LineStyle = xlNone
objSheet.Range("D3").Borders(xlEdgeTop).LineStyle = xlNone
With objSheet.Range("D3").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
objSheet.Range("D3").Borders(xlEdgeRight).LineStyle = xlNone
objSheet.Range("D3").Borders(xlInsideVertical).LineStyle = xlNone
objSheet.Range("D3").Borders(xlInsideHorizontal).LineStyle = xlNone

我是用Excel2007录的宏，可能2003没这个属性TintAndShade ，去掉看看，最好自己录一个

Range("D3:D5")