Incrementare un contatore

Hai un problema con Excel?

Nuova discussione

Incrementare di 1
di Adrianovr (utente non iscritto) data: 15/12/2008
Scusate ma ho questo problema: mi hanno dato un foglio di calcolo con varie caselle derivate da un questionario. ora quando per esempio la risposta riguarda la seconda casella, dovrei fare solo clic ed il numero inserito si dovrebbe incrementare di 1. dovrei in sostanza avere alla fine un risultato del genere: a domanda 1 hanno risposto in x, a domanda 2 in y ecc.
io non sono riuscito ma francamente non me ne intendo, è possibile creare una piccola macro o simile?
grazie
di Apoben64 (utente non iscritto) data: 15/12/2008
Ciao,

la macro è semplice, ma non dai alcun riferimento , se ad esempio il numero da incrementare fosse in a1 del foglio1 :

sub incrementa()
sheets("foglio1").select
range("a1").value=range("a1").value+1
end sub

cambiando il riferimento alla cella ed al foglio, otterai quello che vuoi.

e' comunque una risposta alla genericità del tuo quesito.

fai sapere ,
luca
Incrementare di 1
di Adrianovr (utente non iscritto) data: 15/12/2008
Purtroppo le celle sono tante, ad ogni domanda corrispondono 3-4 celle in cui inserire il dato, ad esempio alla domanda "fai sport" ci sono le caselle "si" "no" "poco". io devo mettere 1 sul si se ha risposto si. un altro intervistato risponde anche lui si e diventano 2 e così via. le domande però sono molte ed io vorrei che leggendo la risposta sulla scheda cartacea che ho potessi cliccare solo sulla casella corrispondente che si incrementa. se vuoi ti invio il file in excel per renderti conto. considera che sono 20.000 questionari e che sono al lavoro parecchie persone.
mi iscrivo al forum e spero vedrai la mia mail altrimenti la posto quì, grazie 1000
Incrementare di 1
di Adrianovr (utente non iscritto) data: 17/12/2008
Ripropongo la domanda in modo più semplice.
facendo click su una casella dove c'è un numero questo dovrebbe incrementarsi di 1. si può fare?
grazie ancora a chi mi può aiutare

di Enzo (utente non iscritto) data: 18/12/2008
Inserisci questa funziona nel modulo del foglio
dove hai i dati
dovrebbe fare al caso tuo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Value
If x = "" Then
Exit Sub
End If
Y = IsNumeric(x)
If Y = "Vero" Then
ActiveCell.Value = x + 1
End If
End Sub

di Enzo (utente non iscritto) data: 18/12/2008
Un saluto a luca
scusate se mi sono intromesso
Incrementare di 1
di Adrianovr (utente non iscritto) data: 18/12/2008
Funziona! ringrazio per la sollecita risposta e per l'aiuto veramente utile a enzo oltre agli altri ovviamente. ho 2 lavori così, in uno tutto bene, è composto da tre fogli e li vedo sul menù di visual basic, in un altro lavoro composto da 1 foglio non vedo gli stessi menù, ora però provo meglio ma comunque sono già contento così.
saluti
Risolto incrementare di 1
di Drianovr (utente non iscritto) data: 18/12/2008
Ho risolto anche con l'altro foglio creandone uno nuovo e facendo copia-incolla dal vecchio ho visto i menù ed iserito il codice ed adesso tutto funziona.
bravi
saluti alla prossima e buone feste
Uteriore aiuto
di Pryze (utente non iscritto) data: 16/01/2009
Premetto che ho provato ad eseguire il passaggio menzionato da "", ma senza successo.
vorrei sapere se è possibile creare una macro che mi permetta, tramite il click di un pultante-immagine, di incrementare il valore di una determinata cella.
es:
partendo da 0, clicco sul pulsante-immagine, portando il valore a 1.
quindi partendo da 1, clicco sul pulsante-immagine, portando il valore a 2.
proseguendo sempre in modo crescente.
aspetto suggerimenti.
grazie.
di Enzo (utente non iscritto) data: 16/01/2009
L'istruzione posta qui sotto dovrebbe andar bene
fai sapere
num = ActiveCell.Value num2 = num + 1 ActiveCell.Value = num2
Problema infinito
di Pryze (utente non iscritto) data: 16/01/2009
Enzo ti ringrazio per l'aiuto, perchè la formula funziona perfettamente.
però mi sono dimenticato di dire che mi servirebbe che il selettore rimanga sempre sulla stessa casella, senza dover cliccare ogni volta su di essa. questo è possibile?
scusa per il tempo che ti ho fatto perdere.

di Enzo (utente non iscritto) data: 19/01/2009
Ipotizzando che la cella dove tu voglia inserire il dato sia "a1" hai due soluzione qui sotto
bye

num = Range("a1").Value
num2 = num + 1
Range("a1").Value = num2
----------------------------
Range("a1").Select
num = ActiveCell.Value
num2 = num + 1
ActiveCell.Value = num2

Ringraziamenti
di Pryze (utente non iscritto) data: 19/01/2009
Ti ringrazio molto per il tempo che hai dedicato alle mie domande.
di Enzo (utente non iscritto) data: 20/01/2009
Di nulla

Vuoi Approfondire?