Premere " Alt " e " F11 " contemporaneamente . . Selezionare "Modulo" sotto il menu "Inserisci" per aprire una finestra di dialogo
2
Incollare il codice seguente nella finestra :
Funzione GetAddress ( HyperlinkCell come gamma ) per
GetAddress = Sostituire _
( HyperlinkCell.Hyperlinks ( 1 ) Address , "mailto : " . , " " ) per
End Function
3
Premere il tasto " Alt " e "Q" allo stesso tempo per salvare la funzione .
4
Fare clic su qualsiasi cella in cui si desidera estrarre un collegamento ipertestuale .
5
Digitare il codice che segue , sostituendo " XX" con la cella occupata da un collegamento ipertestuale :
= GetAddress (XX ) per
software © www.354353.com