none
Inputbox suportar apenas números? RRS feed

  • Pergunta

  • Bom pessoal, encontrei um problema enquanto eu programava: Eu precisei utilizar um inputbox, porém preciso que apenas números possam ser digitados nele, como eu faço isso?
    segunda-feira, 1 de junho de 2015 00:22

Respostas

  • Seria isso Lukas?

       Function SoNumeros(ByVal Keyascii As Short) As Short

         If InStr("1234567890", Chr(Keyascii)) = 0 Then

            SoNumeros = 0

         Else

            SoNumeros = Keyascii

          End If

     

         Select Case Keyascii

            Case 8

            SoNumeros = Keyascii

            Case 13

            SoNumeros = Keyascii

            Case 32

            SoNumeros = Keyascii

            End Select

       End Function

    • Marcado como Resposta Cristopher C I_ quinta-feira, 18 de junho de 2015 18:25
    segunda-feira, 1 de junho de 2015 10:52