Anónimo
Excel Vfp
Hola amigo buen día...
Como puedo hacer que al generar un reporte en excel.. Ponerlos los datos de color diferente.. Por ejemplo... Tabla de alumnos..
Todos los alumnos con calificación 5 en rojo.. Los de 6 a 7 otro color.. Y los de 8 a 9 otro color.. Estos como ejemplo...
Como puedo hacer que al generar un reporte en excel.. Ponerlos los datos de color diferente.. Por ejemplo... Tabla de alumnos..
Todos los alumnos con calificación 5 en rojo.. Los de 6 a 7 otro color.. Y los de 8 a 9 otro color.. Estos como ejemplo...
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Este es un ejemplo de cómo solucionar tu problema
MsExcel = Createobject("Excel.Application")
If Type("MsExcel") = "O" Then
MsExcel.Visible = .T. && Esta línea se coloca para ver si llega los datos no es recomendable colocarla.
MsExcel.Workbooks.Add()
WkpGxtab = MsExcel.ActiveSheet
With WkpGxtab.Range(WkpGxtab.Cells(3,1), WkpGxtab.Cells(3,4))
.Borders.LineStyle = 7
.Borders(1).Weight = 3
.Borders(2).Weight = 3
.Borders(3).Weight = 3
.Borders(4).Weight = 3
.Font.ColorIndex = Iif(Alumnos.Calif = 5, 1, Iif(Alumnos.Calif = 6 Or Alumnos.Calif = 7, 6, Iif(Alumnos.Calif = 8 Or Alumnos.Calif = 9, 7, 0)))
.Interior.ColorIndex = 4
.HorizontalAlignment = 3
.VerticalAlignment = 2
Endwith
Esto puede solucionar tu problema.
MsExcel = Createobject("Excel.Application")
If Type("MsExcel") = "O" Then
MsExcel.Visible = .T. && Esta línea se coloca para ver si llega los datos no es recomendable colocarla.
MsExcel.Workbooks.Add()
WkpGxtab = MsExcel.ActiveSheet
With WkpGxtab.Range(WkpGxtab.Cells(3,1), WkpGxtab.Cells(3,4))
.Borders.LineStyle = 7
.Borders(1).Weight = 3
.Borders(2).Weight = 3
.Borders(3).Weight = 3
.Borders(4).Weight = 3
.Font.ColorIndex = Iif(Alumnos.Calif = 5, 1, Iif(Alumnos.Calif = 6 Or Alumnos.Calif = 7, 6, Iif(Alumnos.Calif = 8 Or Alumnos.Calif = 9, 7, 0)))
.Interior.ColorIndex = 4
.HorizontalAlignment = 3
.VerticalAlignment = 2
Endwith
Esto puede solucionar tu problema.