Como sabem, sempre precisamos nos lembrar dos campos tão tipicamente brasileiros para o preenchimento de cadastros.
O CNPJ não foge a regra, sempre necessitamos preparar o campo que receberá o seu conteúdo.
Abaixo uma pequena SUB que força o preenchimento de acordo com a máscara desejada.
Sub CNPJFormat_LostFocus()Let CNPJFormat.Value = Format([Campo], "00"".""000"".""000""/""0000""-""00")End Sub
Futuramente disponibilizo o modo de check quanto aos cálculos do mesmo, isso sim, muito mais interessantes.
Tags: VBA, Excel, CNPJ, format
