Tarvitsen kaavan, joka muokka Etunimi Sukunimi tiedosta henkilön sähköpostiosoitteen (postiosoite on aina sama).
=VAIHDA(A1;" ";".")&"@hotmail.com" -kaava toimii muuten hyvin (Matti Mäki --> Matti.Mä[email protected]), mutta miten siihen saa liitettyä ehdon että "ä" muuttuu "a":ksi ja "ö" "o":ksi? Miten siis ketjutetaan noita VAIHDA funktioita? Vai onko joku muu funktio parempi.
=VAIHDA(A1;" ";".")&"@hotmail.com" -kaava toimii muuten hyvin (Matti Mäki --> Matti.Mä[email protected]), mutta miten siihen saa liitettyä ehdon että "ä" muuttuu "a":ksi ja "ö" "o":ksi? Miten siis ketjutetaan noita VAIHDA funktioita? Vai onko joku muu funktio parempi.
Vastaukset 3
Vanhimmat
moduuliin koodi ja soluun mihinkä haluat osoitteen
esim. solussa A1 teksti Matti Mäki ja C1:ssä funnktio =SähköpostiOsoite(A1) ja tuloksena
[email protected]
Public Function SähköpostiOsoite(Solu As Range) As String
For i = 1 To Trim(Len(Solu))
Select Case Mid(Solu, i, 1)
Case Is = " "
SähköpostiOsoite = SähköpostiOsoite & "."
Case "ä", "Ä"
SähköpostiOsoite = SähköpostiOsoite & "a"
Case "ö", "Ö"
SähköpostiOsoite = SähköpostiOsoite & "o"
Case Else
SähköpostiOsoite = SähköpostiOsoite & Mid(Solu, i, 1)
End Select
Next
SähköpostiOsoite = LCase(SähköpostiOsoite & "@hotmail.com")
End Function
Kiitos ja kumarrus.
tälläkin kaavahirviöllä:
=vaihda(vaihda(vaihda(A1;"";".")&"@hotmail.com";"ä";"a");"ö";"o")