Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[vba] Esclusione input non numerico

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[vba] Esclusione input non numerico

Postdi ramset64 » 13/05/09 20:32

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
ramset64
Utente Senior
 
Post: 396
Iscritto il: 29/10/08 10:41
Località: Torino

Sponsor
 

Re: [vba] Esclusione input non numerico

Postdi pietrol » 13/05/09 22:50

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
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34

Re: [vba] Esclusione input non numerico

Postdi Anthony47 » 14/05/09 00:45

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [vba] Esclusione input non numerico

Postdi ramset64 » 14/05/09 15:33

Grazie ragazzi
ciao
ramset64
Utente Senior
 
Post: 396
Iscritto il: 29/10/08 10:41
Località: Torino

Re: [vba] Esclusione input non numerico

Postdi pietrol » 14/05/09 18:10

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

pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34


Torna a Applicazioni Office Windows


Topic correlati a "[vba] Esclusione input non numerico":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti

cron