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:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!