Ja vēlaties paketē atvērt vairākas hipersaites programmā Excel, varat atsaukties uz šo rakstu. Šeit mēs iepazīstināsim jūs ar 3 parocīgām metodēm. Katram no viņiem ir savi plusi un mīnusi. Jūs varat izvēlēties jebkuru atbilstoši savām vajadzībām.
Dažos gadījumos, apskatot Excel failu, kas sastāv no daudzām hipersaitēm, iespējams, vēlēsities paketē atvērt vairākas hipersaites. Ja ir atvērtas tikai trīs saites, varat izmantot tikai 1. metodi. Tomēr, ja vēlaties sērijveidā atvērt visas saites jūsu vēlamajos diapazonos, tā vietā varat izmantot 2. metodi. Protams, dažreiz jūs varētu vēlēties paketē atvērt visas saites, kas izkaisītas visā darbgrāmatā. Tad jūs varat izmantot pēdējo ceļu.
1. metode: manuāli atveriet hipersaites pa vienai
Lai manuāli atvērtu šūnā esošo hipersaiti, varat tieši noklikšķināt uz šūnas. Tādējādi, ja nav pārāk daudz hipersaites, kas jāatver, varat noklikšķināt uz šūnām, lai atvērtu hipersaites pa vienai.
2. metode: partijas atvērtās hipersaites atlasītajos diapazonos
Dažreiz jūs vēlaties partijas atvērt visas hipersaites atlasītajos diapazonos. Šajā gadījumā jūs faktiski varat izmantot šādu VBA kodu.
- Pirmkārt, aktivizējiet VBA redaktoru pašreizējā Excel failā saskaņā ar “Kā palaist VBA kodu savā Excel".
- Pēc tam modulī vai projektā ievietojiet šādu kodu.
Sub BatchOpenHyperLinks_SelectedRanges()
Dim objSelectedRange As Excel.Range
Dim objHyperlink As Excel.Hyperlink
'Get selected ranges
Set objSelectedRange = Excel.Application.Selection
For Each objHyperlink In objSelectedRange.Hyperlinks
objHyperlink.Follow
Next
End Sub
- Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai vai lentei.
- Visbeidzot, jūs varat izvēlēties vēlamos diapazonus un noklikšķināt uz makro pogas.
- Uzreiz noklusētajā interneta pārlūkprogrammā tiks atvērtas visas hipersaites izvēlētajos diapazonos.
3. metode: paketē atveriet visas darbgrāmatas hipersaites
Dažreiz, iespējams, vēlēsities atvērt visas darbgrāmatas hipersaites neatkarīgi no darblapas. Šajā situācijā tā vietā varat izmantot VBA kodu.
- Sākumā ievietojiet šādu kodu modulī vai projektā VBA redaktorā.
Sub BatchOpenHyperLinks_Workbook()
Dim objWorksheet As Excel.Worksheet
Dim objSelectedRange As Excel.Range
Dim objHyperlink As Excel.Hyperlink
'Process each worksheet
For Each objWorksheet In ThisWorkbook.Sheets
For Each objHyperlink In objWorksheet.Hyperlinks
objHyperlink.Follow
Next
Next
End Sub
- Pēc tam nospiediet taustiņu “F5”, lai tūlīt palaistu šo makro.
- Tūlīt tiks atvērtas visas hipersaites katrā darblapā.
Labot Excel problēmas
Tāpat kā Word dokumenti, arī Excel darbgrāmatas ir ļoti neaizsargātas. Tas nozīmē, ka Excel faili var būt bojāti vairāku faktoru dēļ, ieskaitot vīrusu infekciju, cilvēku kļūdas un Excel avārijas utt. Tādējādi jums vajadzētu sagatavot spēcīgu Excel labošanas rīku, piemēram, DataNumen Excel Repair, kas var atgūt Excel dati, nesalaužot sviedrus.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar




