Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti hiperpovezave brez odstranitve oblikovanja?

V Excelu, ko izbrišemo hiperpovezave, ki imajo določeno obliko, kot so barva ozadja, pisava, velikost itd., Bo formatiranje odstranjeno, kot tudi prikazan prikaz zaslona. Toda včasih moramo ob odstranjevanju hiperpovezav obdržati oblikovanje celic. Ali obstajajo kaki načini, kako bi nam pomagali rešiti ta težak problem?

doc-odstraniti-hiperpovezave-brez-format-1 -2 doc-odstraniti-hiperpovezave-brez-format-2

Odstranite hiperpovezave, ne da bi odstranili formatiranje s kodo VBA


puščica modra desno mehurček Odstranite hiperpovezave, ne da bi odstranili formatiranje s kodo VBA


V Excelu ni neposrednega načina za reševanje te naloge, lahko pa uporabite naslednjo kodo VBA, da ohranite oblikovanje celic pri odstranjevanju hiperpovezav.

1. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: odstranite hiperpovezave, ne da bi odstranili oblikovanje

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. Nato pritisnite F5 ključ za zagon te kode in se bo pojavilo odzivno okno, ki vas opomni, da izberete celice, ki vsebujejo hiperpovezave, si oglejte posnetek zaslona:

doc-odstraniti-hiperpovezave-brez-format-3

4. In nato kliknite OK da zaprete pogovorno okno, se hiperpovezave odstranijo, vendar ostane formatiranje hiperpovezav (vključno s poudarkom).


Sorodni članki:

Kako spremeniti več poti hiperpovezave naenkrat v Excelu?

Kako izvleči dejanske naslove iz hiperpovezav v Excelu?


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Murray Neish · 1 years ago
    thanks for the code. I have a couple of suggested enhancements:

    declare xTitleId as String for those that use Option Explicit (otherwise throws an error)

    Between Rng.PasteSpecial xlPasteFormats and TempRng.Clear, I inserted the following:

    With Rng.Font
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    End With

    This removes the underline and changes the font color back to black, so the text does not look like a hyperlink anymore.
  • To post as a guest, your comment is unpublished.
    Dan · 2 years ago
    Hi,

    does ClearHyperlinks work with merged cells? thank you
  • To post as a guest, your comment is unpublished.
    Dave · 4 years ago
    Thanks, this worked perfectly. Saved me tons of time!