| | Post: 5 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
  05/03/2018 17:39 | |
Ciao a tutti, chiedo info in merito al file in allegato.
Ho una serie di colonne dove devo aumentare di x% il valore.
Il problema sta nel fatto che dopo aver inserito la percetuale per il calcolo, la somma dells colonns F risulta non corretta (Sulla colonna F somma delle celle C,D,E. Dove sta l'errore. In allegato il file.
Grazie [Modificato da timetravel86 05/03/2018 17:44] |
|
| | Post: 2.062 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 05/03/2018 18:15 | |
ciao
porta il formato delle celle a 5 dopo la virgola
meglio a 6
il calcolo e' giusto e la visualizzazione che excel porta all'intero + vicino
Ciao da locate
excel 2007 / 13 |
| | Post: 6 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 06/03/2018 08:30 | |
Ciao Locate, ho provato a modificare il formato cella a 6 cifre dopo lo 0 ma la somma non è uguale.
Esempio:
C19=0.20806 D19=0.00208 E19=0,12846 somma Corretta= 0,3386022
somma visualizzata su colonna F=0,34876
ah Grazie ancora per la macro testo in colonne (una bomba) ![[SM=x423041]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0021.gif) [Modificato da timetravel86 06/03/2018 08:31] |
| | Post: 2.064 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 06/03/2018 09:59 | |
ciao
nel file allegato io in C19 ho un valore di 0,202 e non 0,208
D19 0,00202 e non 0,00208 E19 0,12472 e non 0,12846
quindi la somma in F19 e' 0,32874
riporto i valori del file che ai allegato
0,202 _ 0,00202 _ 0,12472 _ 0,3287
controlla bene i valori inseriti nelle varie celle
normalmente excel nei calcoli sbaglia dopo la 14 dopo la virgola di 1 per effetto del calcolo in BINARIO
Ciao da locate
excel 2007 / 13 |
| | Post: 7 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 06/03/2018 10:18 | |
allora mi sono spiegato male io. Quando inserisco il valore ad esempio del 3% (quindi vedi esempio di prima) se vado a fare la somma il totale non corrisponde. |
| | Post: 3.225 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/03/2018 13:31 | |
A me risulta giusto, di sicuro il Tuo Codice non va bene
Per ogni cella in C/E moltiplichi il valore (su se stessa)???
Dovrei capire cosa intendi fare?
Ex desideri aumentare del 3% il valore della cella C18 = 0,202
=((C18*3)/100) >>>0,00606
Ex desideri aumentare del 3% il valore delle celle C18+D18 = 0,202+0,00202
=((SOMMA(C18:D18)*3)/100)>>>0,00612
Ora se nell'inputbox metti 0,03 non c'è bisogno di dividere per 100
Il Tuo codice >>>Cell.Value * perc + Cell.Value, casomai sarebbe>>>(Cell.Value * perc) + Cell.Value
Mà cosi modifichi i valori originali, prova mettere il risultato in un'altra cella...EX
vb Sub Aumenta1()
Dim perc As Double, Val As Double
perc = InputBox("Inserisci la percentuale", "Inserimento dati")
Val = Range("C18")
Range("B18") = (Val * perc) + Range("C18")
'Oppure
Val = Range("D18")
Range("B19") = (Val * perc) + Range("D18")
'Oppure per due celle
Val = Range("C18") + Range("D18")
Range("B20") = (Val * perc) + (Range("C18") + Range("D18"))
'sempre per due celle
Range("B21") = ((Val * perc) / 100) + (Range("C18") + Range("D18"))
End Sub
Excel 2013 |
| | Post: 8 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 06/03/2018 15:01 | |
Ciao Raffaele intanto grazie per la info. Questo foglio excel arriva da un gestionale, quindi non posso modificare la "struttura".
Premessa che di vba ho appena iniziato a studiare, quindi partiamo dal livello -100...
Non capisco perchè quando vado ad aumentare o diminuire di x% i valori delle celle C-D-E non mi debba fare la somma corretta.
Ho appena scoperto che se lancio la macro (non mettendo nessun valore)e clicco su annulla, Rilanciandola e mettendo un qualsiasi valore percentuale (negativo o positivo che sia) la somma della colonna F risulta essere corretta... |
| | Post: 2.065 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 06/03/2018 15:46 | |
ciao
intanto approfitto per salutare Raffaele
ho riprestinato il tuo e provato la sub() inserita con la percentuale come suggerito da Raffaele ( 0,03 ) ps la virgola e non il punto
tutto funziona alla perfezione
problema Non e' che per caso tu ai impostato nelle formule il calcolo MANUALE , controlla in opzioni formule se questi e' su automatico
altrimenti se questi deve essere sempre su manuale per problemi xxx devi ogni volta che lanci la macro al termine fare un ricalcolo con il tasto F9
Ciao da locate
excel 2007 / 13 |
| | Post: 3.228 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/03/2018 15:56 | |
>>>For Each Cell In Range("C9:E939","G9:G939")
Fai due cicli per questo pezzo di codice
For Each Cell In Range("C9:E939") e For Each Cell In Range("G9:G939")
Non sò il motivo, ma quando "passa" in F, ti cancella la formula =SOMMA(C9:E9)
Ps. Formatta le colonne come "generale"
Un saluto a locatevaresino [Modificato da raffaele1953 06/03/2018 16:00] Excel 2013 |
| | Post: 9 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 06/03/2018 18:14 | |
In opzioni formule la spunta è su attivo
ho provato a mettere come formato della colonna F generale, ma niente....
va beh una soluzione la troverò.
Intanto grazie!!! |
| | Post: 3.230 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
| 06/03/2018 18:28 | |
Hai provato?
vb Sub Pulsante17_Click()
Dim perc As Double
perc = InputBox("Inserisci la percentuale", "Inserimento dati")
For Each Cell In Range("C9:E939")
Cell.Value = (Cell.Value * perc) + Cell.Value
Next
For Each Cell In Range("G9:G939")
Cell.Value = (Cell.Value * perc) + Cell.Value
Next
For Each Cell In Range("I9:AB939")'vedi se hai altri problemi
Cell.Value = (Cell.Value * perc) + Cell.Value
Next
End Sub[Modificato da raffaele1953 06/03/2018 18:50] Excel 2013 |
| | Post: 10 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 07/03/2018 09:11 | |
Ciao Raffaele provato e funziona... Boh non so spiegarmi il motivo del perchè
For Each Cell In Range("C9:E939", "G9:G939")
non vada bene, ma va bene così... Grazie 1000 ![[SM=x423047]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0027.gif) ![[SM=x423028]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0008.gif) [Modificato da timetravel86 07/03/2018 09:14] |
| | Post: 2.066 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 08/03/2018 11:14 | |
ciao
ieri non ero a casa
la tua sub() la devi modificare in questo modo
Sub Pulsante17_Click()
Dim perc As Double
perc = InputBox("Inserisci la percentuale", "Inserimento dati")
''For Each Cell In Range("C9:E939","G9:G939") due soli doppi apici
For Each Cell In Range("C9:E939,G9:G939,I9:AB939")
Cell.Value = Cell.Value * perc + Cell.Value
Next
End Sub
Ciao da locate
excel 2007 / 13 |
| | Post: 11 | Registrato il: 05/03/2018
| Città: BASSANO DEL GRAPPA | Età: 38 | Utente Junior | 2010 | | OFFLINE | |
|
| 09/03/2018 10:36 | |
Grazie Locate |
|
|
|
|