エクセルでセルの色を条件に使いたい

Excelには色を置換する機能はありません。(多分) どうしても置換したかったら、マクロを組むしかないと思います。 ↓面白そうだったので、作ってみました。(テストに時間かけてないのでバグありかもしれません。) Public Sub SelectSameColorCells() 　　Dim SrchColor As Long 　　Dim ReplaceColor As Long 　　Dim SearchArea As Range 　　Dim V As Variant 　　Dim Ret As String 　　'検索する色を取得する 　　Ret = InputBox("検索する色、もしくは、検索する色が設定されたセルのアドレスを指定してください。" & vbNewLine _ 　　　　　　　　　　& "例:255　(10進数で指定する場合)" & vbNewLine _ 　　　　　　　　　　& "例:&H0000FF (16進数で指定する場合)" & vbNewLine _ 　　　　　　　　　　& "例:A1 (セルのアドレスで指定する場合)" & vbNewLine & vbNewLine _ 　　　　　　　　　　& "注:色の並びはBGRの順。&H0000FF=赤, &HFF0000=青。") 　　Ret = Trim$(Ret) 　　If IsNumeric(Ret) Then 　　　　SrchColor = Val(Ret) 　　Else 　　　　SrchColor = Range(Ret).Interior.Color 　　End If 　　'置換後の色を取得する 　　Ret = InputBox("置換後の色、もしくは、置換後の色が設定されたセルのアドレスを指定してください。" & vbNewLine _ 　　　　　　　　　　& "例:65536　(10進数で指定する場合)" & vbNewLine _ 　　　　　　　　　　& "例:&H00FF00 (16進数で指定する場合)" & vbNewLine _ 　　　　　　　　　　& "例:A1 (セルのアドレスで指定する場合)" & vbNewLine & vbNewLine _ 　　　　　　　　　　& "注:色の並びはBGRの順。&H0000FF=赤, &HFF0000=青。") 　　Ret = Trim$(Ret) 　　If IsNumeric(Ret) Then 　　　　ReplaceColor = Val(Ret) 　　Else 　　　　ReplaceColor = Range(Ret).Interior.Color 　　End If 　　'検索対象となる範囲を取得する 　　Ret = InputBox("検索の対象となる範囲を指定してください。 例:A1:Z100") 　　Ret = Trim$(Ret) 　　Set SearchArea = Range(Ret) 　　 　　'同じ色のセルを検索し、色を変更する 　　For Each V In SearchArea 　　　　If V.Interior.Color = SrchColor Then 　　　　　　V.Interior.Color = ReplaceColor 　　　　End If 　　Next End Sub