一个问题，急。。。。。。。

xlSheet.Cells(1, 1).BorderAround 1

解决方案 »

  1.   

    xlSheet.Cells(1, 1).BorderAround 线形样式, 线形, 颜色
      

  2.   

    xlSheet.Cells(1, 1).BorderAround  xlContinuous,xlThick,5
      

  3.   

    使用Range.BorderAround(LineStyle, Weight, ColorIndex, Color)
    xlSheet.Range("A1").BorderAround 3,xlThick
      

  4.   

    With Cells(1,1)
        .Borders.LineStyle = xlContinuous
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
    End With