Conas gach hipearnasc in Excel a liostáil go tapa?
Nuair a úsáidimid bileog oibre, b’fhéidir go gcruthóimid go leor hipearnasc ann, agus uaireanta caithfimid a fháil amach cá nascann na téacsanna leis. Má chliceálann tú orthu ceann ar cheann, beidh sé tedious agus Tógann sé am. Más féidir linn gach hipearnasc a liostáil le téacsanna agus seoltaí hipearnasc i mbileog oibre, beidh sé éasca dúinn na hipearnasc uile in Excel a sheiceáil.
Liostaigh gach hipearnasc roghnaithe le cód VBA
Sliocht gach seoladh iarbhír ó hipearnasc le Kutools for Excel
Liostaigh gach hipearnasc roghnaithe le cód VBA
1. Roghnaigh an raon a chuireann contanis ar na hipearnasc a theastaíonn uait a liostáil.
2. Cliceáil Forbróir>Visual Basic, Nua Microsoft Visual Basic d’iarratais taispeánfar an fhuinneog, cliceáil Ionsáigh>Modúil, agus an cód seo a leanas a ionchur sa Mhodúl:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3. Ansin cliceáil cnaipe chun an cód a rith. Agus taispeánfar na hipearnasc go léir i mbileog oibre nua darb ainm Liosta hipearnasc. Féach an pictiúr:
Sliocht gach seoladh iarbhír ó hipearnasc le Kutools for Excel
Leis an Kutools le haghaidh Excel'S Tiontaigh Hipearnasc gné, is féidir leat na seoltaí réadacha a bhaint as na hipearnasc go tapa.
Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil :( Kutools Íoslódáil saor in aisce do Excel Anois )
1. Roghnaigh na hipearnasc a theastaíonn uait na fíor-chinn scríbe a bhaint.
2. Ansin cliceáil Kutools > Nasc > Tiontaigh Hipearnasc, féach ar an scáileán:
3. Sa an Tiontaigh Hipearnasc dialóg, roghnaigh Gabhann seoltaí hipearnasc ionad ábhar na gceall rogha ón Cineál a thiontú alt, agus ansin sonraigh cill inar mian leat an toradh a chur faoin Raon torthaí alt, féach an pictiúr:
4. Ansin cliceáil OK cnaipe, baineadh na seoltaí réadacha go léir ó na hipearnasc, féach an scáileán:
nótaí: Tiontaigh raon foinse: beidh na torthaí eastósctha suite ar an raon cille bunaidh má sheiceálann tú an rogha seo.
Kutools Íoslódáil saor in aisce do Excel Anois
Airteagal gaolmhara:
Conas gach hipearnasc in Excel a scriosadh go tapa?
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á!