Conas líon na gcealla a bhfuil hipearnasc acu a chomhaireamh in Excel?
An ndearna tú iarracht riamh líon na gcealla ina bhfuil hipearnasc a chomhaireamh i raon áirithe in Excel? Soláthraíonn an teagasc seo modh céim ar chéim chun a léiriú conas é a bhaint amach.
Comhair líon na gceall le hipearnasc le cód VBA
Comhair líon na gceall le hipearnasc le cód VBA
Is féidir an cód VBA seo a leanas a úsáid chun cé mhéad cealla ina bhfuil hipearnasc i raon áirithe a chomhaireamh. Déan mar seo a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
Leideanna: Is féidir leat cliceáil freisin Forbróir > Visual Basic chun an fhuinneog seo a oscailt.
2. Sa Visual Basic fuinneog, cliceáil Ionsáigh > Modúl, ansin greamaigh an cód VBA seo a leanas isteach i bhfuinneog an Mhodúil (cód).
Cód VBA: Déan líon na gcealla a bhfuil hipearnasc acu i raon áirithe a chomhaireamh
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub
3. Brúigh an F5 eochair chun an cód a rith. Sa popped amach Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon inar mian leat líon na gcealla hipearnasc a chomhaireamh, agus ansin cliceáil OK. Féach an pictiúr:
4. Ansin tagann bosca dialóige chun a insint duit cé mhéad cealla sa raon roghnaithe ina bhfuil hipearnasc. Cliceáil OK an bosca dialóg a dhúnadh.
Ansin roghnaítear gach cealla ina bhfuil hipearnasc ag an am céanna.
nótaí: Is féidir na cineálacha hipearnasc seo a leanas a chomhaireamh leis an gcód VBA thuas:
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á!