FoxPro/Visual FoxPro - Rango de Borders de Excel

   
Vista:

Rango de Borders de Excel

Publicado por Salvador Angeles (21 intervenciones) el 30/11/2010 01:39:01
Buenas tardes a todos, alguien me podria decir como pongo los "Borders" a un gran rango de celdas en Excel desde Visual Foxpro?.
Tengo el siguiente codigo pero este solo me hace el recuadro global y me pone las lineas verticales a cada celda (solo me faltarian las lineas horizontales para crear mi cuadricula).

WITH oExcel.Range("B"+alltrim(STR(renglon_ini))+":BQ"+ alltrim(str(renglon_fin)))
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideVertical).ColorIndex = xlAutomatic
ENDWITH

y si no es mucho pedir, como relleno de color un rango de celdas?.

de Antemano muchas 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:Rango de Borders de Excel

Publicado por carlos ayala (169 intervenciones) el 01/12/2010 18:37:12
Hola.
yo te recomendatoria que realices un barrido celda x celda así le asignas a cada una los bordes correspondiente y el color que deseas darles

x=1
y=1
do while x<=10
y=1
do while y<=10
ExcObj.cells(x,y).Borders(1).LineStyle=1
ExcObj.cells(x,y).Borders(2).LineStyle=1
ExcObj.cells(x,y).Borders(3).LineStyle=1
ExcObj.cells(x,y).Borders(4).LineStyle=1

y=y+1
enddo
x=x+1
enddo

algo asi tendria que ser tu codigo :D
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

RE:Rango de Borders de Excel

Publicado por John Jairo García Restrepo (1 intervención) el 04/07/2012 18:01:17
Carlos, excelente, me ha servido tu ejemplo y sobre todo que es muy sencillo, gracias
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