You are here:---Rispondi a: [RISOLTO] Matrice a più intervalli
Rispondi a: [RISOLTO] Matrice a più intervalli 2018-08-18T15:30:50+00:00

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

BySalvBySalv
Amministratore del forum
    Post totali: 318

    Ciao Giorgio si è Completa, l’aggiunta del post “#6499” si tratta di una semplificazione del “Select Case”, che applica la funzione “Choose” per la ricerca diretta semplificando il select Case come ha detto Sid

    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
                nc = nc + Application.WorksheetFunction.Choose(n, 0, 1, 3, 6, 10)
            End If
        Next x
    Next nArr
    Ricer = nc
    End Function

    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