VBA Excel – Formatando várias células

Termo de Responsabilidade 

Isso é básico: Formatar as células.

Deveríamos gastar a maior parte do nosso tempo desenvolvendo as funcionalidades das aplicações, mas sempre nos será exigido o cuidado estético. Por isso, talvez deseje automatizar essa pecualiaridade na sua aplicação.

Existem diversos modos de formatarmos as células, como sempre lhes disponibilizarei o mais simples para uso imediato.

Public Sub ApplyStyle()

      ' André Bernardes 15/01/2009 09:23 bernardess@gmail.com

      ' Aplica a formatação especialmente criada.

      Range("G11:R65000").Select

      Let Selection.NumberFormat = "##"

      Range("A1").Select

End Sub

Outro exemplo

Estes exemplos definem o formato de número para a célula A17, a linha um e a coluna C (respectivamente) de Sheet1.

Worksheets("Sheet1").Range("A17").NumberFormat = "General"

Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"

Worksheets("Sheet1").Columns("C").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

Referências: 

Tags: VBA, Excel, format, cell,