VBA Tips - Máscara para o CNPJ













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.

Function CNPJFormat() as String
Let CNPJFormat = 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, máscara,



2 comentários:

  1. Certo amigo mais aonde como loco essa sub e como faço para ela funcionar?

    ResponderExcluir
  2. Caro LucasBE, obrigado por deixar a sua dúvida.

    Bem, você pode colocar essa função dentro da célula do MS Excel, assim:

    =CNPJFormat("26548725423"), e retornará:
    265.487.254.-23

    ResponderExcluir

diHITT - Notícias