罫線位置 | 定数 | 結果(罫線位置) |
---|---|---|
上 | Borders(xlEdgeTop) | |
下 | Borders(xlEdgeBottom) | |
左 | Borders(xlEdgeLeft) | |
右 | Borders(xlInsideHorizontal) | |
内側の水平線 | Borders(xlInsideHorizontal) | |
内側の垂直線 | Borders(xlInsideVertical) | |
左上から右下への斜線 | Borders(xlDiagonalDown) | |
左下から右上の斜線 | Borders(xlDiagonalUp) | |
囲線 | Borders(xlContinuous ) |
Sub keisen01() Range("B2").Borders(xlEdgeTop).LineStyle = xlContinuous '上 Range("B4").Borders(xlEdgeBottom).LineStyle = xlContinuous '下 Range("B6").Borders(xlEdgeLeft).LineStyle = xlContinuous '左 Range("B8").Borders(xlEdgeRight).LineStyle = xlContinuous '右 Range("B10:C11").Borders(xlInsideHorizontal).LineStyle = xlContinuous '内側の水平線 Range("B12:C12").Borders(xlInsideVertical).LineStyle = xlContinuous '内側の垂直線 Range("B15").Borders(xlDiagonalDown).LineStyle = xlContinuous '左上から右下への斜線 Range("B17").Borders(xlDiagonalUp).LineStyle = xlContinuous '左下から右上への斜線 Range("B19").Borders.LineStyle = xlContinuous '囲線 End Sub
罫線の種類 | 定数 | 表示結果 |
---|---|---|
細実線 | LineStyle = xlContinuous | |
破線 | LineStyle = xlDash | |
一点鎖線 | LineStyle = xlDashDot | |
二点鎖線 | LineStyle = xlDashDotDot | |
点線 | LineStyle = xlDot | |
斜め破線 | LineStyle = xlSlantDashDot | |
二重線 | LineStyle = xlDouble | |
線なし(罫線削除) | xlLineStyleNone |
Sub keisen02() Range("B2").Borders.LineStyle = xlContinuous '細実線 Range("B4").Borders.LineStyle = xlDash '破線 Range("B6").Borders.LineStyle = xlDashDot '一点鎖線 Range("B8").Borders.LineStyle = xlDashDotDot '二点鎖線 Range("B10").Borders.LineStyle = xlDot '点線 Range("B12").Borders.LineStyle = xlSlantDashDot '斜め破線 Range("B14").Borders.LineStyle = xlDouble '二重線 Range("B16").Borders.LineStyle = xlLineStyleNone '線なし End Sub
罫線の太さ(種類) | 定数 | 表示結果 |
---|---|---|
極細 | Weight = xlHairline | |
細 | Weight = xlThin | |
中 | Weight = xlMedium | |
太 | Weight = xlThick |
Sub keisen03() Range("B2").Borders.Weight = xlHairline '極細 Range("B4").Borders.Weight = xlThin '細い Range("B6").Borders.Weight = xlMedium '中 Range("B8").Borders.Weight = xlThick '太い End Sub
Sub keisen1() With Range("B2").CurrentRegion 'B2から始まる表を自動的に選択 .Borders.LineStyle = xlContinuous '囲線を選択 .Borders.ColorIndex = 44 '色を選択 .Borders.Weight = xlThick '太字を選択 End With End Sub
Sub keisen2() With Range("B2:D11") 'B2~D11を指定して選択 .Borders.LineStyle = xlContinuous '囲線を選択 .Borders.ColorIndex = 56 '色を選択 .Borders.Weight = xlThin '細い End With End Sub