
VALORE = Range("E1").Value
Do
VALORE = VALORE - 90
Loop Until VALORE <= 90
Range("E1").Value = VALORE |
Sub calcola()
valore = Range("A1") * Range("A2") * Range("A3").Value
If valore > 90 Then
Do
valore = valore - 90
Loop Until valore <= 90
End If
Range("A4").Value = valore
End Sub
|
funzione in A4 =SE(A1*A2*A3>90;SE((A1*A2*A3)-(90*INT((A1*A2*A3)/90))=0;90;(A1*A2*A3)-(90*INT((A1*A2*A3)/90)));A1*A2*A3) |
