How can I change the format of the cell, which is currently being evaluated?
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"
]
]