Ištrinti hipersaitus - VBA kodų pavyzdžiai

Ištrinkite visas hipersaitus iš lapo

Šis kodas ištrina visas hipersaitus iš 1 lapo:

12345 Sub DeleteHyperLinks ()1 lapas. Hipersaitai. IštrintiPabaiga Sub

Ir jei jums nereikia daugkartinio naudojimo „Sub rutinos“, o vienkartinio taisymo, naudokite „Neatidėliotiną langą“:

1. Pasirinkite lapą, iš kurio norite pašalinti hipersaitus

2. Paspauskite Alt+F11, kad atidarytumėte VBE

3. VBE pagrindiniame meniu pasirinkite Vaizdas-> Iškart langas

4. Nedelsiančiame lange įklijuokite šį kodą, tada paspauskite Enter

1 ActiveSheet. Hipersaitai. Ištrinti

wave wave wave wave wave