Как да преброя броя на клетките с хипервръзки в Excel?
Опитвали ли сте някога да преброите броя на клетките, съдържащи хипервръзки в даден диапазон в Excel? Този урок предоставя метод стъпка по стъпка, за да демонстрира как да го постигнете.
Пребройте броя на клетките с хипервръзка с VBA код
Пребройте броя на клетките с хипервръзка с VBA код
Следният VBA код може да се използва за преброяване на броя клетки, съдържащи хипервръзки в даден диапазон. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
Съвети: Можете също да щракнете Софтуерен Инженер > Visual Basic за да отворите този прозорец.
2. В Visual Basic прозорец, кликнете Поставете > Модул, след това поставете следния VBA код в прозореца Module (code).
VBA код: Пребройте броя на клетките с хипервръзки в даден диапазон
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. Натисни F5 ключ за изпълнение на кода. В изскочилото Kutools за Excel в диалоговия прозорец изберете диапазона, в който искате да преброите броя на клетките за хипервръзка, и след това щракнете OK. Вижте екранна снимка:
4. След това се появява диалогов прозорец, за да ви каже колко клетки в избрания диапазон съдържат хипервръзки. Кликнете OK за да затворите диалоговия прозорец.
След това всички клетки, съдържащи хипервръзки, се избират едновременно.
Забележка: Следните типове хипервръзки могат да бъдат преброени от горния VBA код:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!