Mascara para Formatar CPF e CNPJ em TextBox VBA

Mascara para formatar CPF e CNPJ em TextBox VBA.

Pessoal estou disponibilizado uns códigos em VBA para formatar a textbox seja em Excel ou em Visual Basic. Se você está procurando esse conteúdo certamente já entende um pouco de VBA. Não tem segredo pessoal copia o codigo e cole no seu projeto e faça as devidas adaptações necessárias se preferir.

Veja o código para o CPF – Mascara para formatar CPF e CNPJ em TextBox VBA

Private Sub txt_cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt_cpf.MaxLength = 14 ‘032.656.054-71
Select Case KeyAscii
Case 8 ‘Aceita o BACK SPACE
Case 13: SendKeys “{TAB}” ‘Emula o TAB
Case 48 To 57
If txt_cpf.SelStart = 3 Then txt_cpf.SelText = “.”
If txt_cpf.SelStart = 7 Then txt_cpf.SelText = “.”
If txt_cpf.SelStart = 11 Then txt_cpf.SelText = “-”
Case Else: KeyAscii = 0 ‘Ignora os outros caracteres
End Select
End Sub

Veja o código para o CNPJ- Mascara para formatar CPF e CNPJ em TextBox VBA

Private Sub txt_cnpj_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt_cnpj.MaxLength = 18 ‘07.454.325/0001-41
Select Case KeyAscii
Case 8 ‘Aceita o BACK SPACE
Case 13: SendKeys “{TAB}” ‘Emula o TAB
Case 48 To 57
If txt_cnpj.SelStart = 2 Then txt_cnpj.SelText = “.”If txt_cnpj.SelStart = 6 Then txt_cnpj.SelText = “.”
If txt_cnpj.SelStart = 10 Then txt_cnpj.SelText = “/”
If txt_cnpj.SelStart = 15 Then txt_cnpj.SelText = “-”
Case Else: KeyAscii = 0 ‘Ignora os outros caracteres
End Select
End Sub

Estamos usando o evento KeyPress para aplicarmos as formatações, caso no seu projeto não esteja selecionado esse evento não vai funcionar então altere o seu evento.