contenuto cella alfanumerico

Ciao Claudio,

Potresti utilizzare una UDF (User Defined Function):

• Alt-F11 per aprire l'editor di VBA
• Alt-IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Function DigitsOnly(sStr As String) As Variant

    Dim oRegExp As Object

    Set oRegExp = CreateObject("VBScript.RegExp")

    With oRegExp

        .IgnoreCase = True

        .Global = True

        oRegExp.Pattern = "\D"

        DigitsOnly = .Replace(sStr, vbNullString)

        If IsNumeric(DigitsOnly) Then _

                            DigitsOnly = CLng(DigitsOnly)

    End With

End Function

'<<=========

• Alt-Q per chiudere l'editor di VBA e tornare a Excel.

Ora potresti usare la UDF come una funzione 'normale'; ad esempio, nel caso indicato da te, immetti la formula

                       =1+DigitsOnly(A1)

A proposito, questa funzione estrae tutte le cifre numeriche da una stringa, indipendentemente dalla loro posizione nella stringa, Così, se la cella di interesse contenesse la stringa aa2xyz3pqrst56789zzz , la funzione restituirebbe il valore numerico 2356789

===

Regards,

Norman

Ciao Claudio,

suppongo si tratti di indirizzi di celle, giusto? In questo caso potresti usare la formula:

=CELLA("address";SCARTO(INDIRETTO(A1);5;0))

-oppure- se il carattere dollaro proprio non servisse:

=SOSTITUISCI(CELLA("address";SCARTO(INDIRETTO(A1);5;0));"$";"")