Conas hipearnasc a bhaint gan formáidiú a bhaint?
In Excel, nuair a scriosfaimid na hipearnasc a bhfuil formáidiú éigin orthu, mar shampla dath cúlra, cló, méid agus mar sin de, bainfear an fhormáidiú chomh maith leis an scáileán a thaispeántar a thaispeáint. Ach, uaireanta, caithfimid formáidiú na gceall a choinneáil agus na hipearnasc á mbaint amach. An bhfuil aon bhealaí ann chun cabhrú linn an fhadhb chráite seo a réiteach?
 |
 |
 |
Bain hipearnasc gan formáidiú le cód VBA a bhaint
Bain hipearnasc gan formáidiú le cód VBA a bhaint
In Excel, níl aon bhealach díreach ann chun déileáil leis an tasc seo, ach is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun formáidiú na gcealla a chaomhnú agus tú ag baint hipearnasc.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Bain hipearnasc gan formáidiú a bhaint
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit na cealla ina bhfuil na hipearnasc a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK chun an dialóg a dhúnadh, baintear na hipearnasc, ach fanann formáidiú na hipearnasc (lena n-áirítear na línte faoi).
Earraí gaolmhara:
Conas ilbhealaí hipearnasc a athrú ag an am céanna in Excel?
Conas seoltaí iarbhír a bhaint as hipearnasc in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
