Veeru hüperlinkide muutmine Excel 2016

Kui on tarvis muuta terve veeru linke korraga mingile kujule, näiteks on tarvis koolitus-süsteemist alla laadida kõigi kasutajate sertifikaadid, siis pole väga mõeldav, et hakkad seda käsitsi tegema. Appi tuleb võtta VBA-koodi kirjutamine.

Pressi ALT + F11 ning avanevas VBA-rakenduses vali Insert > Module ja lisa järgmine koodirida:
Sub ReplaceHyperlinks()
'Updateby20140220
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "Hyperlinkide asendaja"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Vana link:", xTitleId, "", Type:=2)
xNew = Application.InputBox("Uus link:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

Seejärel vajuta F5 ning sisesta aknasse Vana link lingi osa, mida soovid vahetada ning sellele lisaks ka uus link.

Programm teeb su töölehel kõik vajalikud muudatused ise ära.

10551 Kokku 23 Täna
No Comments

Post a Comment