You are here:---Rispondi a: [RISOLTO] UDF non funzionante
Rispondi a: [RISOLTO] UDF non funzionante2018-09-19T16:21:22+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] UDF non funzionante Rispondi a: [RISOLTO] UDF non funzionante

Avatargiorgioantonio
Partecipante
    Post totali: 354

    Salve Sid,

    questa la UDF che oltre al vertibile dovrebbe fare anche il fuori 90

    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

    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