ＥＸＣＥＬの条件付き書式で斜線を引くには？

質問

"○"の入力されたセルに自動で斜線の罫線を引きたいのですが，
条件付き書式では斜線の罫線を引くことができません。
どなたかアドバイスをお願いします。

回答No.1

noname#123709 · ベストアンサー

値の入っているセル全てに対して処理を行います。
斜めの罫線はこっちでよかったのかな・・・？
Sub test()
Dim i As Range
For Each i In ActiveSheet.UsedRange
If i.Value = "○" Then
i.Borders(xlDiagonalUp).LineStyle = xlContinuous
Else
i.Borders(xlDiagonalUp).LineStyle = xlNone
End If
Next
End Sub

お礼

早速の回答，ありがとうございます。
マクロを実行してみたのですが，
処理に時間がかかることと，
すでに斜線の入ったセルの斜線が消えてしまいました。
マクロを実行せずに自動で斜線を引く方法はないのでしょうか？

回答No.2

noname#123709

＃１です。
＞処理に時間がかかることと，
そんなにかかりますか？
＞すでに斜線の入ったセルの斜線が消えてしまいました
「○」ではなくなった場合のことを考慮して「○」でないセルは罫線
を無くすようにしていました。
下記でどうですか？
因みに、VBA以外では無理だと思いますよ・・・。
Sub test()
Dim i As Range
Application.ScreenUpdating = False
For Each i In ActiveSheet.UsedRange
If i.Value = "○" Then
i.Borders(xlDiagonalUp).LineStyle = xlContinuous
End If
Next
Application.ScreenUpdating = True
End Sub

お礼

たびたびのご回答ありがとうございます。
心から御礼申し上げます。