Ինչպե՞ս ստուգել, թե հիպերհղումը գոյություն ունի՞ Excel- ում աշխատաթերթում:
Ստուգելու համար, արդյոք գոյություն ունի hyperlink ընտրության մեջ, կարող եք փորձել հետևյալ VBA կոդը:
Ստուգեք, արդյոք hyperlink գոյություն ունի VBA կոդով ընտրության մեջ
Ստուգեք, արդյոք hyperlink գոյություն ունի VBA կոդով ընտրության մեջ
Դուք կարող եք ստուգել, արդյոք գոյություն ունի հիպերհղում ընտրության կամ աշխատաթերթում `հետևյալ VBA կոդով:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ ապա պատճենեք և կպցրեք հետևյալ VBA կոդը օրենսգրքի պատուհանում:
VBA. Ստուգեք, արդյոք հիպերհղումը գոյություն ունի ընտրության մեջ
Sub HyperlinkCells()
Dim xAdd As String
Dim xTxt As String
Dim xCell As Range
Dim xRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.AddressLocal
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
Next
If xAdd <> "" Then
MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
End If
End Sub3. Մամուլ F5 ծածկագիրը գործելու համար: Դրանից հետո դուք կստանաք a Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք մի տիրույթ, որը ցանկանում եք իմանալ, արդյոք գոյություն ունի հիպերհղում, և կտտացրեք այն OK կոճակը:
Դրանից հետո բացվում է երկխոսության տուփ ՝ ցույց տալու համար այն բջիջները, որոնք պարունակում են հիպերհղումներ ընտրված տիրույթում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
