Change color of curently evaluating cell using stylesheets

Question

How can I change the format of the cell, which is currently being evaluated?

Answer 1

One possibility is to use CellProlog/CellEpilog:

SetOptions[
    EvaluationNotebook[],
    StyleDefinitions -> Notebook[
        {
        Cell[StyleData[StyleDefinitions->"Default.nb"]],
        Cell[StyleData["Input"],
            CellProlog:>SetOptions[EvaluationCell[], Background->RGBColor[1,0,0]],
            CellEpilog:>SetOptions[EvaluationCell[], Background->None]
        ]
        },
        StyleDefinitions->"PrivateStylesheetFormatting.nb"
    ]
]