Stringa estrai VBA

Question

Stringa estrai VBA

Anonimo

Buongiorno a tutti e grazie in anticipo.

ho la necessità di utilizzare la funzione stringa estrai però in VBA.

come faccio ad utilizzarla, esempio

cella A1 c'e la scritta "Numero ordine BT0123456789", nella cella B1 devo estrarre solo il numero d'ordine "BT0123456789)

Grazie per l'aiuto

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

3 risposte aggiuntive

Answer 1

Prova:

Option Explicit 

Function EstraiCodice(ByVal ordine As String) 

Dim arrO 

    arrO = Split(ordine, " ") 

    EstraiCodice = arrO(UBound(arrO)) 

End Function 

Sub Codice() 

Dim strCodice As String 

    strCodice = EstraiCodice(Range("A1").Value) 

End Sub

la prima è la funzione che estrae l'ultima parola, la routine è un esempio di utilizzo. Considera che la funzione puoi usarla anche sul foglio:

=EstraiCodice(A1)

Ciao.

Answer 2

ciao Eleuterio

cavolini di bruxelles

se deve inserire una formula tanto vale usare

=FILTRO.XML("<d><a>"&SOSTITUISCI($A1;" ";"</a><a>")&"</a></d>";"//a[last()]")

e si risparmia la fatica di scrivere una funzione😉

mi dimenticavo se vuoi l'ultima parola nella stessa cella

Option Explicit 

Sub ultimaparola() 

    On Error Resume Next 

        Dim rng As Range, cell As Range, location As Long, stringLength As Long 

            Set rng = Range("A1:A100") 

                 For Each cell In rng 

                   location = InStrRev(cell, " ") 

                    stringLength = Len(cell) 

    cell = Right(cell, stringLength - location) 

    Next cell 

        ActiveCell.Select 

End Sub

Answer 3

ciao

una curiosità

la necessità di utilizzare la funzione stringa estrai però in VBA.

mi spieghi perchè usi una funzione che necessità di formula se vuoi il VBA?

a quel punto cosa la usi a fare la funzione usa una formula

=FILTRO.XML("<d><a>"&SOSTITUISCI($A1;" ";"</a><a>")&"</a></d>";"//a[last()]")

fa la stessa cosa senza scomodare il vba

oppure ho capito male la domanda.

Answer 4

ciao

ma il codice da estrarre è sempre l'ultima parola?

se si

Option Explicit 

Sub ultimaparola() 

    On Error Resume Next 

        Dim rng As Range, cell As Range, location As Long, stringLength As Long 

            Set rng = Range("A1:A100") 

                 For Each cell In rng 

                   location = InStrRev(cell, " ") 

                    stringLength = Len(cell) 

    cell.Offset(0, 1) = Right(cell, stringLength - location) 

    Next cell 

        ActiveCell.Select 

End Sub

Condividi tramite

Stringa estrai VBA

3 risposte aggiuntive