Excel Travar formatação no inputBox

[Zamboni_du]

Bom dia pessoal,

 

Eu inseriu uma inputbox para o usuário inserir uma dada que é armazenada em "E4", eu gostaria que ao digitar a data no inputbox aparecesse automaticamente o separador (no meu caso o ponto ".") e travar em 10 caracteres para evitar erro de digitação.

[Basole]

@Zamboni_du o inputbox não tem esse recurso e não é possível definir uma formatação, sem o uso de API. 

 

Acho que não compensa escrever tantas linhas de código para atender essa necessidade, além de tudo que pode ter problemas de rejeição, dependendo da versão do seu office, o uso de api. 

Minha sugestão é usar um calendário pop-up onde o usuário possa selecionar uma data válida sem gerar erros do tipo, 30/Fev/2021, data inválida. 

 

Segue link para download:

Exemplo de calendário UserForm

 

 

* Pode também, alterar os temas de acordo com seu gosto:

[Basole]

Se preferir um mais simples e ja habilitado inserir a data na celula. 

 

Exemplo_Calendario_POP-UP.zip

[Zamboni_du]

@Basole , boa noite!!!

 

Eu havia feito algo simples (InputBox(Environ("UserName") & " - " & "Insira a data do lançamento" & " " & "                                           Ex.: dd.mm.aaaa", "Data do lançamento", "01.01.2000"), porém vou testar o que você enviou.

[Zamboni_du]

@Basole Bom dia, tudo bem?

 

Como sou iniciante no VBA estou tendo dificuldades de adaptar o código, primeiro gostaria de saber como faço para alterar a barra "/" por ponto "."?

[Basole]

@Zamboni_du bom dia! tudo bem obrigado.

 

Substitua a sub abaixo, no userform calendario: 

 

Sub ButtonClick(btn As MSForms.CommandButton)
        
    With btn
        If .Caption <> "" Then
           ' Me.TextBox1.Value = .Caption & "/" & VBA.Format(VBA.Month(VBA.DateValue("03/" & Me.CmbMonth.Value & "/2014")), "00") & "/" & Me.CmbYear.Value
            Me.TextBox1.Value = .Caption & "." & VBA.Format(VBA.Month(VBA.DateValue("03/" & Me.CmbMonth.Value & "/2014")), "00") & "." & Me.CmbYear.Value
            Unload Me
        End If
    End With
End Sub

 

[Zamboni_du]

@Basole Obrigado!!!!!