Saberexcel
Estas funções do excel retornam o formato da célula em inglês e no formato_local(BR)
Saberexcel - Funções personalizadas
'retorna o formato idioma ingles
Function Retorna_Formato(Cell as Range) as String
Retorna_Formato = Cell.NumberFormat
End Function
'retorna o formato idioma local(Br)
Function Retorna_Formato_Local(Cell as Range) as String
Retorna_Formato_Local = Cell.NumberFormatLocal
End Function
= Retorna_Formato(A1)
= Retorna_Formato_Local(A1)
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel