[Excel] Funzione Cerca/Trova/Confornta

[sax]

Dovrei verificare se in una cella si trovi un numero, se lo trova mi deve restituire 1 o 2 o 3 o 4 o 5 o 6 o 7 se non lo trova mi deve restituire 0
normalmente si può trovare una sequenza come di seguito
nella colonna BA
" -010 - "
" - 010 - 010 - 020 "
i codici possono essere 010 020 030 040 050 060 070 etc per ora sono solo questi
il risultato si deve inserire nella colonna BC
Grazie per l'aiuto

[Anthony47]

Cia sax, ecco il solito interrogatorio:

Dovrei verificare se in una cella si trovi un numero

Un numero qualsiasi o un numero specifico?

se lo trova mi deve restituire 1 o 2 o 3 o 4 o 5 o 6 o 7 se non lo trova mi deve restituire 0

1 o 2 o 3 etc in funzione di che cosa? Della posizione del numero cercato nella stringa contenuto nella cella o … ?

normalmente si può trovare una sequenza come di seguito
nella colonna BA
" -010 - "
" - 010 - 010 - 020 "
i codici possono essere 010 020 030 040 050 060 070 etc per ora sono solo questi

Intendi dire che 010 oppure 020 etc sono i “numeri” da cercare nella stringa? Se SI, nel primo esempio che hai fatto sopra, cercando 010 penso che come risultato vorresti avere 1, giusto? E invece nel secondo esempio, cosa vorresti, 1 o 2?

Comunque la risposta e’ “Si puo’ fare”, ovviamente…

Ciao.

[sax]

Ti invio in allegato file relativo al mio problema
come puoi vedere nella colonna "BA" vi sono i codici che vengono importati da un altro programma, in "BC" vorrei inserire una funzione che mi differenzi i codici in quanto possono trovarsi più codici nella stessa cella, secondo il criterio "010 = 1" "020 = 2" ecc
e se trova " 010 - 020 - 030 -" deve restituire in numero più alto in questo caso "3 "
nella colonna "BF" li raggruppo con la funzione "conta.se".
spero di essere stato chiaro stavolta
Grazie ancora
http://freefilehosting.net/?id=rdj1k6ja8Q==

[Anthony47]

Io suggerisco di fare cosi':
1)incolla il seguente codice su un Modulo del vba

Codice: Seleziona tutto

Function MaxCrt(StrInp As String) As Integer
StrL = Len(StrInp)
If StrL = 0 Then GoTo Esci
For I = 1 To StrL
VCrt = Val(Mid(StrInp, I, 1))
If VCrt > MaxCrt Then MaxCrt = VCrt
Next I
Esci:
End Function

2) Poi in BC7 e scrivi:

Codice: Seleziona tutto

=maxcrt(BA7)

3) Copi questa formula nelle celle sottostanti.

Funziona?

Ciao,