You are here:---Rispondi a: [RISOLTO] Restituire array di posizioni del numero nella matrice
Rispondi a: [RISOLTO] Restituire array di posizioni del numero nella matrice2018-05-17T11:29:16+02:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Restituire array di posizioni del numero nella matrice Rispondi a: [RISOLTO] Restituire array di posizioni del numero nella matrice

BySalvBySalv
Amministratore del forum
    Post totali: 505

    Ciao Pino, questa la macro che sono riuscito a tirare fuori, in quanto non ho dimestichezza con le formule matematiche.

    Sub trova()
    Dim rng, r, c, x, d, k, w, kk, s, t, m
    
    d = Cells(1, 10)
    c = 12
    Range(Cells(2, c), Cells(50, c + 3)).ClearContents
    r = 2
    For Each x In Range("Numeri")
    If d = x Then
    Cells(r, c) = x.Row - 1
    If r > 2 Then Cells(r, c + 1) = Cells(r, c) - Cells(r - 1, c)
    r = r + 1
    End If
    Next x
    If Cells(2, c) = "" Then Exit Sub
    Cells(2, c + 2).FormulaR1C1 = "=MAX(C[-13])/COUNTIF(C[-12]:C[-7],R[-1]C[-4])"
    w = 2
    m = Cells(2, c + 2)
    For x = 3 To Cells(Rows.Count, 13).End(xlUp).Row 'formula devianza
    s = Cells(x, c + 1)
    t = (s - m) ^ (w)
    kk = kk + t
    Next x
    Cells(2, c + 3) = kk
    End Sub

    Ho fatto le prove e corrispondono ad i tuoi risultati, quindi fai un controllo ulteriore.

    fai sapere Ciao By Sal  :bye:

    Eccoti il link al file

    https://mega.nz/#!ABEUwQJS!r_ISumwpW4NjR4A2sL1yW87M0gfWEFu1xXPdWpFllxE

     

    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