Hoe hyperlinks verwijderen zonder de opmaak te verwijderen?
Wanneer we in Excel de hyperlinks verwijderen die enige opmaak hebben, zoals achtergrondkleur, lettertype, grootte enzovoort, wordt de opmaak verwijderd evenals het volgende screenshot. Maar soms moeten we de celopmaak behouden bij het verwijderen van de hyperlinks. Zijn er manieren om ons te helpen dit vervelende probleem op te lossen?
 |
 |
 |
Verwijder hyperlinks zonder opmaak te verwijderen met VBA-code
Verwijder hyperlinks zonder opmaak te verwijderen met VBA-code
In Excel is er geen directe manier om met deze taak om te gaan, maar u kunt de volgende VBA-code toepassen om de celopmaak te behouden bij het verwijderen van hyperlinks.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verwijder hyperlinks zonder de opmaak te verwijderen
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de cellen te selecteren die de hyperlinks bevatten, zie screenshot:
4. En klik vervolgens op OK om het dialoogvenster te sluiten, worden de hyperlinks verwijderd, maar de opmaak van de hyperlinks (inclusief de onderstrepingen) blijft behouden.
Gerelateerde artikelen:
Hoe verander ik meerdere hyperlinkpaden tegelijk in Excel?
Hoe daadwerkelijke adressen uit hyperlinks in Excel te extraheren?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
