Sut i gael gwared ar hypergysylltiadau heb gael gwared ar fformatio?
Yn Excel, pan fyddwn yn dileu'r hypergysylltiadau sydd â rhywfaint o fformatio, megis lliw cefndir, ffont, maint ac ati, bydd y fformatio yn cael ei dynnu yn ogystal â dilyn y screenshot a ddangosir. Ond, weithiau, mae angen i ni gadw fformatio'r gell wrth gael gwared ar yr hypergysylltiadau. A oes unrhyw ffyrdd i'n helpu i ddatrys y broblem annifyr hon?
 |
 |
 |
Tynnwch hypergysylltiadau heb gael gwared ar fformatio gyda chod VBA
Tynnwch hypergysylltiadau heb gael gwared ar fformatio gyda chod VBA
Yn Excel, nid oes unrhyw ffordd uniongyrchol i ddelio â'r dasg hon, ond gallwch gymhwyso'r cod VBA canlynol i ddiogelu'r fformatio celloedd wrth gael gwared ar hypergysylltiadau.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnwch hypergysylltiadau heb gael gwared ar fformatio
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. Yna, pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa o ddewis y celloedd sy'n cynnwys yr hypergysylltiadau, gweler y screenshot:
4. Ac yna cliciwch OK i gau'r ymgom, tynnir yr hypergysylltiadau, ond arhosir fformat y hypergysylltiadau (gan gynnwys y tanlinellu).
Erthyglau cysylltiedig:
Sut i newid sawl llwybr hypergyswllt ar unwaith yn Excel?
Sut i dynnu cyfeiriadau gwirioneddol o hyperddolenni yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
