条件付書式設定でつけた色を残したまま条件式を解除する方法は？

質問

エクセルで条件付書式設定を、条件に数式をいれて色付けしました。
そのセルの色表示を固定したいのですが、条件を削除してしまえば当然のことながら色表示までなくなります。

書式のコピーをしたら当然のことながら条件付書式設定まで一緒に引っ張って行ってしまいます。

なにかいい方法ご存知のかたいらっしゃいますか？

回答No.2

Wendy02 · ベストアンサー

こんばんは。Wendy02です。

このマクロは、条件付書式が、「数式が　」で設定されたものに限ります。そうでない場合、オプションを作らなくてはなりません。色は、フォントとパターンのみに対応しています。

'なるべく、標準モジュールに設定してください。
Sub FindFCondition2Format()
'条件付書式の色設定を、一般書式の色に換える
　Dim r As Range
　Dim c As Range
　Dim i As Integer
　Dim fc As Object
　On Error GoTo ErrHandler
　Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
　Application.ScreenUpdating = False
　For Each c In r
　　'セルを動かさないと、数式が取れない
　　c.Activate
　　Set fc = c.FormatConditions
　　For i = 1 To fc.Count
　　　'判定
　　　On Error Resume Next
　　　If Evaluate(fc(i).Formula1) Then
　　　　c.Font.Color = fc(i).Font.Color
　　　　c.Interior.ColorIndex = fc(i).Interior.ColorIndex
　　　End If
　　　 On Error GoTo 0
　　Next i
　　c.FormatConditions.Delete
　Next c
　Set r = Nothing
　Application.ScreenUpdating = True
　Exit Sub
ErrHandler:
　MsgBox "条件付書式が見つかりません。", vbInformation
End Sub

お礼

うわー！！！！！！
すいません！！！！

ここまでしてくれるなんて感謝感激です！

明日早速試してみます。
ありがとうございました！

回答No.1

Wendy02

こんにちは。

条件付書式、一般の書式とは別の設定ですから、そのまま置き換えることは不可能です。VBAで、条件付書式を、一般の書式に書き換えることぐらいしか方法はありません。

お礼

そうですかー、やっぱり無理ですかね？
VBAの場合、どう書けばいいんでしょうね。