Excel: Conas naisc briste a dheisiú

I leabhar saothair, uaireanta, féadfaidh tú naisc a chruthú le leabhair oibre eile chun tagairt a dhéanamh d’eolas ábhartha. Ach nuair a athainmnítear an leabhar oibre foinse nó nuair a bhogtar go dtí suíomh eile, déanfar na naisc bhreise seo a bhriseadh. Anseo tugann an teagasc seo isteach dhá mhodh éagsúla chun na naisc briste in Excel a shocrú.

Deisigh naisc briste trí Edit Naisc a chur i bhfeidhm

Deisigh naisc briste trí úsáid a bhaint as cód VBA

In Excel, is féidir leat dul chuig an Edit Links dialóg chun iad a shocrú ceann ar cheann.

1. Cumasaigh an leabhar oibre ina bhfuil na naisc briste, agus cliceáil Dáta > Cuir Naisc in eagar (i Fiosrúcháin & Naisc grúpa).

2. Sa Cuir Naisc in eagar dialóg, cliceáil Seiceáil Stádas a fháil amach cé na naisc atá briste.
 

3. Ansin cliceáil ar na naisc briste, ansin cliceáil Athraigh Foinse cnaipe, sa Athraigh Foinse fhuinneog, roghnaigh an leabhar oibre foinse ceart, agus cliceáil OK.

anois is féidir leat an stádas a athrú ó earráid chun OK, ansin déan céim 3 arís chun naisc briste eile a shocrú.

Anseo tugtar isteach cód VBA a chabhróidh leat.

1. Cumasaigh an leabhar oibre ar mhaith leat na naisc briste a shocrú, agus brúigh Eile + F11 eochracha.

2. Ansin sa popping Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú.

3. Cóipeáil agus greamaigh an cód thíos chuig an modúl nua.

VBA: Deisigh naisc briste

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. Brúigh F5 eochair nó Rith cnaipe  chun an cód a ghníomhachtú. Anois déanann sé cuardach an bhfuil aon naisc briste. Más ea, scaoileann sé dialóg chun a chur in iúl duit cén nasc atá briste, roghnaigh foinse nua le do thoil. Cliceáil OK chun leanúint ar aghaidh.

5. Sa Oscail fhuinneog, roghnaigh an fhoinse nuashonraithe, Cliceáil OK.

Má tá nasc briste fós sa leabhar oibre, pop na dialóga thuas arís go dtí go bhfuil na naisc briste socraithe.

Tabhair faoi deara: mura bhfuil nasc briste sa leabhar oibre, stopfaidh an VBA tar éis a reáchtáil.

Leid: más mian leat gach nasc breise a fheiceáil agus na naisc briste a bhriseadh, Kutools le haghaidh Excel'S Aimsigh agus Briseadh Naisc Bhriste Beidh gné a bheith ina cúntóir maith.

Le haghaidh sonraí faoin ngné seo, cliceáil le do thoil anseo.

Le triail saor in aisce ar feadh 30 lá, le do thoil íoslódáil ó anseo.

---

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

• Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
• Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
• Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
• Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
• Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
• Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
• Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
• Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
• Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...

Leigh Nios mo... Gnéithe Iomlán Triail In Aisce 30 Lá ... Ceannach ... 

---

Office Tab - tugann sé comhéadan tabbed chuig Office, agus déan do chuid oibre 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á!

Leigh Nios mo... Gnéithe Iomlán Triail In Aisce 30 Lá ... Ceannach ...