|
▼TAKA さん:
>Rows("1:1").Select
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> Selection.Borders(xlEdgeLeft).LineStyle = xlNone
> With Selection.Borders(xlEdgeTop)
> .LineStyle = xlContinuous
> .Weight = xlMedium
> .ColorIndex = xlAutomatic
> End With
> Selection.Borders(xlEdgeBottom).LineStyle = xlNone
> Selection.Borders(xlEdgeRight).LineStyle = xlNone
> Selection.Borders(xlInsideVertical).LineStyle = xlNone
これで、ひとつのセルに対する罫線です。
xlDiagonalDown 左上から右下
xlDiagonalUp 左下から右上
xlEdgeLeft 左
xlEdgeTop 上
xlEdgeBottom 下
xlEdgeRight 右
xlInsideVertical 内側の縦線
xlInsideHorizontal 内側の横線
後はselectionを
selection.Offset(n,m).select
で任意に移動してみては?
Borders
Offset
については、わかりますか?Helpは使えますか(インストールしていますか)?
|
|