Saltar para: Post [1], Comentários [2], Pesquisa e Arquivos [3]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

29
Dez07

Excel - Formatação de datas - Colocar o mês em maiusculas

Por o excel colocar sempre o mês com a 1ª letra maiuscula e as restantes minusculas nos formatos data, recebi hoje um pedido de ajuda para saber se seria possível colocar em maiusculas o mês numa data formatada com "dd-mmm-aa" ( 29-Dez-07 para 29-DEZ-07).


Por exemplo os formatos:

"dd-mmm-aa" ou "dd-MMM-aa" = 29-Dez-07

"dd-mmmm-aa" ou "dd-MMMM-aa" = 29-Dezembro-07


Pelo que pude apurar, esta situação pode ser ultrapassada com duas soluções, a 1ª bem simples, usar um tipo de letra só com maiusculas, caso não tenham, existem diversos sites com fontes deste tipo e gratuitas, a 2ª solução é a macro que coloco mais abaixo.

 

A macro soluciona o problema e mantêm o valor na celula como data para futuras operações caso necessário.

 

 

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim celula As Range
    Set celula = Target
    If IsDate(celula) Then
     Application.EnableEvents = False
     With celula
          .NumberFormatLocal = "@"
          .Value = UCase(Format(.Value, "dd-mmm-yy"))
     End With
     Application.EnableEvents = True
    End If
    Set celula = Nothing
End Sub

 

A macro deve ser colocado em EsteLivro (ThisWorkbook) para que intercepte todas as folhas.

 

2 comentários

Comentar post