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

Ինչպե՞ս հաշվել 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 կոդով կարելի է հաշվել հիպերհղումների հետևյալ տեսակները.

1) Խարիսխի հիպերհղումներՍտեղծված է հետևյալ HYPERLINK ֆունկցիայի միջոցով.
=HYPERLINK(link_location,[friendly_name])
2) Էջի հիպերհղումներ: հղում դեպի որոշակի էջի;
3) Էլփոստի հիպերհղումներ: մատնացույց անել էլփոստի հասցեին:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից