Início / Informática / Visual Basic For Application / Excel – Recolher o formato de uma célula

Excel – Recolher o formato de uma célula

05/14/2011
Sem comentários
3074 Visualizações

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

Sub jjGetFormat()
    Dim Formato As String, x As String, Texto As String

    Texto = "Para copiar o formato basta seleccionar " & _
            " o texto e pressionar CTRL+C"

    Formato = ActiveCell.NumberFormatLocal

    x = InputBox(Texto, _
             "Formato numérico de " & _
             ActiveCell.Address, _
             Formato)
End Sub

Artigos