Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Estrarre mail da cella excel
- Hai un problema con Excel?
Estrarre mail da cella excel
di Nokia9999 (utente non iscritto) data: 20/02/2009
Ciao,
in una colonna (a) di un foglio excel ho in ogni riga una stringa di testo del tipo:
francesco rossi 31/12/99 via roma francescorossi@mailmia.it 050/711234
esiste una formula per estrarre il solo indirizzo mail di ciascuna riga?
di Big ronnie (utente non iscritto) data: 21/02/2009
Ciao nokia9999,
vedi se ti và bene questa.
ciao big
Function Mail(target) Ricerca = Split(target) Mail = Ricerca(5) End Function
di Ricky53 data: 21/02/2009
Ciao a tutti,
ben tornato big.
interessante la tua proposta.
vado di corsa e non l'ho analizzata con attenzione.
funziona ma in alcuni casi ottengo dei risultati strani.
eccone uno
roma via po, 27 aruri3u@arturo.it apoiu
roma via po, 27 aruri3u@arturo.it apoiu
il primo è o.k.
il secondo mi restituisce "apoiu"
la differenza tra i due è uno spazio dopo il civico.
sai spiegare il motivo?
ciao da ricky53
di Big ronnie (utente non iscritto) data: 22/02/2009
Ciao ricky, grazie per il ben tornato.purtroppo per impegni di lavoro non ho potuto frequentare il forum.
ora, la funzione split serve per creare delle sottostringhe e usa dei delimitatori, e se nessuno di questi viene specificato, usa per default lo spazio.sicuramente nel tuo caso il num. civico era attaccato all'indirizzo e-mail cioè non c'era lo spazio.un'altro problema potrebbe crearsi se ci sono più spazi divisori,quindi credo sarebbe meglio filtrare la cella contenente la stringa con una funzione che riduce gli spazi in eccesso.
ciao big
di Ricky53 data: 22/02/2009
Ciao big,
noto che nelle due righe che ho scritto sono stati tolti, dall'editor del forum, gli spazi in più, infatti nelle saconda riga c'erano degli spazi in più prima dell'indirizzo e-mail.
giusto, basta eliminare gli spazi in eccesso e poi utilizzare la funzione che hai suggerito tu.
grazie ed alla prossima.
ciao da ricky53
di Big ronnie (utente non iscritto) data: 22/02/2009
Ricky quarda anche questa soluzione,mi pare ottima per entrambi gli esempi fatti prima.eventualmente per mancanza di spazio l'indirizzo e-mail sarà attaccato alla stringa precedente o successiva.
ciao big
Function Mail(target) Ricerca = Split(target) For I = LBound(Ricerca) To UBound(Ricerca) If InStr(1, Ricerca(I), "@") > 0 Then Mail = Ricerca(I) Next I End Function
di Ricky53 data: 22/02/2009
Ciao big,
ottimo!!!
adesso, in qualunque modo sia scritta la stringa che contiene l'indirizzo e-mail, l'estrazione viene effettuata correttamente.
grazie.
ciao da ricky53
- Vuoi Approfondire?
