つらつら Excel VBA

私の備忘録です。

2021-02-20

罫線

VBA Excel

とりま最近使った総勘定元帳から抜粋

With newSheet
    .Range("A2:H10").Borders.LineStyle = xlContinuous '実線
    .Range("A3:H10").Borders(xlInsideHorizontal).Weight = xlHairline '極細
    .Range("B2:C10").Borders(xlEdgeLeft).LineStyle = xlDouble '二重線
    .Range("B2:C10").Borders(xlEdgeRight).LineStyle = xlDouble '二重線
    .Range("A10:H10").Borders(xlEdgeTop).LineStyle = xlDouble '二重線
End With

以上