[vba] gestire divisione per 0

[ramset64]

Ciao,
ho un foglio in cui vi sono moltissimi calcoli, spesso mi trovo a dover gestire il fatto di avere una 0 al denominatore con conseguente errore di vba e quindi sono costretto di volta in volta a verificare se ciò che si trova al denominatore sia uguale a 0 per evitare l'errore.... esempio.

if cum2 <>0 then
x = cum1/cum2
else
cum1=0

questo ovviamente per ogni calcolo ove vi sia la possibilità di avere 0 al denominatore.
Come posso evitare?

esiste un modo per verificare direttamente se l'istruzione in neretto da errore o meno?

ciaooo

[maxmula]

Credo che potrenno esserti utili wueste due funzioni:

ERRORE.TIPO(Indirizzo)
NON.DISP()

La prima ha valore #N/D se l'operazione che viene eseguita all'indirizzo puntato ha un valore reale, se invece è qualcosa tipo !DIV0, assume valore numerico (ad esempio, per la divisione per zero, assume valore 2)

La seconda ti serve se vuoi controllare che il contenuto della cella sia #N/D oppure no.
Esempio:

Codice: Seleziona tutto

 = SE (C2=NON.DISP;"BUONO";"NO BUONO")

verifica che il risultato che è scritto in C2 sia un valore lecito.

Nelle celle che ospitano i risultati delle divisioni, ad esempio, puoi mettere una formula del genere:

Codice: Seleziona tutto

=SE (ERRORE.TIPO (B2/C2)=NON.DISP;B2/C2;"")

In questo modo, al posto di !DIV0 visualizzerai una cella vuota

Ciao,
MAx

[ramset64]

Grazie max ma pare che con vba non sia cosi semplice e poi gli errori possibili sono più di un tipo, ci vorrebbe qualcosa di più generico ma non credo esista.

[Anthony47]

Potresti crearti una Function da usare in sostituzione dell' operatore "/"; ad esempio:

Codice: Seleziona tutto

Function Divz(Numerat, Denominat)
If Denominat = 0 Then
Divz = CVErr(xlErrDiv0): Beep: Exit Function
End If
Divz = Numerat / Denominat
End Function


Poi invece di scrivere x = cum1/cum2 scriverai

Codice: Seleziona tutto

X=Divz(cum1, cum2)

Il codice della function che ti ho scritto e' solo un esempio, e in caso di denominatore pari a Zero restituisce l' errore Div!0 e fa beep; probabilmente in questi casi tu invece vorrai fare qualcosa di particolare, che quindi codificherai all' interno della If.

Ciao