
Option Explicit
Function choose_between(valore As Integer) As Variant
'se valore è:
'da 0 a 49 restituisce "BASSA"
'da 50 a 99 restituisce "MEDIA"
'da 100 a 149 restituisce "ALTA"
If valore < 0 Then
choose_between = Null
Else
choose_between = Choose((Split(Partition(valore, 0, 150, 50), ":")(0) 50) + 1, "BASSA", "MEDIA", "ALTA")
End If
End Function |
Range1 Range2 Value
0 49 basso
50 99 medio
100 149 alto
=INDICE(D3:D5;MATR.SOMMA.PRODOTTO(--($D$7<=C3:C5);--($D$7>=B3:B5);RIF.RIGA(A1:A3)))
=CERCA.VERT($D$7;B3:D5;3;VERO)
Function choose_between(valore As Integer) As Variant
Select Case valore
Case 0 To 50
choose_between = "BASSA"
Case 50 To 100
choose_between = "MEDIA"
Case 100 To 150
choose_between = "ALTA"
Case Else
choose_between = ""
End Select
End Function
|
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
Function scegli_tra(valore As Long) As String
Dim aRet() As Variant
aRet = Array("BASSA", "BASSA", "MEDIA", "ALTA")
scegli_tra = aRet(-(valore >= 0) - (valore >= 50) - (valore >= 100))
End Function |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
