Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » Rango de Borders de Excel

FoxPro/Visual FoxPro - Rango de Borders de Excel

Volver
Nuevo Tema
<<>>
 
Vista:

Rango de Borders de Excel

Publicado por Salvador Angeles (20 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).

1
2
3
4
5
6
7
8
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Rango de Borders de Excel

Publicado por carlos rocha (1 intervención) el 10/08/2020 23:58:02
con este sencillo codigo le pones la cuadricula a un excel

1
2
3
4
5
Do while !eof()
oExcel.ActiveSheet.Range([B]+ALLTRIM(STR(nCont))).Borders.LineStyle=1.7
 select tmp
skip
enddo
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