セルの背景色はcellBackColorで設定します。

RGB指定ですね。

条件はif文でOK！（省略します）

Sub ksCalcAutoFormat
Dim oDoc as Object
Dim objSheet as Object
Dim cellRange as Object

objSheet = ThisComponent.getSheets().getByIndex(0)
cellRange = objSheet.getCellRangeByPosition(0, 0, 5, 5)
cellRange.cellBackColor = RGB(255,0,0)

End Sub