Hogyan ellenőrizhető, hogy létezik-e hiperhivatkozás az Excel munkalapján?
A következő VBA-kód kipróbálásával ellenőrizheti, hogy létezik-e hiperhivatkozás egy kiválasztásban.
Ellenőrizze, hogy létezik-e hiperhivatkozás egy VBA kóddal rendelkező kiválasztásban
Ellenőrizze, hogy létezik-e hiperhivatkozás egy VBA kóddal rendelkező kiválasztásban
A következő VBA-kóddal ellenőrizheti, hogy létezik-e hiperhivatkozás egy kiválasztásban vagy munkalapon.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a következő VBA kódot a Kód ablakba.
VBA: Ellenőrizze, hogy létezik-e hiperhivatkozás egy kiválasztásban
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 Sub
3. nyomja meg F5 gombot a kód futtatásához. Akkor kap egy Kutools az Excel számára párbeszédpanelen válassza ki a kívánt tartományt, ha létezik hiperhivatkozás, és kattintson a gombra OK gombot.
Ezután megjelenik egy párbeszédpanel, amely megmutatja azokat a cellákat, amelyek hiperhivatkozásokat tartalmaznak a kiválasztott tartományban.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!