[Excel 2003] Eliminare vocali o consonanti da testo

[Dashiejeko]

Buongiorno a tutti!

vorrei sapere se è possibile eliminare determinati caratteri da una stringa di testo, nel caso specifico vocali e/o consonanti, e riportare il risultato.

Sulle formule inserite su excell non sono riuscito a trovare nulla di simile, ho provato con "Stringa.estrai" ma non fà al mio caso.

Qualcuno conosce un'altro metodo?

Es:
A1 contiene "Alessandro"
B1 contiene formula "= rimuovi.vocali(a1;"a")" risultato= lessndro

Ciao!

[darkkik]

Se non ho capito male..."trova e sostituisci" non può andare bene?

[Dashiejeko]

direi che và benissino, il fatto è che devo indirizzarlo "solo" su alcune celle e non altre...

[nicola75ss]

Salva questa funzione

Function rimuovi_vocali(str As String)
str = Replace(str, "a", "", , , vbTextCompare)
str = Replace(str, "e", "", , , vbTextCompare)
str = Replace(str, "i", "", , , vbTextCompare)
str = Replace(str, "o", "", , , vbTextCompare)
str = Replace(str, "u", "", , , vbTextCompare)
rimuovi_vocali = str
End Function

e a questo punto la richiami come una normale funzione nativa di excel.



edit. Per applicarla solo ad alcune celle registri la seguente sub

Sub rimuovi()
For Each cella In Selection.Cells
cella.Value = rimuovi_vocali(cella.Value)
Next
End Sub

selezioni le celle che ti interessano e la richiami.

[Dashiejeko]

Perfetto!

Grazie 1000!!!

[belvanew]

Originariamente inviato da nicola75ss
Salva questa funzione

Function rimuovi_vocali(str As String)
str = Replace(str, "a", "", , , vbTextCompare)
str = Replace(str, "e", "", , , vbTextCompare)
str = Replace(str, "i", "", , , vbTextCompare)
str = Replace(str, "o", "", , , vbTextCompare)
str = Replace(str, "u", "", , , vbTextCompare)
rimuovi_vocali = str
End Function

e a questo punto la richiami come una normale funzione nativa di excel.



edit. Per applicarla solo ad alcune celle registri la seguente sub

Sub rimuovi()
For Each cella In Selection.Cells
cella.Value = rimuovi_vocali(cella.Value)
Next
End Sub

selezioni le celle che ti interessano e la richiami.

Scusate se mi intrometto solo adesso ma vorrei sapere come fare per richiamare questa funzione personalizzata in excel 2007 ?

[nicola75ss]

La discussione è molto vecchia ma visto che per ora è sfuggita al lucchetto...

http://office.microsoft.com/it-it/ex...010014111.aspx