vba2003: calcolare da differenza per arrivare ad un intero.

[karug64]

Salve a tutti.
Se con l'istruzione (classica) :
titdos2 = ActiveWorkbook.Sheets("Dos").Cells(Rows.Count, "B").End(xlUp).Row
ottengo quante righe ho nel foglio Dos, come posso fare a sapere quante righe mi mancano per raggiungere la decina successiva ?

Per esempio:
titdos2 = 80 ---> devo arere 0
titdos2 = 78 ---> devo arere 2
titdos2 = 14 ---> devo arere 6

ecc.

Grazie

[karug64]

Salve . Mi rispondo da solo. Questa e' la soluzione che ho pensato:

If Val(titdos2) < 10 Then riempi = 10 - titdos2
If Val(titdos2) > 10 Then
decine = Val(Left(Str(titdos2), 2))
t_decsucc = decine + 1
decsucc = Str(Trim(t_decsucc)) + "0"
riempi = Val(decsucc) - titdos2
End If

certo, non sara' il massimo, ma ... funziona se siamo sotto i 100.

Magari se qualcuno trova un algoritmo piu' universale ....

[alby60]

Ciao, prova con

Codice: Seleziona tutto

=ARROTONDA.ECCESSO(A2;10)-A2

in A2 hai il valore sul quale calcolare il numero che hai chiesto

Io ti ho risposto proponendoti una formula però non avevo letto che volevi del codice.
Ecco la soluzione con il codice

Codice: Seleziona tutto

Risultato = Application.Ceiling([A2], 10) - [A2]

applicata al tuo esempio diventa

Codice: Seleziona tutto

decsucc = Application.Ceiling(titdos2, 10) - titdos2

[Flash30005]

Leggi quanto scritto da Alby60

Altra soluzione potrebbe essere questa

Codice: Seleziona tutto

Sub Arrotonda()
ValA = Val(titdos2) Mod 10
If ValA <> 0 Then ValA = 10 - ValA
'<<<< fai ciò che devi fare
MsgBox ValA
End Sub

Ciao

[karug64]

Grazie ad entrambi.

.... ovviamente era molto piu' semplice di quanto immaginassi ....