Formula personalizzata per calcolare quote
Hai un problema con Excel?
Formula personalizzata per calcolare quote
di giuseppe (utente non iscritto) data: 18/04/2017 19:09:00
Salve, ho l'esigenza di creare una formula personalizzata per calcolare in automatico delle quote.
per ogni quota totale vi sono 3 quote. esempio una quota totale di 50 euro deve essere divisa in 3 quote: 10 euro andranno a tizio (quota1) 15 andranno a caio (quota2) e 25 andranno a un altro (quota3).
Vorrei avere una formula che mi permetta di ottenere queste suddivisioni (ovviamente secondo un criterio) quando seleziono un vasto range di celle
Potete aiutarmi? per il momento riesco a calcolare solo le quote di una cella.
Public Function calcolo_quote_territoriali(quotaTot As Double) As String
Dim quota_coord As Double
Dim quota_naz As Double
Dim quota_narco As Double
If quotaTot = 15 Then
quota_coord = 5
quota_naz = 5
quota_narco = 5
End If
If quotaTot = 30 Then
quota_coord = 5
quota_naz = 5
quota_narco = 20
End If
If quotaTot = 5 Then
quota_coord = 2.5
quota_naz = 2.5
quota_narco = 0
End If
If quotaTot = 1 Then
quota_coord = 1
quota_naz = 0
quota_narco = 0
End If
Dim stringa1, stringa2, stringa3 As String
stringa1 = "quota1"
stringa2 = "quota2"
stringa3 = "quota3"
calcolo_quote_territoriali = stringa1 + Str(quota_coord)
End Function
|
di Luca73 data: 19/04/2017 08:48:31
Ciao
a) visto che i se sono molteplici forse conviene usare un SELECT CASE
b) non è chiaro come vuoi che venga restituito il risultato nè da dove vuoi prendere il risultato.
c) sinceramente non mi è chiaro nenache perchè voi usare VBA e non formule.
Se vuoi una risposta conviene che alleghi un file (almeno tipico con un po di dati e il risultato voluto) senza dati sensibili.
Ciao
Luca
Vuoi Approfondire?