Hola acalderonr, si quieres darle color interior a una celda o rango de ellas prueba usar el código siguiente;
Código:
ExcelWorkSheet1.Range['B3','B5'].Font.Bold:=true;
ExcelWorkSheet1.Range['B3','B5'].Font.Name := 'Arial';
ExcelWorkSheet1.Range['B3','B5'].Font.Size := 8;
ExcelWorkSheet1.Range['B3','B5'].Interior.ColorIndex :=41;
ExcelWorkSheet1.Cells.Item[3,2].Value := 'este donante cambió de efectivo a tarjeta';
Así puedes colorear de Azul el rango de celdas (B3,B5)
otros colores podrían ser:
Amarillo... 6
Rojo.........3
Verde.......4
Tal vez con esos colores te alcance, el resto lo haces comparando los valores para definir cual de estos colores usar (If .... then)
Espero que te funcione bien.
Saludos