Buonasera
Se in una cella ho questo contenuto "2-8-10-13 y", dove ad ogni numero corrisponde una età. C'è la possibilità con il VBA, di trovare quanti hanno meno di 10 anni, e quanti piu di 10 anni?
Moderatori: Anthony47, Flash30005
Function GimmeEtaZ(ByRef myRan As Range, Optional ByVal Soglia As Long = 10) As Variant
Dim mySplit, I As Long, OArr(1 To 2) As Long
mySplit = Split(Replace(myRan.Cells(1, 1).Value & "-ZZ", " ", "-", , , vbTextCompare), "-", , vbTextCompare)
For I = 0 To UBound(mySplit) - 1
If IsNumeric(mySplit(I)) Then
If mySplit(I) <= Soglia Then
OArr(1) = OArr(1) + 1
Else
OArr(2) = OArr(2) + 1
End If
End If
Next I
GimmeEtaZ = OArr
End Function
=GimmeAtaZ(A2;10)
Dim LeEta As Variant
'
LeEta = GimmeEtaZ(Range("A11"), 10)
Torna a Applicazioni Office Windows
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 5 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
Visitano il forum: Nessuno e 117 ospiti