Visual Basic - Formato en celdas de excel

Life is soft - evento anual de software empresarial
 
Vista:

Formato en celdas de excel

Publicado por B68Toftir (18 intervenciones) el 28/10/2003 12:46:14
Nassesss

Controlo el añadir texto o cantidades en una celda de excel, pero que el problema que tengo es que me gustaria saber si es posible mediante codigo de visual es centrarlo o ponerlo en una determinada fuente.

el codigo es el siguiente

ap.Cells(m + 20, 2) = Text1(n + 2).Text , onde ap es una variable de tipo Excel.Application

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:Formato en celdas de excel

Publicado por Andrés (43 intervenciones) el 28/10/2003 15:44:21
si, si es posible, claro... mira

Ap.Cells(m + 20, 2).Font.Name = "Arial"
Ap.Cells(m + 20, 2).Font.Italic = True
Ap.Cells(m + 20, 2).Font.Size = 10
Ap.Cells(m + 20, 2).Font.Color = vbBlue
Ap.Cells(m + 20, 2).Formula = Format(numero, "###,##0.00")
Ap.ActiveSheet.Range(ApExcel.ActiveSheet.Cells(1, 1), _
ApExcel.ActiveSheet.Cells(5, 6)).HorizontalAlignment = _
xlHAlignCenterAcrossSelection

Esta ultima que acaba de pasar sirve para centrar el contenido de una celda entre una o mas celdas (si la copias como está, deberas quitarle el _ que aparece dentro de ella, a menos que quieras trabajarla en lineas diferentes)

Como habrás notado, tambien se puede por rangos:

Ap.Range("a7:h7").Font.Color = vbRed
Ap.Range("a7:h7").Borders.Color = vbBlack
Ap.Columns("B").HorizontalAlignment = xlHAlignCenterAcrossSelection

y la que sigue sirve para "ocultar" el enrejado (cuadriculado) que trae Excel

Ap.ActiveWindow.DisplayGridlines = False

Además, te recomiendo que utilices .FORMULA en tu linea de comando para pasarle datos a excel, o sea:

ap.Cells(m + 20, 2).formula = Text1(n + 2).Text

pues es mas facil para excel manejarlo asi, y te dará menos confiictos.
Espero haberte podido ayudar (aunque creo que asi fue), un saludo desde Costa Rica
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