| | Post: 29 | Registrato il: 24/04/2013
| Città: PUTIGNANO | Età: 78 | Utente Junior | excel 2007 | | OFFLINE | |
|
05/06/2020 19:40 | |
Buona sera
Ho bisogno del vs. cortese aiuto, cercavo una formula che avesse la funzione di cella “contatore”, la stessa contiene un numero, che con l’eventuale incremento, abbia la capacità di aumentare dello stesso valore tutti i numeri elencati in altre colonne dello stesso foglio. .Lo schema che allego riporta il valore della cella B4 (1000), nelle celle D4 J12 vi sono i numeri che dovrebbero aumentare dello stesso incremento, per esempio se B4 aumenta di una unità (1001) tutti i numeri delle altre colonne indicate dovrebbero aumentare della stessa unità. Spero di aver esposto bene la mia richiesta e vi ringrazio anticipatamente per la vs. collaborazione.
Cordiali Saluti
DOMENICO.46
Exel 2007
B4
1000
--D4 --E4 --F4 --G4 --H4 ---I4 ---J4
4001 6203 5115 6203 3773 6094 4520
2948 4561 4780 4354 4354 3988 4288
2854 3038 3533 2945 2945 2943 2710
4459 3744 4667 4611 4611 4143 3573
4320 3220 3869 2998 2998 3391 2688
2624 2346 3441 2828 2828 2144 2195
6203 4305 6196 2953 2953 3065 3087
2962 2479 3909 2734 2734 2390 2258
2528 2244 2452 2524 2524 2071 2003
|
|
| | Post: 792 | Registrato il: 15/01/2016
| Città: ROMA | Età: 51 | Utente Senior | 2016 | | ONLINE |
|
05/06/2020 19:58 | |
Ciao
se i numeri sono inseriti manualmente con le formule non si può fare ci vuole il VBA se invece i numeri sono il risultato di formule si può intervenire ma bisogna vedere il file |
| | Post: 29 | Registrato il: 24/04/2013
| Città: PUTIGNANO | Età: 78 | Utente Junior | excel 2007 | | OFFLINE | |
|
05/06/2020 21:12 | |
Grazie per la risposta Danilo,ad essere sincero ho tentato in tutti i modi con le mie modeste conoscenze di cercare la formula adatta allo scopo ma non ci sono riuscito.I numeri del foglio sono semplicemente valori non rivenienti da nessuna formula,sono stati scritti da me.La richiesta e mirata alla conoscenza della formula e della ipotetica applicazione futura.
Di nuovo grazie.Saluti
DOMENICO.46
Exel 2007 |
| | Post: 2.856 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
06/06/2020 10:45 | |
Ciao
valore = Range("B4")
For Each cel In Range("D4:J12")
cel.Value = cel.Value + valore
Next
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 30 | Registrato il: 24/04/2013
| Città: PUTIGNANO | Età: 78 | Utente Junior | excel 2007 | | OFFLINE | |
|
06/06/2020 11:52 | |
Grazie Dodo47. Questa macro arricchisce le mie conoscenze riguardo le potenzialità di Exel,la proverò appena possibile.
Cordiali saluti.
DOMENICO.46 |
| | Post: 31 | Registrato il: 24/04/2013
| Città: PUTIGNANO | Età: 78 | Utente Junior | excel 2007 | | OFFLINE | |
|
06/06/2020 16:10 | |
Ciao Dodo47. Ho provato la macro che gentilmente mi hai inviato, ed ho constatato che non è quello che volevo. Forse non mi sono espresso bene nella prima richiesta.La macro al comando somma il valore della cella B4 (1000) a tutti i valori delle celle D4 J12, quindi succede che D4 da(4001)diventa(5001),E4 da(6203)diventa(7203),F4 da(5115)diventa(6115) e così tutti gli altri valori del campo indicato. Tento ora con un esempio spero più chiaro la funzione che cercavo: con l'incremento del valore di B4 da (1000 per es. a 1001)al comando oppure in modo automatico,tutti i valori delle celle D4 J12 devono aumentare solo dello stesso aumento cioè di(1), D4 diventerà (4002)
E4 (6204) F4 (5116) ecc. ecc..
Mi auguro di non aver chiesto una cosa complicata, comunque ringrazio te ed il forum che permette queste richieste utili alla conoscenza di questo programma.
Cordiali Saluti
DOMENICO.46
Exel 2007
|
| | Post: 2.857 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
06/06/2020 16:46 | |
Ahhh!!! non avevo capito.
Un modo è quello di sfruttare l'evento change e selectionChange del foglio, mirato alla cella B4.
(Vedi codice nel modulo del foglio1).
Dim PrecValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
If Target.Value = "" Then Exit Sub
If Target.Value <> PrecValue Then
Diff = Target.Value - PrecValue
Application.EnableEvents = False
For Each cel In Range("D4:J12")
cel.Value = cel.Value + Diff
Next
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PrecValue = Target.Cells(1, 1).Value
End Sub
Saluti [Modificato da dodo47 06/06/2020 16:47] Domenico
Win 10 - Excel 2016 |
| | Post: 32 | Registrato il: 24/04/2013
| Città: PUTIGNANO | Età: 78 | Utente Junior | excel 2007 | | OFFLINE | |
|
06/06/2020 17:46 | |
Grazie Dodo47, Perfetto era quello che cercavo, ammiro la disponibilità, la competenza e l'immediatezza della risposta.
Saluti e Buona Domenica.
DOMENICO.46
Exel 2007 |
|
|