Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
trovare il valore minimo di tra una serie di celle discontinue
184 views
Skip to first unread message
a...@a.it
Dec 28, 2013, 4:01:58 AM12/28/13
to
Un ciao a tutti e...buone feste.
Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
trovare il valore minimo che non sia zero.
Questa la formula da me impiegata:
=MIN(T489;AC489;AG489;AY489)*2
Per� se ci sono zeri, mi prende lo zero.
Come faccio a fare in modo che non consideri lo zero?
Ho provato con:
MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
adattandola al mio caso:
MIN(SE(T489:AY489>0;T489:AY489;""))
Ma non va bene perch� qui prenderebbe anche celle che non centrano.
Qualcuno mi sa aiutare?
Grazie e buone feste ancora.
S.
Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
trovare il valore minimo che non sia zero.
Questa la formula da me impiegata:
=MIN(T489;AC489;AG489;AY489)*2
Per� se ci sono zeri, mi prende lo zero.
Come faccio a fare in modo che non consideri lo zero?
Ho provato con:
MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
adattandola al mio caso:
MIN(SE(T489:AY489>0;T489:AY489;""))
Ma non va bene perch� qui prenderebbe anche celle che non centrano.
Qualcuno mi sa aiutare?
Grazie e buone feste ancora.
S.
a...@a.it
Dec 28, 2013, 4:07:50 AM12/28/13
to
giovanni....@gmail.com
Dec 28, 2013, 6:14:52 AM12/28/13
to
Il giorno sabato 28 dicembre 2013 10:01:58 UTC+1, a...@a.it ha scritto:
> Un ciao a tutti e...buone feste.
>
>
>
> Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
>
> trovare il valore minimo che non sia zero.
>
>
>
> Questa la formula da me impiegata:
>
> =MIN(T489;AC489;AG489;AY489)*2
>
> Per� se ci sono zeri, mi prende lo zero.
> Un ciao a tutti e...buone feste.
>
>
>
> Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
>
> trovare il valore minimo che non sia zero.
>
>
>
> Questa la formula da me impiegata:
>
> =MIN(T489;AC489;AG489;AY489)*2
>
>
>
>
> Come faccio a fare in modo che non consideri lo zero?
>
>
>
> Ho provato con:
>
> MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
>
> adattandola al mio caso:
>
> MIN(SE(T489:AY489>0;T489:AY489;""))
>
> Ma non va bene perch� qui prenderebbe anche celle che non centrano.
>
>
> Come faccio a fare in modo che non consideri lo zero?
>
>
>
> Ho provato con:
>
> MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
>
> adattandola al mio caso:
>
> MIN(SE(T489:AY489>0;T489:AY489;""))
>
>
>
>
> Qualcuno mi sa aiutare?
>
> Grazie e buone feste ancora.
>
> S.
se ho capito giusto, la riga sulla quale cercare il valore desiderato è la 489.....
>
>
> Qualcuno mi sa aiutare?
>
> Grazie e buone feste ancora.
>
> S.
potresti provare con questa formula....
SE(MIN(489:489)=0;PICCOLO(489:489;(CONTA.SE(489:489;0)+1));MIN(489:489))
Bruno Campanini
Dec 28, 2013, 7:24:39 AM12/28/13
to
a...@a.it has brought this to us :
[...]
Cos'ￜ che non va in questa formula?
Quali sarebbero le celle che prenderebbe, e che non c'entrano?
Bruno
[...]
> adattandola al mio caso:
> MIN(SE(T489:AY489>0;T489:AY489;""))
> Ma non va bene perchￜ qui prenderebbe anche celle che non centrano.
> MIN(SE(T489:AY489>0;T489:AY489;""))
Cos'ￜ che non va in questa formula?
Quali sarebbero le celle che prenderebbe, e che non c'entrano?
Bruno
Andrea.9
Dec 28, 2013, 8:59:59 AM12/28/13
to
visto che i valori sono solo 4 prova questa:
=MIN(SE(T489>0;T489;9^9);SE(AC489>0;AC489;9^9);SE(AG489>0;AG489;9^9);SE(AY489>0;AY489;9^9))*2
se 9^9 fosse un numero troppo piccolo, aumentalo tipo con 9^99
ciao
andrea
=MIN(SE(T489>0;T489;9^9);SE(AC489>0;AC489;9^9);SE(AG489>0;AG489;9^9);SE(AY489>0;AY489;9^9))*2
se 9^9 fosse un numero troppo piccolo, aumentalo tipo con 9^99
ciao
andrea
Andrea.9
Dec 28, 2013, 9:03:34 AM12/28/13
to
> se 9^9 fosse un numero troppo piccolo, aumentalo tipo con 9^99
magari 9^99 è un po' esagerato e basta 99^9
9^9=387.420.489
99^9=913.517.247.483.641.000
9^99=29.512.665.430.652.800.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000.000
paoloard
Dec 28, 2013, 9:55:20 AM12/28/13
to
ha scritto nel messaggio news:l9m425$v3c$1...@speranza.aioe.org...
es. in colonna M.
In M1 metti: =T489
in M2: =AC489
in M3: AG489
in M4: Ay489
quindi la formula per calcolare il minimo diventerebbe:
=PICCOLO(M1:M4;CONTA.SE(M2:M4;0)+1)
ovviamente l'intervallo lo puoi ricreare anche su altro foglio e poi
richiamarlo nella formula.
--
Ciao
paoloard
http://www.riolab.org/
Norman Jones
Dec 28, 2013, 12:09:35 PM12/28/13
to
Prova a sostituire la tua formula
> =MIN(T489;AC489;AG489;AY489)*2
con:
=MIN(SE(T489:AC489>0;T489:AC489);SE(AG489:AY489>0;AG489:AY489))*2,
Questa � una formula matriciale quindi la formula dovrebbe essere
confermata con Ctrl-Invio-Enter.
===
Regards,
Norman
paoloard
Dec 28, 2013, 2:26:31 PM12/28/13
to
"paoloard" ha scritto nel messaggio news:l9mook$u8n$1...@dont-email.me...
cut
Costruisci un intervallo continuo in una colonna libera con le 4 celle, per
es. in colonna M.
In M1 metti: =T489
in M2: =AC489
in M3: AG489
in M4: Ay489
in M3: =AG489
in M4: =AY489
paoloard
Dec 28, 2013, 2:28:41 PM12/28/13
to
"Norman Jones" ha scritto nel messaggio
news:l9n0kh$5ob$1...@speranza.aioe.org...
per� cos� introduci nei calcoli anche i valori delle celle intermedie alle
celle in esame che sono tutte discontinue, cosa che l'OP ha escluso.
Norman Jones
Dec 28, 2013, 3:09:28 PM12/28/13
to
On 28/12/2013 19:28, paoloard wrote:
> Ciao Norman,
> per� cos� introduci nei calcoli anche i valori delle celle intermedie
> alle celle in esame che sono tutte discontinue, cosa che l'OP ha escluso.
Ciao Paolo,
> Ciao Norman,
> per� cos� introduci nei calcoli anche i valori delle celle intermedie
> alle celle in esame che sono tutte discontinue, cosa che l'OP ha escluso.
Indubbiamente, mi sfuggia qualcosa ma penso che il risultato della
formula suggerita da me sia indipendente dell'intervallo intermedia che,
per quella formula sarebbe AD489: AF489.
===
Regards,
Norman
Bruno Campanini
Dec 28, 2013, 9:46:59 PM12/28/13
to
a...@a.it expressed precisely :
In alternativa:
==================================
Public Function MinUDF(cell1 As Range, cell2 As Range, _
cell3 As Range, cell4 As Range) As Currency
Dim p As Currency, cel, i As Long
cel = Array([cell1], [cell2], [cell3], [cell4])
For i = 0 To UBound(cel)
If cel(i) > 0 Then
p = cel(i)
Exit For
End If
Next
For i = 0 To UBound(cel)
If cel(i) > 0 And cel(i) < p Then
p = cel(i)
End If
Next
MinUDF = p
End Function
=================================
Usage:
=MinUDF(T489;AC489;AG489;AY489)*2
Bruno
> Un ciao a tutti e...buone feste.
>
> Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
> trovare il valore minimo che non sia zero.
>
> Questa la formula da me impiegata:
> =MIN(T489;AC489;AG489;AY489)*2
> Perￜ se ci sono zeri, mi prende lo zero.
>
> Ho questo problema: ho un serie di celle su una stessa riga di cui voglio
> trovare il valore minimo che non sia zero.
>
> Questa la formula da me impiegata:
> =MIN(T489;AC489;AG489;AY489)*2
>
> Come faccio a fare in modo che non consideri lo zero?
>
> Ho provato con:
> MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
> adattandola al mio caso:
> MIN(SE(T489:AY489>0;T489:AY489;""))
> Ma non va bene perchￜ qui prenderebbe anche celle che non centrano.
> Come faccio a fare in modo che non consideri lo zero?
>
> Ho provato con:
> MIN(SE(A1:A6 > 0; A1:A6; "")) in forma matriciale
> adattandola al mio caso:
> MIN(SE(T489:AY489>0;T489:AY489;""))
In alternativa:
==================================
Public Function MinUDF(cell1 As Range, cell2 As Range, _
cell3 As Range, cell4 As Range) As Currency
Dim p As Currency, cel, i As Long
cel = Array([cell1], [cell2], [cell3], [cell4])
For i = 0 To UBound(cel)
If cel(i) > 0 Then
p = cel(i)
Exit For
End If
Next
For i = 0 To UBound(cel)
If cel(i) > 0 And cel(i) < p Then
p = cel(i)
End If
Next
MinUDF = p
End Function
=================================
Usage:
=MinUDF(T489;AC489;AG489;AY489)*2
Bruno
Norman Jones
Dec 29, 2013, 2:39:29 AM12/29/13
to
On 28/12/2013 20:09, Norman Jones wrote:
> Indubbiamente, mi sfuggia qualcosa ma penso che il risultato della
> formula suggerita da me sia indipendente dell'intervallo intermedia che,
> per quella formula sarebbe AD489: AF489.
Ciao Paolo,
> Indubbiamente, mi sfuggia qualcosa ma penso che il risultato della
> formula suggerita da me sia indipendente dell'intervallo intermedia che,
> per quella formula sarebbe AD489: AF489.
Chiedo scusa.
Quello che mi sfuggiva era il diverso uso dei segni di punteggiatura in
formule italiane / inglesi. Invece di quattro celle discrete, la mia
formula si riferiva, erroneamente, a due intervalli estesi!
Dato che si tratta di 4 celle, la formula diventerebbe:
=MIN(SE(T489>0;T489);SE(AC489>0;AC489;SE(AG489>0;AG489;SE(AY489>0;AY489))))
Tuttavia, sarebbe molto pi� veloce scrivere l'UDF di Bruno!
===
Regards,
Norman
Norman Jones
Dec 29, 2013, 7:33:35 AM12/29/13
to
On 29/12/2013 07:39, Norman Jones wrote:
>
> Ciao Paolo,
>
> Chiedo scusa.
>
> Quello che mi sfuggiva era il diverso uso dei segni di punteggiatura in
> formule italiane / inglesi. Invece di quattro celle discrete, la mia
> formula si riferiva, erroneamente, a due intervalli estesi!
>
> Dato che si tratta di 4 celle, la formula diventerebbe:
>
> =MIN(SE(T489>0;T489);SE(AC489>0;AC489;SE(AG489>0;AG489;SE(AY489>0;AY489))))
>
> Tuttavia, sarebbe molto pi� veloce scrivere l'UDF di Bruno!
Ciao Paolo,
>
> Ciao Paolo,
>
> Chiedo scusa.
>
> Quello che mi sfuggiva era il diverso uso dei segni di punteggiatura in
> formule italiane / inglesi. Invece di quattro celle discrete, la mia
> formula si riferiva, erroneamente, a due intervalli estesi!
>
> Dato che si tratta di 4 celle, la formula diventerebbe:
>
> =MIN(SE(T489>0;T489);SE(AC489>0;AC489;SE(AG489>0;AG489;SE(AY489>0;AY489))))
>
> Tuttavia, sarebbe molto pi� veloce scrivere l'UDF di Bruno!
Come penitenza per il mio errore atroce, posso offrire una versione pi�
generica della UDF fornita da Bruno? Prendendo spinta da Bruno, questa
versione della funzione accetta qualunque combinazione di celle o
intervalli continui e discontinui, e accetta anche valori e altre
funzioni, anzich� quattro celle.:
'=============>>
Public Function MinNotZero(ParamArray anyRng() As Variant) As Variant
Dim dMin As Double
Dim V As Variant
Dim i As Long, j As Long, k As Long
MinNotZero = CVErr(xlErrNA)
For i = LBound(anyRng) To UBound(anyRng)
V = anyRng(i)
If IsArray(V) Then
For j = 1 To UBound(V, 1)
For k = 1 To UBound(V, 2)
If IsNumeric(V(j, k)) Then
If dMin = 0 Then
dMin = V(j, k)
ElseIf V(j, k) < dMin And V(j, k) <> 0 Then
dMin = V(j, k)
End If
End If
Next k
Next j
ElseIf IsNumeric(V) Then
If dMin = 0 Then
dMin = V
ElseIf V < dMin And V <> 0 Then
dMin = V
End If
End If
Next i
If dMin Then
MinNotZero = dMin
End If
End Function
'<<=============
Questa UDF potrebbe essere utilizzata come (per la domanda originale):
=MinNotZero(T489;AC489;AG489;AY489)*2
oppure, ad esempio, come
=MinNotZero(A1:D1;A3;A5;A7;A9:B12;A14:D18;F1;J10)
o
=MinNotZero(PI.GRECO();A1;A3;D5:F5;SOMMA(A5:A6);2,5)
Per rendere questa funzione disponibile:
Alt-F11 per aprire l'editor di VBA
Inserisci | Modulo
Incolla il codice qui sopra nel nuovo modulo di codice.
===
Regards
Norman
paoloard
Dec 29, 2013, 9:54:41 AM12/29/13
to
"Norman Jones" ha scritto nel messaggio
La tua formula, non la UDF, � analoga a quella di Andrea e funziona senza
necessit� di creare, come ho fatto io, una colonna d'appoggio con quattro
celle continue, metodo auspicabile in caso di un maggior numero di celle.
In quest'ultima ipotesi, sarebbe stato interessante creare prima una matrice
di valori alla quale applicare poi una formula tipo PICCOLO, per il
controllo degli zeri, come quella da me usata.
Questa matrice per� io non sono riuscito a crearla a causa delle mie
limitate conoscenze.
Pensi che ci si possa riuscire?
lucky...@gmail.com
Dec 29, 2013, 4:39:30 PM12/29/13
to
la soluzione che segue puo' essere di aiuto?
=SE(MIN(A1;C1;E1;G1)=0;PICCOLO((A1;C1;E1;G1);2);MIN(A1;C1;E1;G1))*2
formula valida per valori positivi, testata su celle riferimenti diversi.
Buone feste in corso a tutti.
Lucky
=SE(MIN(A1;C1;E1;G1)=0;PICCOLO((A1;C1;E1;G1);2);MIN(A1;C1;E1;G1))*2
formula valida per valori positivi, testata su celle riferimenti diversi.
Buone feste in corso a tutti.
Lucky
r
Dec 29, 2013, 5:24:05 PM12/29/13
to
Il giorno domenica 29 dicembre 2013 15:54:41 UTC+1, paoloard ha scritto:
> Questa matrice per� io non sono riuscito a crearla a causa delle mie
Due considerazioni:
la prima è che la funzione min lavora bene quindi perchè far fare alla udf anche il suo lavoro? Per me Norman come Bruno avrebbero dovuto lasciare fuori il calcolo del minimo (come hanno lasciato fuori il *2) e fare in modo che la funzione restituisse semplicemente una matrice (che poi è il punto vero che non riusciamo a realizzare senza un supporto)
la seconda è una soluzione con formule che rende però agevole l'aggiornamento in caso gli intervalli mutino in numero ma che siano comunque intervalli di singole celle o singole righe o singole colonne ...
Immaginiamo per comodità che le celle siano:
A1
A3
A5
A9
definiamo rng così:
rng=(A1;A3;A5;A9)
Per selezionare le celle è possibile dopo aver digitato l'uguale e la parentesi tenere premuto Ctrl e selezionare le celle con il mouse i punti e virgola saranno aggiunti in automatico.
Se in futuro altre celle dovessero aggiungersi basterà aggiornare il nome.
ora in C3:
=INDICE(rng;;;RIF.RIGA(A1))
trascinando in basso
La formula per calcolare il minimo (che poi è la tua) diventa:
=PICCOLO(SCARTO($C$1;;;AREE(rng));1+CONTA.SE(C1:C100;0))
saluti
r
> Questa matrice per� io non sono riuscito a crearla a causa delle mie
>
> limitate conoscenze.
>
> Pensi che ci si possa riuscire?
no una matrice partendo da un intervallo di più aree non è concessa ... come te io preferisco soluzioni che evitano (quando possibile) l'uso di vba. In casi simili a questo però e se la prospettiva è quella di avere più aree da esaminare e che queste aree possano cambiare in numero e forma penso che una udf sia la strada da seguire.
> limitate conoscenze.
>
> Pensi che ci si possa riuscire?
Due considerazioni:
la prima è che la funzione min lavora bene quindi perchè far fare alla udf anche il suo lavoro? Per me Norman come Bruno avrebbero dovuto lasciare fuori il calcolo del minimo (come hanno lasciato fuori il *2) e fare in modo che la funzione restituisse semplicemente una matrice (che poi è il punto vero che non riusciamo a realizzare senza un supporto)
la seconda è una soluzione con formule che rende però agevole l'aggiornamento in caso gli intervalli mutino in numero ma che siano comunque intervalli di singole celle o singole righe o singole colonne ...
Immaginiamo per comodità che le celle siano:
A1
A3
A5
A9
definiamo rng così:
rng=(A1;A3;A5;A9)
Per selezionare le celle è possibile dopo aver digitato l'uguale e la parentesi tenere premuto Ctrl e selezionare le celle con il mouse i punti e virgola saranno aggiunti in automatico.
Se in futuro altre celle dovessero aggiungersi basterà aggiornare il nome.
ora in C3:
=INDICE(rng;;;RIF.RIGA(A1))
trascinando in basso
La formula per calcolare il minimo (che poi è la tua) diventa:
=PICCOLO(SCARTO($C$1;;;AREE(rng));1+CONTA.SE(C1:C100;0))
saluti
r
Norman Jones
Dec 29, 2013, 9:27:10 PM12/29/13
to
On 29/12/2013 22:24, r wrote:
[cut]
Forse intendevi: "ora in C1" anzich� C3? In caso contrario, penso che si
possa aspettare risultati imprevisti :>)
===
Regards,
Norman
[cut]
> ora in C3:
> =INDICE(rng;;;RIF.RIGA(A1))
> trascinando in basso
Ciao Roberto,
> =INDICE(rng;;;RIF.RIGA(A1))
> trascinando in basso
Forse intendevi: "ora in C1" anzich� C3? In caso contrario, penso che si
possa aspettare risultati imprevisti :>)
===
Regards,
Norman
r
Dec 30, 2013, 4:33:54 AM12/30/13
to
Il giorno lunedì 30 dicembre 2013 03:27:10 UTC+1, Norman Jones ha scritto:
> On 29/12/2013 22:24, r wrote: [cut] > ora in C3: > =INDICE(rng;;;RIF.RIGA(A1)) > trascinando in basso Ciao Roberto, Forse intendevi: "ora in C1" anzich� C3? In caso contrario, penso che si possa aspettare risultati imprevisti :>) === Regards, Norman
si si ... è C1 of course!
Grazie Norman!
saluti
r
> On 29/12/2013 22:24, r wrote: [cut] > ora in C3: > =INDICE(rng;;;RIF.RIGA(A1)) > trascinando in basso Ciao Roberto, Forse intendevi: "ora in C1" anzich� C3? In caso contrario, penso che si possa aspettare risultati imprevisti :>) === Regards, Norman
si si ... è C1 of course!
Grazie Norman!
saluti
r
r
Dec 30, 2013, 5:36:58 AM12/30/13
to
Il giorno domenica 29 dicembre 2013 23:24:05 UTC+1, r ha scritto:
> la seconda è una soluzione con formule che rende però agevole l'aggiornamento
> in caso gli intervalli mutino in numero ma che siano comunque intervalli di
> singole celle o singole righe o singole colonne ... Pensandoci possiamo usare
> la seconda è una soluzione con formule che rende però agevole l'aggiornamento
> in caso gli intervalli mutino in numero ma che siano comunque intervalli di
una soluzione più generica che consente di trasporre un numero variabile di intervalli che abbiano qualsiasi forma. Ho quindi ad esempio definito rng così:
=(Foglio1!$A$1;Foglio1!$A$3:$B$4;Foglio1!$A$6:$A$7;Foglio1!$A$9:$D$9;Foglio1!$A$11:$B$14)
In questo caso vorrei usare un foglio di supporto dedicato e una formula che restituisce una matrice di risultati ... la formula va scritta in A1 poi selezionato un intervallo sufficientemente grande (io nel file di esempio ho usato un intervallo di 30 righe x 100 colonne) va confermata con ctrl+maiusc+invio:
=INDICE(rng;INT((RIF.COLONNA()-1)/COLONNE(INDICE(rng;;;RIF.RIGA())))+1;RESTO(RIF.COLONNA()-1;COLONNE(INDICE(rng;;;RIF.RIGA())))+1;RIF.RIGA())
restituisce valori di errore rif che possono essere gestiti successivamente oppure per che dispone della funzione se.errore direttamente nel supporto (nel file non ho usato se.errore così che potessero tutti provare la soluzione) ho poi definito il nome my_supprt_range così:
=SE(VAL.ERRORE($A$1:$CV$30);0;$A$1:$CV$30)
e la formula per il minimo è diventata:
=PICCOLO(my_support_rng;MATR.SOMMA.PRODOTTO(1*(my_support_rng=0))+1)
qui il file di esempio che ho usato:
http://goo.gl/Ib4yFw
ovviamente il foglio supporto può essere nascosto
saluti
r
Bruno Campanini
Dec 30, 2013, 5:43:55 AM12/30/13
to
paoloard was thinking very hard :
> Ciao Paolo,
>
> Come penitenza per il mio errore atroce, posso offrire una versione piￜ
paoloard sulla via di Damasco... complimenti!
Bruno
> Ciao Paolo,
>
> Come penitenza per il mio errore atroce, posso offrire una versione piￜ
> generica della UDF fornita da Bruno? Prendendo spinta da Bruno, questa
> versione della funzione accetta qualunque combinazione di celle o
> intervalli continui e discontinui, e accetta anche valori e altre
> funzioni, anzichￜ quattro celle.:
> versione della funzione accetta qualunque combinazione di celle o
> intervalli continui e discontinui, e accetta anche valori e altre
>
> '=============>>
> Public Function MinNotZero(ParamArray anyRng() As Variant) As Variant
[...]
> '=============>>
> Public Function MinNotZero(ParamArray anyRng() As Variant) As Variant
paoloard sulla via di Damasco... complimenti!
Bruno
r
Dec 30, 2013, 6:01:29 AM12/30/13
to
Il giorno domenica 29 dicembre 2013 15:54:41 UTC+1, paoloard ha scritto:
> "Norman Jones" ha scritto nel messaggio news:l9p4r5$j7k$1...@speranza.aioe.org... On 29/12/2013 07:39, Norman Jones wrote: > > Ciao Paolo, > > Chiedo scusa. > > Quello che mi sfuggiva era il diverso uso dei segni di punteggiatura in > formule italiane / inglesi. Invece di quattro celle discrete, la mia > formula si riferiva, erroneamente, a due intervalli estesi! > > Dato che si tratta di 4 celle, la formula diventerebbe: > > =MIN(SE(T489>0;T489);SE(AC489>0;AC489;SE(AG489>0;AG489;SE(AY489>0;AY489)))) > > Tuttavia, sarebbe molto pi� veloce scrivere l'UDF di Bruno! Ciao Paolo, Come penitenza per il mio errore atroce, posso offrire una versione pi� generica della UDF fornita da Bruno? Prendendo spinta da Bruno, questa versione della funzione accetta qualunque combinazione di celle o intervalli continui e discontinui, e accetta anche valori e altre funzioni, anzich� quattro celle.: '=============>> Public Function MinNotZero(ParamArray anyRng() As Variant) As Variant Dim dMin As Double Dim V As Variant Dim i As Long, j As Long, k As Long MinNotZero = CVErr(xlErrNA) For i = LBound(anyRng) To UBound(anyRng) V = anyRng(i) If IsArray(V) Then For j = 1 To UBound(V, 1) For k = 1 To UBound(V, 2) If IsNumeric(V(j, k)) Then If dMin = 0 Then dMin = V(j, k) ElseIf V(j, k) < dMin And V(j, k) <> 0 Then dMin = V(j, k) End If End If Next k Next j ElseIf IsNumeric(V) Then If dMin = 0 Then dMin = V ElseIf V < dMin And V <> 0 Then dMin = V End If End If Next i If dMin Then MinNotZero = dMin End If End Function '<<============= Questa UDF potrebbe essere utilizzata come (per la domanda originale): =MinNotZero(T489;AC489;AG489;AY489)*2 oppure, ad esempio, come =MinNotZero(A1:D1;A3;A5;A7;A9:B12;A14:D18;F1;J10) o =MinNotZero(PI.GRECO();A1;A3;D5:F5;SOMMA(A5:A6);2,5) Per rendere questa funzione disponibile: Alt-F11 per aprire l'editor di VBA Inserisci | Modulo Incolla il codice qui sopra nel nuovo modulo di codice. === Regards Norman Ciao Norman, come sai io sono alieno da VB quindi devo ricorrere a formule. La tua formula, non la UDF, � analoga a quella di Andrea e funziona senza necessit� di creare, come ho fatto io, una colonna d'appoggio con quattro celle continue, metodo auspicabile in caso di un maggior numero di celle. In quest'ultima ipotesi, sarebbe stato interessante creare prima una matrice di valori alla quale applicare poi una formula tipo PICCOLO, per il controllo degli zeri, come quella da me usata. Questa matrice per� io non sono riuscito a crearla a causa delle mie limitate conoscenze. Pensi che ci si possa riuscire? -- Ciao paoloard http://www.riolab.org/
Ciao Paolo, ripensandoci ... o meglio continuando a ripensarci :-)
una soluzione dinamica se gli intervalli sono costituiti da singole celle ci sarebbe ... si definisce ancora per comodità rng per esempio così:
rng=(A1;A3;A5;A9)
la formula senza supporto è:
=PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));"");1)
da confermare con ctrl+maiusc+invio
saluti
r
r
Dec 30, 2013, 8:07:21 AM12/30/13
to
Il giorno lunedì 30 dicembre 2013 12:01:29 UTC+1, r ha scritto:
una soluzione dinamica se gli intervalli sono costituiti da singole celle ci sarebbe ... si definisce ancora per comodità rng per esempio così: rng=(A1;A3;A5;A9) la formula senza supporto è: =PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));"");1) da confermare con ctrl+maiusc+invio saluti r
ok ... mi correggo ancora, questa funziona qualunque siano i range e senza supporto!
una soluzione dinamica se gli intervalli sono costituiti da singole celle ci sarebbe ... si definisce ancora per comodità rng per esempio così: rng=(A1;A3;A5;A9) la formula senza supporto è: =PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));"");1) da confermare con ctrl+maiusc+invio saluti r
=PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));"");1)
paoloard
Dec 30, 2013, 9:38:27 AM12/30/13
to
"Bruno Campanini" ha scritto nel messaggio
news:52c14e6d$0$23119$4faf...@reader2.news.tin.it...
paoloard
paoloard
Dec 30, 2013, 11:28:16 AM12/30/13
to
"r" ha scritto nel messaggio
news:a9837ac2-f4de-44a8...@googlegroups.com...
Il giorno luned� 30 dicembre 2013 12:01:29 UTC+1, r ha scritto:
una soluzione dinamica se gli intervalli sono costituiti da singole celle ci
rng=(A1;A3;A5;A9) la formula senza supporto �:
=PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;AREE(rng))));"");1)
da confermare con ctrl+maiusc+invio saluti r
ok ... mi correggo ancora, questa funziona qualunque siano i range e senza
supporto!
=PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));"");1)
da confermare con ctrl+maiusc+invio
saluti
r
Grande Roby!
da confermare con ctrl+maiusc+invio saluti r
ok ... mi correggo ancora, questa funziona qualunque siano i range e senza
supporto!
=PICCOLO(SE(PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));PICCOLO(rng;RIF.RIGA(SCARTO(A1;;;CONTA.VALORI(rng))));"");1)
da confermare con ctrl+maiusc+invio
saluti
r
Peccato quel doppio calcolo di PICCOLO nidificato per testare se qualche
valore � zero.
Chiss� se c'� un altro modo.
A parte questo, non capisco come quel PICCOLO all'interno di SE riesce a
creare la matrice dei valori, anche perch� PICCOLO dovrebbe restituire un
valore solo. Avrei visto meglio INDICE, ma questo non funziona.
Inoltre mi chiedo perch� con F9 su rng all'interno della formula mi d�
#VALORE! quando invece dovrebbe mostrarmi la matrice di valori. Infatti,
CONTA.VALORI lo vede correttamente in quanto lo calcola.
Boh! Misteri.
Comunque complimenti!
r
Dec 30, 2013, 12:00:31 PM12/30/13
to
Il giorno lunedì 30 dicembre 2013 17:28:16 UTC+1, paoloard ha scritto:
> Grande Roby!
>
> Peccato quel doppio calcolo di PICCOLO nidificato per testare se qualche
>
> valore � zero.
> Grande Roby!
>
> Peccato quel doppio calcolo di PICCOLO nidificato per testare se qualche
>
>
> Chiss� se c'� un altro modo.
>
> A parte questo, non capisco come quel PICCOLO all'interno di SE riesce a
>
> creare la matrice dei valori, anche perch� PICCOLO dovrebbe restituire un
> A parte questo, non capisco come quel PICCOLO all'interno di SE riesce a
>
>
> valore solo. Avrei visto meglio INDICE, ma questo non funziona.
la funzione PICCOLO restituisce una matrice egualmente dimensionata al suo secondo argomento k
> valore solo. Avrei visto meglio INDICE, ma questo non funziona.
>
> Inoltre mi chiedo perch� con F9 su rng all'interno della formula mi d�
>
> #VALORE! quando invece dovrebbe mostrarmi la matrice di valori. Infatti,
>
> CONTA.VALORI lo vede correttamente in quanto lo calcola.
un range multicella non può essere valutato con f9 perchè non è rappresentabile da una matrice ... rng non restituisce una matrice ma l'unione di più range
> #VALORE! quando invece dovrebbe mostrarmi la matrice di valori. Infatti,
>
> CONTA.VALORI lo vede correttamente in quanto lo calcola.
>
> Boh! Misteri.
>
> Comunque complimenti!
complimenti di che? ci ho messo 5 post per arrivare alla soluzione!!!
:-)
r
paoloard
Dec 30, 2013, 12:21:29 PM12/30/13
to
"r" ha scritto nel messaggio
news:ba516f88-3400-4adc...@googlegroups.com...
cut
> Comunque complimenti!
complimenti di che? ci ho messo 5 post per arrivare alla soluzione!!!
:-)
r
Se � per quello io ce ne avrei messi (mamma mia che brutto italiano) anche
complimenti di che? ci ho messo 5 post per arrivare alla soluzione!!!
:-)
r
di pi� senza trovare una soluzione :-(
paoloard
0 new messages