罫線の色を変更する | 枠線の色を変更する |
VBAで罫線の色を変更する |
定数 | 値 | 説明 |
xlDiagonalDown | 5 | 範囲内の各セルの左上隅から右下への罫線 |
xlDiagonalUp | 6 | 範囲内の各セルの左下隅から右上への罫線 |
xlEdgeLeft | 7 | 範囲内の左端の罫線 |
xlEdgeTop | 8 | 範囲内の上側の罫線 |
xlEdgeBottom | 9 | 範囲内の下側の罫線 |
xlEdgeRight | 10 | 範囲内の右端の罫線 |
xlInsideVertical | 11 | 範囲内のすべてのセルの垂直罫線 |
xlInsideHorizontal | 12 | 範囲内のすべてのセルの水平罫線 |
Sub keisen_iro() Dim c As Range Dim i As Integer For Each c In Selection For i = 7 To 10 If c.Borders(i).LineStyle <> xlNone Then c.Borders(i).ColorIndex = 3 End If Next i Next c End Sub |