[excel] Anomalia con vba

[scossa]

Non bisogna cambiare nessun valore. Basta lanciare la macro e vedrai che la condizione in B2 è disattiva. Poi sulla cella A2 cliccare su F2/ENTER e la condizione diventa attiva.

Sbagli a utilizzare, in VBA, l'arrotondamento di Excel.
Sostituisci

Codice: Seleziona tutto

g = Application.WorksheetFunction.Floor(f, 0.01)

con

Codice: Seleziona tutto

g = VBA.Round(f, 2)

P.S.: Se esamini (Ultimo-Basso)/(Alto-Basso)*100 noterai che vale 79,999999999999 mentre dopo l'esecuzione del tuo codice vale 80,0000000000039
Con VBA.Round vale 79,999999999999

[ramset1978]

Grazie scossa!!!!


Ma quell'arrotondamento di vba non è un arrotondamento "per difetto"... io devo arrotondare in una macro per difetto ed in un' altra per eccesso.

[scossa]

Ma quell'arrotondamento di vba non è un arrotondamento "per difetto"... io devo arrotondare in una macro per difetto ed in un' altra per eccesso.

Per arrotondare per eccesso al secondo decimale aggiungi 0.005, esempio:
?vba.Round(45.268+0.005, 2)

Per arrotondare per difetto al secondo decimale togli 0.005, esempio:
?vba.Round(45.268-0.005, 2)

[ramset1978]

Ma quell'arrotondamento di vba non è un arrotondamento "per difetto"... io devo arrotondare in una macro per difetto ed in un' altra per eccesso.

Per arrotondare per eccesso al secondo decimale aggiungi 0.005, esempio:
?vba.Round(45.268+0.005, 2)

Per arrotondare per difetto al secondo decimale togli 0.005, esempio:
?vba.Round(45.268-0.005, 2)

Eh no... cosi non va bene... o meglio funziona correttamente se la mia variabile g non è già arrotondata a 2 decimali. Nel caso specifico 23146,26 diventa 23146,25 arrotondato per difetto come da te suggerito.

Forse si potrebbe fare cosi quando si arrotonda per difetto:
x = Application.WorksheetFunction.Floor(f, 0.01)
g = VBA.Round(x, 2)

o sbaglio?

[scossa]

Eh no... cosi non va bene... o meglio funziona correttamente se la mia variabile g non è già arrotondata a 2 decimali ....

Ovvio, di norma l'arrotondamento si deve applicare una sola volta, non vedo dove sia il problema nel farlo.

[ramset1978]

Credo di non essermi spiegato.
Prima di qualsiasi arrotondamento il valore che viene fuori dal calcolo vba è 23146,26, se applico il tuo suggerimento di arrotondare cosi (visto che io non so se quel valore è già arrotondato o meno): VBA.Round(g -0.005,2) ottengo 23146,25 che è sbagliato.

[scossa]

visto che io non so se quel valore è già arrotondato o meno

Cosa significa "non so se" ... il codice lo scrivi tu, saprai se, dove e quando lo arrotondi.

Comunque usa un valore correttivo più basso: +/- 0.0005:
?vba.round(23146.255+0.0005, 2)
23146,26

?vba.round(23146.255-0.0005, 2)
23146,25

?vba.round(23146.245+0.0005, 2)
23146,25

?vba.round(23146.245-0.0005, 2)
23146,24

[ramset1978]

Proprio non riesco a spiegarmi eh....
Io non posso sapere che tipo di risultato ottengo PRIMA dell'arrotondamento.

Esempio1, risultato Pre-Arrotondamento f = 23146,26
Esempio2, risultato Pre-Arrotondamento f = 23146,26343

Utilizzando g=Application.WorksheetFunction.Floor(f, 0.01) in entrambi i casi io ottengo 23146.26 (che è il valore corretto che cerco, sempre facendo riferimento ai dati presenti sul foglio).

Uitlizzando invece VBA.Round(f- valore correttivo, 2) non ho affatto la certezza di ottenere il risultato giusto anzi nell'esempio 1 ho la certezza di ottenere un RISULTATO ERRATO ovvero 23146,25, a prescindere dal valore correttivo.

[scossa]

Uitlizzando invece VBA.Round(f- valore correttivo, 2) nell'esempio 1 ho la certezza di ottenere un RISULTATO ERRATO ovvero 23146,25, a prescindere dal valore correttivo.

Assolutamente no!

?vba.Round(23146.26 - 0.0005 ,2)
23146,26

?vba.Round(23146.26 + 0.0005 ,2)
23146,26

[ramset1978]

Guarda non ci sono certezze in questo modo:

vba.Round(23146.269999 - 0.0005 ,2) = 23146,27 anzichè 23146,26

[scossa]

Guarda non ci sono certezze in questo modo:

vba.Round(23146.269999 - 0.0005 ,2) = 23146,27 anzichè 23146,26

Ora ho capito cosa intendi: tu con l'arrotondamento per difetto intendi troncare le cifre decimali oltre la seconda.

?vba.Int(23146.269999*100)/100

[ramset1978]

No... non mi serve questo. A me serve arrotondare alla seconda cifra decimale, per difetto in un caso e per eccesso nell'altro, il numero che viene fuori dal calcolo vba.

In pratica quello che si fa con excel in questo modo:
=ARROTONDA.DIFETTO(f;0,01)
=ARROTONDA.ECCESSO(f;0,01)
per questo avevo utilizzato
g = Application.WorksheetFunction.Floor(f, 0.01)
g = Application.WorksheetFunction.Ceiling(f, 0.01) che però abbiamo visto dà qualche problema.

Mi pare di aver capito che con la funzione VBA.Round questi arrotondamenti per difetto e per eccesso non si possono fare quindi, come ho scritto qualche post fa, si potrebbe fare cosi:

ARROTONDAMENTO PER DIFETTO:
g = Application.WorksheetFunction.Floor(f, 0.01)
g = VBA.Round(g,2)

ARROTONDAMENTO PER ECCESSO
g = Application.WorksheetFunction.Ceiling(f, 0.01).
g = VBA.Round(g,2)

Non sono molto esperto di vba e quindi non riesco a "vedere" se in questo modo ci possono comunque essere problemi.

[Anthony47]

Come ho detto nell' intervento precedente (che pero' e' in fondo alla pagina1 e quindi invisibile; viewtopic.php?f=26&t=104371#p609580), l' errore sul calcolo (Ultimo-Basso)/(Alto-Basso) e' sul 19° decimale (partendo dai 5 interi del 23000); quindi basta arrotondare quel risultato al 10 decimale e il risultato sara' ok. Cioe' con la formula

Codice: Seleziona tutto

=SE(VAL.NUMERO(Ultimo);SE(E((ARROTONDA((Ultimo-Basso)/(Alto-Basso);10)*100)<=Livello;Var<-Soglia);"Attiva";"Disattiva");"")

Mi permetto di pensare che anche con decimali molto piu' bassi il risultato sara' soddisfacente; diciamo che si puo' benissimo arrotondare a 6 decimali per coprire valori di Ultimo /Basso /Alto fino a 7 digit (1-9milioni) senza rischiare di falsare i calcoli con valori nell' ordine delle unita'.

Come vedete io preferisco lavorare sulle formule, non sul vba; ma e' questioni di preferenze personali.

Ribadisco comunque la mia opinione su tutta la discussione:

Ma io non vedo tutto questo problema...

Dici "ho un livello minimo che attiva una condizione", quindi hai una condizione On/Off; e' critico che la "condizione" invece di scattare a 23146,26-Epsilon (il noto "Epsilon piccolo a piacere") scatti a 23146,26 + Epsilon? Penso di no, e quindi tutto si traduce alla meraviglia sul fatto che due entita' (il foglio Excel e il vba) fanno calcoli che sembrano uguali e producono risultati che differiscono di un Epsilon; ma dimentichiamo che solo qualche anno fa, se facevi 10/3*3 molte calcolatrici davano ancora come risultato 9.999999

Nel caso in discussione l' Epsilon e' pari a 3.9*10(-19); piccolo abbastanza...

Ciao

[ramset1978]

Ciao Anthony, valuterò anche la tua formula.

Vero che il problema è piccolo in termini di calcolo ma è grande in termini di praticità. Senza una correzione, di formule e/o di vba, è del tutto inutile la macro che utilizzo. Tutto qua.

Io penso che la mia ultima soluzione, ovvero quella proposta prima del tuo intervento, può comunque andar bene ma attendo un parere di voi che siete decisamente più esperti.

[scossa]

No... non mi serve questo. A me serve arrotondare alla seconda cifra decimale, per difetto in un caso e per eccesso nell'altro, il numero che viene fuori dal calcolo vba.

Premesso che sono d'accordo con Anthony, ma prima hai detto:

io devo arrotondare in una macro per difetto ed in un' altra per eccesso.

quindi in una userai il primo e nell'altra il secondo:

Con l'arrotondamento per difetto (o troncamento), ci si limita ad eliminare le cifre successive
Con l'arrotondamento per eccesso, al risultato del troncamento si aggiunge una quantità pari ad una unità dell'ultima cifra conservata.

[ramset1978]

Ok di soluzioni ce ne sono abbastanza. Ringrazio vivamente Anthony e Scossa. Buona serata.