Analizzare una cella e capire il contenuto

Question

Ciao a tutti,

ho scritto un codice in vba che fa una serie di controlli, ma ora mi sono bloccato, dovrei controllare n celle composte da una parte testo e una parte numerica es :A1 = CICCIO123

la mia necessità è quella di capire, tramite vba, se i primi 5 caratteri sono testo e gli ultimi 3 valori sono numeri.

come posso fare ?

Grazie a tutti in anticipo

Vito

Answer 1

Per i tre valori numerici non è un problema:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        MsgBox IsNumeric(Right(.Range("A1").Value, 3))

    End With

    Set sh = Nothing

End Sub

Per i caratteri alfanumerici puoi ad esempio utilizzare una Regular Expression

Public Function fRegExpTest(mPattern, sTesto)

    Dim regEx As Object

    Set regEx = New RegExp

        regEx.Pattern = mPattern

        regEx.IgnoreCase = True

        fRegExpTest = regEx.Test(sTesto)

    Set regEx = Nothing

End Function

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        MsgBox fRegExpTest("^[a-zA-Z]+$", Left(.Range("A1").Value, 5))

    End With

    Set sh = Nothing

End Sub

Devi per la Regular Expression referenziare questa libreria:

Microsoft VBScript Regular Expressions 5.5

Answer 2

Ciao Marco,

grazi per il supporto, provo quanto prima ad adattare il codice alla mia esigenza e ti faccio sapere.

grazie 

vito