Note: The other languages of the website are Google-translated. Back to English

Sut i gyfrif nifer y celloedd â hypergysylltiadau yn Excel?

Ydych chi erioed wedi ceisio cyfrif nifer y celloedd sy'n cynnwys hypergysylltiadau mewn ystod benodol yn Excel? Mae'r tiwtorial hwn yn darparu dull cam wrth gam i ddangos sut i'w gyflawni.

Cyfrwch nifer y celloedd sydd â hyperddolen â chod VBA


Cyfrwch nifer y celloedd sydd â hyperddolen â chod VBA

Gellir defnyddio'r cod VBA canlynol i gyfrif faint o gelloedd sy'n cynnwys hypergysylltiadau mewn ystod benodol. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Awgrymiadau: Gallwch chi hefyd glicio Datblygwr > Visual Basic i agor y ffenestr hon.

2. Yn y Visual Basic ffenestr, cliciwch Mewnosod > Modiwl, yna gludwch y cod VBA canlynol i ffenestr y Modiwl (cod).

Cod VBA: Cyfrifwch nifer y celloedd sydd â hypergysylltiadau mewn ystod benodol

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. Gwasgwch y F5 allwedd i redeg y cod. Yn y popped allan Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod lle rydych chi am gyfrif nifer y celloedd hypergyswllt, ac yna cliciwch OK. Gweler y screenshot:

4. Yna mae blwch deialog yn ymddangos i ddweud wrthych faint o gelloedd yn yr ystod a ddewiswyd sy'n cynnwys hypergysylltiadau. Cliciwch OK i gau'r blwch deialog.

Yna mae pob cell sy'n cynnwys hypergysylltiadau yn cael eu dewis ar yr un pryd.

Nodyn: Gellir cyfrif y mathau canlynol o hypergysylltiadau gan y cod VBA uchod:

1) Hypergysylltiadau angor: wedi'i greu gan y swyddogaeth HYPERLINK ganlynol:
=HYPERLINK(link_location,[friendly_name])
2) Hypergysylltiadau Tudalen: dolen i dudalen arbennig;
3) Hypergysylltiadau e-bost: pwyntio at gyfeiriad e-bost.

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL