Ինչպե՞ս հաշվել Excel-ում հիպերհղումներով բջիջների քանակը:
Երբևէ փորձե՞լ եք հաշվել Excel-ում տվյալ տիրույթում հիպերհղումներ պարունակող բջիջների քանակը: Այս ձեռնարկը քայլ առ քայլ ցույց է տալիս, թե ինչպես հասնել դրան:
Հաշվեք հիպերհղումով բջիջների քանակը VBA կոդով
Հաշվեք հիպերհղումով բջիջների քանակը VBA կոդով
Հետևյալ VBA կոդը կարող է օգտագործվել տվյալ տիրույթում հիպերհղումներ պարունակող բջիջները հաշվելու համար: Խնդրում ենք անել հետևյալը.
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
Խորհուրդներ. Դուք նույնպես կարող եք սեղմել Երեվակիչ > Visual Basic այս պատուհանը բացելու համար:
2. Մեջ Visual Basic պատուհանը, սեղմեք Տեղադրել > Մոդուլ, ապա տեղադրեք հետևյալ VBA կոդը Module (կոդ) պատուհանում:
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 ծածկագիրը գործելու համար: Դուրս ցցված Excel- ի համար նախատեսված գործիքներ երկխոսության վանդակում, ընտրեք այն տիրույթը, որտեղ ցանկանում եք հաշվել հիպերհղման բջիջների քանակը, այնուհետև սեղմեք OK, Տեսեք,
4. Այնուհետև երկխոսության տուփ է բացվում, որը կպատմի, թե ընտրված տիրույթում քանի բջիջ է պարունակում հիպերհղումներ: Սեղմել OK փակել երկխոսության վանդակը:
Այնուհետեւ հիպերհղումներ պարունակող բոլոր բջիջները ընտրվում են միաժամանակ։
ՆշումՎերոհիշյալ VBA կոդով կարելի է հաշվել հիպերհղումների հետևյալ տեսակները.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: