Hola
@Joseg , link de colores *>
https://learn.microsoft.com/en-us/of...cel.colorindex permitidos
Primer posicionar fila,columna , luego seleccionarla , luego enviar el color
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*>[url]https://learn.microsoft.com/en-us/office/vba/api/excel.colorindex[/url]
*> propiedad
01 COLOR-INDEX PIC S9(9) comp-5. *>colores van de 1 to 56.
PROCEDURE DIVISION.
MOVE 1 TO ARRAY-ROW.
MOVE 1 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL
INVOKE CELL "SELECT"
MOVE 26 TO COLOR-INDEX.
INVOKE CELL "GET-FONT" RETURNING DOCFONT
INVOKE DOCFONT "SET-ColorIndex" USING COLOR-INDEX
MOVE 2 TO ARRAY-ROW.
MOVE 2 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL
INVOKE CELL "SELECT"
MOVE 26 TO COLOR-INDEX.
INVOKE CELL "GET-INTERIOR" RETURNING DOCFONT
INVOKE DOCFONT "SET-ColorIndex" USING COLOR-INDEX
Saludos...