Controllo inserimento solo dati numerici

Hai un problema con Excel?

Nuova discussione

Controllo inserimento solo dati numerici
di Andrea (utente non iscritto) data: 19/06/2014 09:56:05
Ciao a tutti,
ho provato a cercare nelle discussioni ma non sono riuscito a trovare quello che cercavo spero che siate cosi gentili da potermi dare una mano.

In poche parole...

Chiedo l'inserimento di una variabile di tipo INTEGER tramite un inputbox

devo controllare che il dato inserito sia effettivamente un numero intero.

IF NUMEROINSERITO <> INTEGER THEN
ERRORE
END IF

Così com'è scritta non funziona sicuramente

Qualcuno sa dirmi come posso fare???

Vi ringrazio ragazzi!!!! W questo forum utilissimo!!!
riportare tutti i dati dai fogli in uno solo
di NSamu (utente non iscritto) data: 19/06/2014 10:02:07
ciao tutti,
vorrei creare una macro che mi permetta di girare su tutti i fogli excel e riportarmi in un foglio tutti i dati che mi interessano(bisognerebbe fare il controllo su ogni foglio in corrispondenza della colonna desiderata), così da poter aver tutti i dati su un unico foglio, poi controllare eventuali duplicati del codice ed eliminare l'intera riga associata a quel codice. tutto questo dovrebbe farlo una Macro...se qualcuno può aiutarmi grazie!
di Andrea (utente non iscritto) data: 19/06/2014 10:06:36
Ciao NSamu mi sa che devi aprire una nuova discussione!!!
di Lucas87 data: 19/06/2014 10:53:02
Ciao
Così non puoi perchè l'inputbox restituisce una stringa qualunque sia il valore.
Devi creare un form con una testbox. A quel punto con
if vartype(textbox1)=vbinteger
verifichi che il valore siu un intero

di scossa data: 19/06/2014 14:14:45
Devi usare il metodo Application.InputBox

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno.
Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

Public Sub prova()
  Dim nNum As Variant
  
  nNum = Application.InputBox("intero: ", Type:=1)
  If Int(nNum) = nNum Then
    MsgBox "intero"
  Else
    MsgBox "non intero"
  End If

End Sub

di scossa data: 19/06/2014 14:35:04
Volendo discriminare la scelta "Cancella" modficare così:

scossa's web site

Public Sub prova()
  Dim nNum As Variant
  
  nNum = Application.InputBox("intero: ", Type:=1)
  
  If VarType(nNum) <> vbBoolean And Int(nNum) = nNum Then
    MsgBox "intero"
  Else
    MsgBox "non intero"
  End If

End Sub

Vuoi Approfondire?