[vba] Esclusione input non numerico

[ramset64]

Da input chiedo un valore che deve necessariamente essere numerico.
Ho scritto questo codice per evitare di avere un imput non numerico:

f Val(YY) > ZZ Or YY = "" Then GoTo Scelta

Questo codice mi controlla che il valore numerico non superi ZZ e che non venga immensso nessun valore, da però problemi se viene immessa un qualsiasi valore che non sia numerico.... come posso correggere?

In pratica l'input deve essere un valore compreso tra 0 e ZZ.

Grazie ciao

[pietrol]

Ciao ramset64
una delle possibili soluzioni

Codice: Seleziona tutto

    If YY = "" Then Exit Sub               '<<<<  questo va messo prima per evitare errori dopo
    For i = 1 To Len(YY)
        If Mid(YY, i, 1) < "0" Or Mid(YY, i, 1) > "9" Then
            MsgBox "Valore non numerico!", , "Errore input"
            Exit Sub                                       '<<<<<  modificare se non deve uscire in caso di errato input
        End If
    Next
    MsgBox Val(YY)
    If Val(YY) > ZZ Then GoTo Scelta


ciao
pietrol

[Anthony47]

Dovrebbero esserci un paio di sistemi piu' diretti:
1) Prova ad aggiungere prima della tua If:

Codice: Seleziona tutto

If Not Isnumeric(YY) Goto Scelta

2) Oppure, se usi il metodo InputBox potrai impostare Type:=1 che controllera' che l' input sia di tipo numerico.

Ciao.

[ramset64]

Grazie ragazzi
ciao

[pietrol]

...
non uno, due metodi
e io che ho sempre usato For Next!

pietrol