设立EXCEL区域外边框

2013-10-11

设置EXCEL区域外边框以下代码只是给区域加双线外边框，如何设置为粗线外边框？ExcelID.Range(A1:K33).Bord

设置EXCEL区域外边框
以下代码只是给区域加双线外边框，如何设置为粗线外边框？

        ExcelID.Range("A1:K33").Borders(xlEdgeBottom).LineStyle = xlDouble
        ExcelID.Range("A1:K33").Borders(xlEdgeLeft).LineStyle = xlDouble
        ExcelID.Range("A1:K33").Borders(xlEdgeRight).LineStyle = xlDouble
        ExcelID.Range("A1:K33").Borders(xlEdgeTop).LineStyle = xlDouble

[解决办法]


For i = 7 To 10
    Range("B2:K33").Borders(i).Weight = xlMedium '线宽 '1--xlHairline  2---xlThin 4---xlThick  &HFFFFEFD6--xlMedium
    Range("B2:K33").Borders(i).LineStyle = xlContinuous '线型1--xlContinuous  4--xlDashDot 5--xlDashDotDot  13--xlSlantDashDot &HFFFFEFED--xlDash  &HFFFFEFE9--xlDouble
Next