excel 2003 macro per inserire un valore

[scacco al re]

magari è banalissimo ma non riesco a trovare la soluzione.
tramite un msgbox con la scritta inserisci un numero voglio da tastiera digitare un numero e che me lo vada a mettere nella colonna p riga 7 del foglio2.
le condizioni sono che se digito 0 (zero) la macro termini senza inserirmi nessun dato, e se digito qualcosa che non è un numero intero positivo mi ripete la domanda di inserire un numero.
Grazie

[Anthony47]

Forse invece del msgbox dovresti usare un "Inputbox"; tieni presente che viene restituita una stringa, se ti interessa un valore devi usare una conversione Stringa -->valore, es CInt (interi da -32k a +32k) o CDbl se ti interessano anche i decimali.

Guarda l' help on line dl vba alla voce "Funzione InputBox", che riporta anche un utilissimo esempio (anche se per farla elegante la fa un po' incasinata).

E se non ti basta lo spunto scrivi ancora.

Ciao

[scacco al re]

Grazie per lo spunto,
io ho provato ad impostarla così (in maniera molto ortodossa)

Codice: Seleziona tutto

Sub prova()
        x = InputBox("Immetti un numero")
        If x = 0 Then
    MsgBox ("non si imposta nessun numero")
        ElseIf x < 0 Or x > 100 Then
        MsgBox ("riprova")
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        Else
        Range("P7").Select
        ActiveCell.Value = x
        End If
End Sub
' manca anche il controllo che se inserisco del testo mi dica msgbox("non hai inserito un numero")
'e torni ad inizio macro (immetti un numero)

poi mi sono incartato....

[scacco al re]

sono riuscito a mettere il controllo sul formato numero
ma mi manca sempre il loop

Codice: Seleziona tutto

Sub prova()
        x = InputBox("Immetti un numero")
        If Not IsNumeric(x) Then      ' se il valore x non è un numero verrà visualizzato il messaggio
        MsgBox "Inserire solo numeri!", Title:="Errore"
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        ElseIf x = 0 Then
        MsgBox "non si imposta nessun numero"
        ElseIf x < 0 Or x > 100 Then
        MsgBox "riprova", Title:="Errore"
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        Else
        Range("P7").Select
        ActiveCell.Value = x
        End If
End Sub

[Flash30005]

prova questa

Codice: Seleziona tutto

Sub prova()
        x = InputBox("Immetti un numero")
        On Error GoTo errore
        If x + 1 = 0 Then MsgBox "Testo"
        On Error GoTo 0
        If x = 0 Then
            MsgBox ("non si imposta nessun numero")
        ElseIf x < 0 Or x > 100 Then
            MsgBox ("riprova")
        Call prova
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        Else
        Worksheets("Foglio2").Range("P7").Value = x
        End If
        Exit Sub
errore:
        MsgBox "non hai inserito un numero"
        Call prova
End Sub

Oppure aggiungendo la call alla tua macro avrai

Codice: Seleziona tutto

Sub prova2()
        x = InputBox("Immetti un numero")
        If Not IsNumeric(x) Then      ' se il valore x non è un numero verrà visualizzato il messaggio
        MsgBox "Inserire solo numeri!", Title:="Errore"
        Call prova
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        ElseIf x = 0 Then
        MsgBox "non si imposta nessun numero"
        ElseIf x < 0 Or x > 100 Then
        MsgBox "riprova", Title:="Errore"
        Call prova
        'bisognrebbe inserire un loop che mi faccia tornare ad inizio macro (immetti un numero)
        Else
        Range("P7").Select
        ActiveCell.Value = x
        End If
End Sub

Ciao

P.s. E' opportuno indicare anche il foglio dove inserire il valore dell'Inpbox
altrimenti potresti scrivere sul foglio attivo che potrebbe non essere il Foglio2
quindi utilizzare

Codice: Seleziona tutto

       Worksheets("Foglio2").Range("P7").Value = x

invece di

Codice: Seleziona tutto

        Range("P7").Select
        ActiveCell.Value = x

[Anthony47]

Dovresti spiegare in dettaglio quali costrizioni vuoi applicare alla risposta, che puo' essere un valore "nullo" (Ok senza scrivere nulla, tasto Annulla, la X della finestra inputbox) oppure sintatticamente sbagliato (es "non so rispondere") oppure inferiore a zero, oppure pari a zero per scelta (risposto "0"), oppure positivo.
Sarei tentato di considerare il valore nullo pari allo "0", e lo gestirei con questa:

Codice: Seleziona tutto

Sub prova()
Replay:
On Error GoTo 0
        X = (InputBox("Immetti un numero (0-100)"))
        If X <> "" Then
        On Error GoTo Converr
        X = CDbl(X)
        Else: X = 0
        End If
        If X = 0 Then
    MsgBox ("non si imposta nessun numero")
        ElseIf X < 0 Or X > 100 Then
        MsgBox ("Numero tra 0 e 100; riprova"): GoTo Replay
        Else
        Sheets("Foglio2").Range("P7") = X
        End If
        Exit Sub
Converr:
    Resume Replay
End Sub


E' una soluzione molto simile a quella postata da Flash (vedi sopra), ma non usa recursivamente la macro quanto pittosto la ripresa della stessa macro usando Resume.

Ciao a tutti.

[scacco al re]

le costrizioni sono che alla domanda inserisci un numero:
se si inserisce qualcosa di diverso da un numero lui mi avverte con messaggio NON HAI DIGITATO UN NUMERO e mi ripete la domanda di inserire un numero
se si inserisce un numero maggiore di 100 lui mi avverte dicendomi HAI INSERITO UN NUMERO TROPPO GRANDE e mi ripete la domanda di inserire un numero
se inserisco un numero minore di 0 lui mi avverte dicendo NUMERO TROPPO PICCOLO e mi ripete la domanda di inserire un numero
se inserisco 0 lui lui mi averte HAI DIGITATO ZERO, me lo fa mettere nella mia cella P7 del foglio2 e mi esce dalla macro.
se inserisco un numero compreso tra 1 e 100 me lo inserisce nella cella P/ del foglio2 senza nessun tipo di messaggio e termina la macro.
Alla domanda iniziale di inserire un numero se uno clicca su annulla la macro deve terminare senza nulla di fatto.

[ricky53]

Ciao,
ho adattato alle tue necessità, che hai appena descritto, la proposta di Anthony provala e ...

Codice: Seleziona tutto

Sub Inserisci_Dati()
Replay:
    On Error GoTo 0
    X = (InputBox("Immetti un numero (0-100)"))
    If X <> "" Then
        On Error Resume Next
        X = CDbl(X)
    Else
        Exit Sub
    End If
    If X = 0 Then
        MsgBox ("Inserito zero")
    End If
    If X < 0 Or X > 100 Then
        MsgBox ("Inserire un umero tra 0 e 100")
        GoTo Replay
    End If
    Sheets("Foglio2").Range("P7") = X
End Sub

[Anthony47]

Ciao Ricky, credo che la risposta piu' vicina alla domanda di scacco al re sia la macro PROVA di Flash.

Ciao a tutti.

[ricky53]

Ciao Anthony,
io sono partito dalla tua soluzione, ho letto le sue condizioni e le ho applicate e ... penso di averle riportate tutte ... ricontrollo per sicurezza.


. . . . . . . . . .
EDIT:
Controllato.
Le condizioni che lui chiede sono tutte soddisfatte.
Unica differenza: sono unite, con un solo diagnostico, le condizioni "minore di zero" e "maggiore di 100".
. . . . . . . . . .

[Anthony47]

Ricky, questa e' la reazione delle varie macro:

Codice: Seleziona tutto

  Risposta      Macro Anth              Vers Ricky         Macro Flash
Annulla:      Nessuna azione con msg  Nessuna azione     messaggio, retry
Ok con vuoto: Nessuna azione con msg  Nessuna azione     messaggio, retry
X:            Nessuna azione con msg  Nessuna azione     messaggio, retry
Impostato 0:  Nessuna azione con msg  Scritto 0 con msg  Nessuna azione con msg
Lettere:      msg di errore e retry   Msg errore retry   Messaggio errore e retry
Fuori range:  Msg e retry             Msg e retry        Msg e retry
Num valido:   Caricamento             Caricamento        Caricamento   


La differenza tra le varie macro e' minima ed e' concentrata sulla reazione ai tasti Annulla, X o risposta vuota.
Credo che comunque l' utente abbia sufficienti esempi per risolvere.

Ciao a tutti.

[ricky53]

Ciao Anthony,
ottima analisi delle varie soluzioni.

Tra le condizioni che io ho applicato mi era sfuggita quella di OK con vuoto ---- > e tu l'hai individuata.
Le altre mi sembrano siano rispondenti ai suoi "desiderata".