Visual Basic - Poner color a celda de excel

Poner color a celda de excel

Publicado por Antonio (30 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"

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

Poner color a celda de excel

Publicado por Andres Leonardo (1799 intervenciones) el 10/12/2014 19:09:37

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Poner color a celda de excel

Publicado por Antonio (30 intervenciones) el 12/12/2014 09:15:35

Muchas gracias Andres!

Valora esta respuesta

Comentar