FoxPro/Visual FoxPro - colorear celdas

   
Vista:

colorear celdas

Publicado por eduardo (139 intervenciones) el 19/09/2008 00:33:11
se que desde fox puedo grabar datos a una planilla de excel en celdas en una determinada ubicacion.se puede ademas ,aplicarle color a una celda segun una condicion? ej: si el valor es < a 0 ponerle rojo de fondo?

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:colorear celdas

Publicado por HELDER MARTINEZ (710 intervenciones) el 19/09/2008 00:52:58
oExcel = CreateObject("Excel.Sheet")
oExcel.application.visible=.T.
oExcel.application.WorkBooks.Add()
oExcel = oExcel.application.Sheets[1]

oExcel.application.Rows(1).Font.Bold = .t.
oExcel.application.Rows(4).Font.Bold = .t.

oExcel.application.Rows(1).Font.color = rgb(0,0,255)
oExcel.application.Rows(4).font.Color = rgb(0,0,255)

oExcel.Cells(1,1).Value = ALLTRIM(Thisform.txtCurso.value)
oExcel.Cells(1,2).Value = ALLTRIM(Thisform.txtCarrera.value)
oExcel.Cells(1,4).Value = ALLTRIM(Thisform.txtJornada.value)

oExcel.Cells(4,1).Value = "CODIGO"
oExcel.Cells(4,2).Value = "NOMBRE"
oExcel.Cells(4,3).Value = "APELLIDO"
oExcel.Cells(4,4).Value = "SEXO"
oExcel.Cells(4,5).Value = "Sección"

oExcel.application.Columns(1).ColumnWidth = 20
oExcel.application.Columns(2).ColumnWidth = 30
oExcel.application.Columns(3).ColumnWidth = 30
oExcel.application.Columns(4).ColumnWidth = 6
oExcel.application.Columns(5).ColumnWidth = 8

oExcel.application.Columns(1).NumberFormat = "@"

for i = 1 to _TALLY
oExcel.Cells(i+4,1).Value = _AExcel(i,1)
oExcel.Cells(i+4,2).Value = _AExcel(i,2)
oExcel.Cells(i+4,3).Value = _AExcel(i,3)
oExcel.Cells(i+4,4).Value = _AExcel(i,4)
oExcel.Cells(i+4,5).Value = _AExcel(i,5)
endfor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar