Як порахувати кількість клітинок з гіперпосиланнями в Excel?
Ви коли-небудь пробували підрахувати кількість клітинок, що містять гіперпосилання, у заданому діапазоні в Excel? Цей підручник містить крок за кроком метод, щоб продемонструвати, як цього досягти.
Підрахуйте кількість клітинок із гіперпосиланням із кодом VBA
Підрахуйте кількість клітинок із гіперпосиланням із кодом VBA
Наведений нижче код VBA можна використовувати для підрахунку кількості клітинок, що містять гіперпосилання, у заданому діапазоні. Будь ласка, зробіть наступне.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
Поради: ви також можете натиснути Розробник > Візуальний Бейсік щоб відкрити це вікно.
2 В Візуальний Бейсік вікна, натисніть Insert > Модуль потім вставте наступний код VBA у вікно модуля (код).
Код 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% та зменшує сотні клацань миші для вас щодня!