Excel – Recolher o formato de uma célula

Este post faz parte de uma série de pedidos de ajuda que ao longo dos anos me foram chegando. (Fev/2002)

Macro que recolhe, permitindo copiar, o formato de uma célula

  1.  
  2. Sub jjGetFormat()
  3.     Dim Formato As String, x As String, Texto As String
  4.    
  5.     Texto = "Para copiar o formato basta seleccionar " & _
  6.             " o texto e pressionar CTRL+C"
  7.    
  8.     Formato = ActiveCell.NumberFormatLocal
  9.    
  10.     x = InputBox(Texto, _
  11.              "Formato numérico de " & _
  12.              ActiveCell.Address, _
  13.              Formato)            
  14. End Sub
  15.  

Excel - Recolher formato de celula

Gostou? Partilhe, não custa nada 🙂Share on FacebookShare on Google+Tweet about this on TwitterShare on TumblrShare on LinkedInEmail this to someone

Deixe uma resposta