Recolher o formato de uma célula - JJoão (03/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
|