[[20040421105146]]　『罫線の色をまとめて変更』（dude）　ページの最後に飛ぶ

『罫線の色をまとめて変更』（dude）

 こんにちは。恐らくVBAの質問になると思うのですが宜しくお願いします。

 あるワークシートで色々な罫線（通常線、太線、二重線）をいくつかの色で使用して
います。これらをまとめて一つの色に変更する（例えば全て赤）ような方法はあるので
しょうか？もちろん、一般機能でもかまいません。

 宜しくご教授願います。

 [Excel2000] [WindowsNT]

 どうぞ。

 Sub Sample()
 Dim r As Range

    For Each r In ActiveSheet.UsedRange
    With r
        If .Borders(xlEdgeLeft).LineStyle <> xlLineStyleNone Then
            .Borders(xlEdgeLeft).ColorIndex = 3
        End If

        If .Borders(xlEdgeTop).LineStyle <> xlLineStyleNone Then
            .Borders(xlEdgeTo).ColorIndex = 3
        End If

        If .Borders(xlEdgeBottom).LineStyle <> xlLineStyleNone Then
            .Borders(xlEdgeBottom).ColorIndex = 3
        End If

        If .Borders(xlEdgeRight).LineStyle <> xlLineStyleNone Then
            .Borders(xlEdgeRight).ColorIndex = 3
        End If

    End With
    Next r    
 End Sub

  (INA)

 INAさん、早速ありがとうございました。完璧な処理です、感謝しております。
(dude)

コメント返信：

[ 一覧(最新更新順) ]

[[20040421105146]] 『罫線の色をまとめて変更』（dude） ページの最後に飛ぶ

[[20040421105146]]　『罫線の色をまとめて変更』（dude）　ページの最後に飛ぶ