MS Excel - Formatando várias células

Termo de Responsabilidade

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.

Visual Basic for Applications

Worksheets("Sheet1").Range("A17").NumberFormat = "General" Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss" Worksheets("Sheet1").Columns("C"). _ NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

Tags: VBA, Excel, cell, format