• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

nunogateira

Ajuda: VB.net Cor células Excel

2 mensagens neste tópico

Tenho uma aplicação feita em excel k converte um ficheiro de texto para excel....

Agora queria formatar as celulas do excel, alguém sabe como o fazer?

ht.Cells(linha_ini + 2, 3) = "DESCRIÇÃO"
        'sht.Cells.Range(linha_ini + 2, 3).Interior.Font.Color = RGB(0, 0, 0)
        'sht.Cells.Range(linha_ini + 2, 3).Font.Color = RGB(64, 64, 64)
        'sht.Cells.Range(linha_ini + 2, 3).Font.Size = 12
        'sht.Cells.Range(linha_ini + 2, 3).Font.Shadow = False
        'sht.Cells.Range(linha_ini + 2, 3).Font.Bold = True

        sht.Cells(linha_ini + 2, 4) = "TAMANHO"

        'sht.Cells.Range(linha_ini + 2, 4).Interior.Font.Color = RGB(0, 0, 0)
        'sht.Cells.Range(linha_ini + 2, 4).Font.Color = RGB(64, 64, 64)
        'sht.Cells.Range(linha_ini + 2, 4).Font.Size = 12
        'sht.Cells.Range(linha_ini + 2, 4).Font.Shadow = False
        'sht.Cells.Range(linha_ini + 2, 4).Font.Bold = True

escreve-me apenas até "descrição" e para aí, ñ aplica essas formatações, alguém tem alguma idéia? :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Falta a Pattern  = Solid

Ex.

Cells(1, 1).Interior.Pattern = xlSolid

E utiliza também o With fica mais arrumadinho.

Ex.

With ht.Cells(linha_ini + 2, 3)

    .Interior.Font.Color = RGB(0, 0, 0)

  ' etc

End With

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora