You are here:---Rispondi a: [RISOLTO] Matrice a più intervalli
Rispondi a: [RISOLTO] Matrice a più intervalli 2018-08-17T17:06:24+00:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Matrice a più intervalli Rispondi a: [RISOLTO] Matrice a più intervalli

sidsid
Moderatore
    Post totali: 440

    Ciao boss

    Solo per capire il funzionamento dell Function Ricer(Rn1, Rn2, Num, Etr)
    Se deve contare gli ambi in un intervallo, l’istruzione If n >= Etr Then nc = nc + 1 secondo me non tiene conto del valore maggiore di Etr
    Infatti se n = 3 gli ambi sono 3; quindi ad nc andrebbe sommato 3
    se n = 4 gli ambi sono 6
    se n = 5 gli ambi sono 10
    Invece rispettando la condizione della tua istruzione, viene sempre sommato 1

    Mi sono permesso di modificare la tua udf, semplificandola un pò

    Function Ricer(ByVal Rn1 As Range, ByVal Rn2 As Range, ByVal Num As Range, ByVal Etr As Integer)
    Dim rg1 As Variant, rg2 As Variant, rng As Variant
    Dim x As Long, nArr As Long
    Dim nc As Integer, j As Integer, n As Integer
    
    rg1 = Rn1
    rg2 = Rn2
    rng = Array(rg1, rg2)
    
    For nArr = LBound(rng) To UBound(rng)
        For x = LBound(rng(nArr)) To UBound(rng(nArr))
            n = 0
            For j = 1 To 5
                n = n + WorksheetFunction.CountIf(Num, rng(nArr)(x, j))
            Next j
            
            If n >= Etr Then
                Select Case n
                    Case 2: nc = nc + 1
                    Case 3: nc = nc + 3
                    Case 4: nc = nc + 6
                    Case 5: nc = nc + 10
                End Select
            End If
        Next x
    Next nArr
    Ricer = nc
    End Function
    • Questa risposta è stata modificata 3 mesi fa da sid sid.

    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