[[20051110184858]]　『罫線の線種は変えず、色だけを変更』（まりも）　ページの最後に飛ぶ

『罫線の線種は変えず、色だけを変更』（まりも）

こんにちわ。
セルにはすでにたくさんのいろいろな線種で罫線がひかれており、
セルの書式設定で色を変更しようとするとたいへんな手数がかかります。
これを線種をそのまま保持して色を変更することは可能でしょうか。
条件付き書式などでできるのかとやってみたんですが、うまくいきません。

宜しくお願いします。

 なかなかレスが付かないようなので、マクロを作ってみました。
 範囲を選択して実行して下さい。
 まずは、シートをコピーして試して下さいね。
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
（純丸）(o^-')b
　
 Sub keisencolor()

 Dim myr As Range
 Dim mycolor As Integer

 mycolor = 32　'カラーインデックス番号

 For Each myr In Selection

   With myr

     With .Borders(xlEdgeLeft)
       If .LineStyle <> xlLineStyleNone Then
         .ColorIndex = mycolor
       End If
     End With

     With .Borders(xlEdgeTop)
       If .LineStyle <> xlLineStyleNone Then
         .ColorIndex = mycolor
       End If
     End With

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

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

   End With

 Next myr

 End Sub

純丸さん、回答ありがとうございました。
マクロを作ってくださったんですね。うまくいきました。ありがとうございました。
（まりも）

コメント返信：