Conas seoltaí ríomhphoist iolracha a thiontú go hipearnasc in Excel?
Má tá liosta de sheoltaí ríomhphoist gnáth-théacs agat i mbileog oibre, agus anois, ba mhaith leat seoltaí ríomhphoist tráchtais a thiontú go hipearnasc gur féidir leat ríomhphoist a sheoladh agus na seoltaí á gcliceáil. Ar ndóigh, is féidir leat iad a thiontú go seoltaí ríomhphoist hipearnasctha, ach, beidh an modh seo leadránach má tá seoltaí iolracha ag teastáil chun iad a thiontú. San alt seo, labhróidh mé faoi roinnt cleasanna maithe chun déileáil leis an tasc seo.
Tiontaigh seoltaí ríomhphoist iolracha go hipearnasc le Foirmle
Tiontaigh seoltaí ríomhphoist iolracha go hipearnasc le cód VBA
Tiontaigh seoltaí ríomhphoist iolracha go hipearnasc le Foirmle
Leis an Hyperlink feidhm, is féidir leat seoltaí ríomhphoist an cholúin a thiontú go seoltaí hipearnasctha go tapa ag an am céanna.
1. Iontráil an fhoirmle seo = hipearnasc ("mailto:" & A2) isteach i gcill bhán inar mian leat an toradh a chur, féach an pictiúr:
2. Ansin tarraing an láimhseáil líonta síos go dtí na cealla ar mhaith leat an fhoirmle seo a bheith iontu, agus tá na seoltaí ríomhphoist go léir ina hipearnasc inchliceáilte mar a thaispeántar an scáileán a leanas:
Tiontaigh seoltaí ríomhphoist iolracha go hipearnasc le cód VBA
Mar a fheiceann tú, tríd an bhfoirmle thuas a úsáid, cuirfear sreang “mailto:” os comhair gach seoltaí ríomhphoist, mura dteastaíonn an mailto uait: laistigh de na seoltaí, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit.
1. Coinnigh síos an Alt + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.
Cód VBA: Tiontaigh seoltaí ríomhphoist iolracha go hipearnasc
Sub EmailHylink()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Tar éis duit an cód a ghreamú, brúigh le do thoil F5 eochair don chód seo, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK, athraíodh na seoltaí ríomhphoist roghnaithe go léir chuig na seoltaí hipearnasctha, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!