poner lineas divisoras

18/05/2005 - 15:36 por J.LL.R | Informe spam
Hola,amigos del foro.
Tengo un código que agrega una hoja nueva el problema es
que esa hoja no tiene las lineas divisoras de las
celdas,como se pudiera poner esas lineas al agregar una
hoja nueva si es en un rango se celdas mejor que mejor.
Un saludos J.LL.R

fracion del codigo...


Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name =
Nombre
With Worksheets(Nombre) 'pone los titulos en la
hoja nueva fila 2
.Range("a2") = "CH"
.Range("b2") = "Servicio"
.Range("c2") = "Enlaza"
.Range("d2") = "Termina"
.Range("e2") = "Destino"
.Range("f2") = "AMET"
.Range("g2") = "DDF"
.Range("H2") = "Usuario"
With .Range("a2:H2") 'este rango es el de
los titulos hojas sistenas
.Font.Bold = True 'lo pone oscuro
.HorizontalAlignment = xlCenter 'lo
centra
End With
 

Leer las respuestas

#1 Adriano DAmbra
18/05/2005 - 15:56 | Informe spam
Hola J.LL.R!
Para empezar para hacer este tipo de cosas, te sugiero que siempre grabes
una macro con lo que quieres hacer o aplicar, vas al código que te generó y
de ahí vas a poder aprender y reconocer los objetos del Excel para hacer
todo tipo de cosas.

Ejemplo, yo apliqué un borde intermedio azul al rango que mencionaste y éste
es el código.
Puedes probar según tus gustos de bordes para lograr el efecto que deseas.
(Fíjate que a cada parte del borde lo toma como un elemento distinto lo que
te da flexibilidad (la misma que te da el cuadro de diálogo bordes en
Formato de Celdas)

Saludos, Adriano.
-
With Range("A2:H2").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 5
End With
With Range("A2:H2").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 5
End With
With Range("A2:H2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 5
End With
With Range("A2:H2").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 5
End With


"J.LL.R" escribió en el mensaje
news:0cf501c55bae$89710610$
Hola,amigos del foro.
Tengo un código que agrega una hoja nueva el problema es
que esa hoja no tiene las lineas divisoras de las
celdas,como se pudiera poner esas lineas al agregar una
hoja nueva si es en un rango se celdas mejor que mejor.
Un saludos J.LL.R

fracion del codigo...


Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name Nombre
With Worksheets(Nombre) 'pone los titulos en la
hoja nueva fila 2
.Range("a2") = "CH"
.Range("b2") = "Servicio"
.Range("c2") = "Enlaza"
.Range("d2") = "Termina"
.Range("e2") = "Destino"
.Range("f2") = "AMET"
.Range("g2") = "DDF"
.Range("H2") = "Usuario"
With .Range("a2:H2") 'este rango es el de
los titulos hojas sistenas
.Font.Bold = True 'lo pone oscuro
.HorizontalAlignment = xlCenter 'lo
centra
End With

Preguntas similares