Visual Basic - Poner color a celda de excel

Life is soft - evento anual de software empresarial
   
Vista:

Poner color a celda de excel

Publicado por Antonio (27 intervenciones) el 10/12/2014 16:01:34
Hola expertos, estoy haciendo una aplicacion que exporta un archivo a excel, y me gustaria que algunas de las celdas que exporto sean de un color concreto.
He cambiado el ancho de las celdas de la siguiente manera Libro.Sheets(1).cells(1, 1).ColumnWidth = 30
SIn embargo el color no encuentro la extension para ponerle, supongo que debe ser muy sencillo pero no se como hacerlo! Supongo que sera poner Libro.Sheets(1).cells(x,y).Color = Red o algo por el estilo no? Podrian ayudarme?Gracias de antemano!

Este es mi codigo, y he añadido la dll Microsoft.Office.Tools.Excel y los Imports "Microsoft.Office.Interop.Excel" "Microsoft.Office.Tools.Excel" y " Microsoft.Office.Core"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub FaisceauxToExcel()
        Dim ApExcel = New Microsoft.Office.Interop.Excel.Application
        Dim Libro = ApExcel.Workbooks.Add
 
        Libro.Sheets(1).cells(1, 1) = "QUOTATION HARNESS"
        Libro.Sheets(1).cells(2, 1) = "----------------------------------------------"
        Libro.Sheets(1).cells(3, 1) = "Code UK P/N"
        Libro.Sheets(1).cells(4, 1) = "Drawing"
        Libro.Sheets(1).cells(5, 1) = "Description"
 
        Libro.Sheets(1).cells(1, 1).ColumnWidth = 30
 
        SaveFileDialogProduct.DefaultExt = "*.xlsx"
        SaveFileDialogProduct.FileName = "Time Quotation  UK PN " & lblUK.Text & "  DRW PN " & lblDRW.Text
        SaveFileDialogProduct.Filter = "Archivos de Excel (*.xlsx)|*.xlsx"
        SaveFileDialogProduct.ShowDialog()
        Libro.SaveAs(SaveFileDialogProduct.FileName)
 
        ApExcel.Quit()
        Libro = Nothing
        ApExcel = Nothing
    End Sub
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
Imágen de perfil de Andres Leonardo

Poner color a celda de excel

Publicado por Andres Leonardo (702 intervenciones) el 10/12/2014 19:09:37
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("A2").Select  ' aqui pondras el rango al que deseas aplicarlo.
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
 
'Graba una macro haz lo que quieras y luego mira el codigo es sencillo espero te sirva.
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

Poner color a celda de excel

Publicado por Antonio (27 intervenciones) el 12/12/2014 09:15:35
Muchas gracias Andres!
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