You are here:---Rispondi a: valori unici
Rispondi a: valori unici2018-06-22T10:41:16+02:00

Home Forum Domande su Formule e Funzioni valori unici Rispondi a: valori unici

BySalvBySalv
Amministratore del forum
    Post totali: 512

    Ciao Giorgio eccoti la UDF per i vertibili

    Function Vert90(n)
    Dim vv
    While n > 90
    n = n - 90
    Wend
    If n = 0 Then n = 90
    vv = Array(10, 20, 30, 40, 50, 60, 70, 80, 90, 1, 19, 21, 31, 41, 51, 61, 71, 81, 11, 2, 12, 29, 32, 42, 52, 62, 72, 82, 22, 3 _
    , 13, 23, 39, 43, 53, 63, 73, 83, 33, 4, 14, 24, 34, 49, 54, 64, 74, 84, 44, 5, 15, 25, 35, 45, 59, 65, 75, 85, 55 _
    , 6, 16, 26, 36, 46, 56, 69, 76, 86, 66, 7, 17, 27, 37, 47, 57, 67, 79, 87, 77, 8, 18, 28, 38, 48, 58, 68, 78, 89 _
    , 88, 9)
    Vert90 = vv(n - 1)
    End Function

    al solito devi copiarla in un modulo e dimenticarla

    questa fa anche il Fuori90 del numero prima di darti il vertibile, quindi se in A1 hai il numero nella cella dove vuoi il vertibile scrivi “Vert90(A1)”, oppure scrivi la formula per il calcolo come per il fuori90.

    Ciao By Sal  :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi