Šajā pamācībā ir izskaidrots, kā atslēpt darblapas programmā Excel 2016, 2013, 2010 un zemākās versijās. Uzzināsiet, kā ātri atslēpt darblapas, klikšķinot ar peles labo pogu un kā atslēpt visas lapas vienlaicīgi, izmantojot VBA kodu.

Iedomājieties: jūs atverat darblapu un pamanāt, ka dažas formulas atsaucas uz citu darblapu. Jūs apskatāt lapas cilnes, bet atsaucē minētās darblapas tur nav! Jūs mēģināt izveidot jaunu lapu ar tādu pašu nosaukumu, bet Excel paziņo, ka tā jau pastāv. Ko tas viss nozīmē? Vienkārši, darblapa ir paslēpta. Kā skatīt paslēptās lapas programmā Excel? Acīmredzot jums tās ir jāatbloķē. Tas var būtmanuāli, izmantojot Excel Atslēpt vai automātiski, izmantojot VBA. Šajā pamācībā apgūsiet abas metodes.

Kā atcelt loksnes programmā Excel

Ja vēlaties redzēt tikai vienu vai divas paslēptās lapas, šeit ir aprakstīts, kā tās ātri atslēpt:

1. Excel darbgrāmatā ar peles labo pogu noklikšķiniet uz jebkuras lapas cilnes un atlasiet Atslēpt ... no konteksta izvēlnes.
2. In the Atslēpt lodziņā atlasiet slēpto lapu, kuru vēlaties parādīt, un noklikšķiniet uz LABI (vai divreiz noklikšķiniet uz lapas nosaukuma). Gatavs!

Papildus kontekstuālajai izvēlnei ar peles labo klikšķi Atslēpt dialoglodziņu var atvērt no lentes:

• Programmā Excel 2003 un agrākajos versijās noklikšķiniet uz Formāts izvēlni un pēc tam noklikšķiniet uz Loksne > Atslēpt .
• Programās Excel 2016, Excel 2013, Excel 2010 un Excel 2007 dodieties uz Sākums cilne> Šūnas grupu un noklikšķiniet uz Formāts Zem Redzamība , norādiet uz Paslēpt & amp; Atcelt un pēc tam noklikšķiniet uz Atslēpt lapu ...

Piezīme. Excel's Atslēpt Lai atsegtu vairākas lapas, iepriekš minētās darbības būs jāatkārto katrai darblapai atsevišķi vai arī varat atsegt visas lapas vienā reizē, izmantojot tālāk norādītos makrostatus.

Kā ar VBA atcelt loksnes programmā Excel, izmantojot VBA

Situācijās, kad jums ir vairākas paslēptas darblapas, to atslēpšana pa vienai var būt ļoti laikietilpīga, īpaši, ja vēlaties atslēpt visas darbgrāmatā esošās lapas. Par laimi, šo procesu varat automatizēt, izmantojot kādu no tālāk minētajiem makrouzdevumiem.

Kā Excel programmā Excel atcelt visu lapu paslēpšanu

Ar šo nelielo makroprogrammu visas aktīvās darbgrāmatas slēptās lapas tiek padarītas redzamas uzreiz, netraucējot jūs ar paziņojumiem.

Sub Unhide_All_Sheets() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Visible = xlSheetVisible Next wks End Sub Sub

Rādīt visas slēptās lapas un parādīt to skaitu

Tāpat kā iepriekš minētais makro, arī šis makro arī parāda visas paslēptās darbgrāmatas lapas. Atšķirība ir tāda, ka pēc pabeigšanas tiek parādīts dialoglodziņš, kurā lietotājs tiek informēts par to, cik lapas ir atsegtas:

Sub Unhide_All_Sheets_Count() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If wks.Visible xlSheetVisible Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " darblapas ir atsegtas." , vbOKOnly, "Atsegtas darblapas" Else MsgBox "Nav atrastas slēptas darblapas." , vbOKOnly,"Atslēpt darblapas" End If End Sub

Vairāku atlasīto lapu atsegšana

Ja vēlaties, lai netiktu atsegtas visas darblapas uzreiz, bet tikai tās, kuras lietotājs nepārprotami piekrīt padarīt redzamas, tad makram jāpajautā par katru slēpto lapu atsevišķi, piemēram, šādi:

Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox( "Unhide sheet " & wks.Name & "?" , vbYesNo, "Unhiding worksheets" ) If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub

Darblapu ar konkrētu vārdu lapas nosaukumā atslēptas darblapas

Gadījumos, kad vēlaties atslēpt tikai tās lapas, kuru nosaukumos ir noteikts teksts, pievienojiet makram IF paziņojumu, kas pārbaudīs katras slēptās darblapas nosaukumu un atslēps tikai tās lapas, kurās ir norādītais teksts.

Šajā piemērā mēs atsegsim lapas ar vārdu " ziņojums " nosaukumā. Makroattēls parādīs lapas, piemēram. Ziņojums , 1. ziņojums , Jūlija ziņojums un tamlīdzīgi.

Lai atsegtu darblapas, kuru nosaukumos ir kāds cits vārds, nomainiet " ziņojums " šajā kodā ierakstiet savu tekstu.

Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible xlSheetVisible) And (InStr(wks.Name, "report" )> 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " darblapas ir atsegtas." , vbOKOnly, "Atsegtas darblapas" Else MsgBox "Nav slēptoir atrastas darblapas ar norādīto nosaukumu." , vbOKOnly, "Unhiding worksheets" End If End Sub

Kā izmantot makroorganismus, lai atsegtu lapas programmā Excel

Lai izmantotu makroprogrammas darblapā, varat kopēt/ielīmēt kodu Visual Basic redaktorā vai lejupielādēt darbgrāmatu ar makroprogrammām un palaist tās no turienes.

Kā ievietot makro darba burtnīcā

Šādā veidā varat pievienot jebkuru no iepriekš minētajiem makrouzdevumiem darbgrāmatā:

1. Atveriet darbgrāmatu ar paslēptajām lapām.
2. Nospiediet Alt + F11, lai atvērtu Visual Basic redaktoru.
3. Kreisajā logā ar peles labo pogu noklikšķiniet uz Šīdarbgrāmata un izvēlieties Ievietot > Modulis no konteksta izvēlnes.
4. Ievietojiet kodu logā Kods.
5. Nospiediet F5, lai palaistu makro.

Sīki izstrādātus norādījumus soli pa solim skatiet sadaļā Kā ievietot un palaist VBA kodu programmā Excel.

Lejupielādējiet darbgrāmatu ar makriem

Varat arī lejupielādēt mūsu parauga darbgrāmatu, lai atsegtu lapas programmā Excel, kurā ir iekļauti visi šajā pamācībā aplūkotie makroekrāni:

• Unhide_All_Sheets - uz brīdi un klusi paslēpt visas darblapas aktīvajā darbgrāmatā.
• Unhide_All_Sheets_Count - parādīt visas slēptās lapas kopā ar to skaitu.
• Unhide_Selected_Sheets - rādīt paslēptās lapas, kuras vēlaties atsegt.
• Unhide_Sheets_Contain - paslēpt darblapas, kuru nosaukumos ir norādīts konkrēts vārds vai teksts.

Lai palaistu makroprogrammas programmā Excel, veiciet šādus darbības:

1. Atveriet lejupielādēto darbgrāmatu un iespējojiet makrosistēmas, ja tiek pieprasīts.
2. Atveriet savu darbgrāmatu, kurā vēlaties redzēt slēptās lapas.
3. Darba burtnīcā nospiediet Alt + F8 , atlasiet vajadzīgo makro un noklikšķiniet uz Palaist .

Piemēram, lai Excel failā atsegtu visas lapas un parādītu slēpto lapu skaitu, palaidiet šo makro:

Kā parādīt slēptās lapas programmā Excel, izveidojot pielāgotu skatījumu

Papildus makrouzdevumiem garlaicīgo slēptās darblapas rādīšanu pa vienai var pārvarēt, izveidojot pielāgotu skatījumu. Ja neesat pazīstams ar šo Excel funkciju, varat domāt par pielāgotu skatījumu kā par darbgrāmatas iestatījumu momentuzņēmumu, ko jebkurā brīdī var piemērot ar peles klikšķi. Šo metodi vislabāk izmantot pašā darba sākumā, kad neviena no lapām vēl nav paslēpta.

Tagad mēs izveidosim Rādīt visas lapas pielāgotu skatu. Lūk, kā:

1. Pārliecinieties, ka visas darbgrāmatā esošās izklājlapas ir redzams . Šajā padomā parādīts, kā ātri pārbaudīt darbgrāmatu, lai atrastu slēptās lapas.
2. Dodieties uz Skatīt cilne> Darba burtnīcas skati grupu un noklikšķiniet uz Pielāgotie skati pogu.

Portāls Pielāgotais skats tiks parādīts dialoglodziņš, un jūs noklikšķiniet uz Pievienot...

in the Pievienot skatam dialoglodziņā ierakstiet pielāgotā skata nosaukumu, piemēram. ShowAllSheets un noklikšķiniet uz Labi.

Tagad varat paslēpt tik darblapu, cik vēlaties, un, kad vēlaties, lai tās atkal būtu redzamas, noklikšķiniet uz pogas Pielāgotie skati pogu, izvēlieties ShowAllSheet skatiet un noklikšķiniet uz Rādīt vai vienkārši divreiz noklikšķiniet uz skata.

Tas ir viss! Visas slēptās lapas tiks nekavējoties parādītas.

Kā pārbaudīt, vai darbgrāmatā ir kādas slēptās lapas

Ātrākais veids, kā programmā Excel noteikt slēptās lapas, ir šāds: noklikšķiniet ar peles labo pogu uz jebkuras lapas cilnes un pārbaudiet, vai Paslēpt... Ja komanda ir iespējota, noklikšķiniet uz tās un apskatiet, kuras lapas ir paslēptas. Ja komanda ir atspējota (pelēkā krāsā), darbgrāmatā nav paslēptu lapu.

Piezīme. Šī metode nerāda ļoti paslēptas lapas. Vienīgais veids, kā apskatīt šādas lapas, ir atcelt to paslēpšanu, izmantojot VBA.

Nevarat atcelt paslēpt lapas programmā Excel - problēmas un risinājumi

Ja programmā Excel nevarat atslēpt noteiktas lapas, turpmāk sniegtie problēmu novēršanas padomi var palīdzēt noskaidrot problēmu cēloņus.

1. Darba burtnīca ir aizsargāta

Nav iespējams paslēpt vai atslēpt lapas, ja. darbgrāmatas struktūra ir aizsargāts (nedrīkst jaukt ar darbgrāmatas līmeņa paroles šifrēšanu vai darblapu aizsardzību). Lai to pārbaudītu, dodieties uz Pārskats cilne> Izmaiņas grupu un aplūkojiet Aizsargāt darba burtnīcu Ja šī poga ir izcelta zaļā krāsā, darbgrāmata ir aizsargāta. Lai to noņemtu, noklikšķiniet uz pogas . Aizsargāt darba burtnīcu pogu, ievadiet paroli, ja tiek pieprasīts, un saglabājiet darbgrāmatu. Lai iegūtu vairāk informācijas, skatiet sadaļu Kā atbloķēt aizsargātu darbgrāmatu programmā Excel.

2. Darblapas ir ļoti slēptas

Ja darblapas ir paslēptas, izmantojot VBA kodu, kas padara tās ļoti slēptas (piešķir xlSheetVeryHidden īpašību), šādas darblapas nevar parādīt, izmantojot Atslēpt Lai atsegtu ļoti paslēptas lapas, ir jāmaina īpašība no xlSheetVeryHidden uz xlSheetVisible no Visual Basic redaktora vai palaist šo VBA kodu.

3. Darba burtnīcā nav slēptu lapu.

Ja Atslēpt komanda ir pelēkā krāsā gan lentē, gan izvēlnē ar peles labo pogu, tas nozīmē, ka jūsu darbgrāmatā nav nevienas slēptās lapas :)

Tas ir veids, kā Excel programmā varat atslēpt lapas. Ja vēlaties uzzināt, kā paslēpt vai atslēpt citus objektus, piemēram, rindas, kolonnas vai formulas, sīkāku informāciju atradīsiet tālāk minētajos rakstos. Paldies, ka izlasījāt, un ceru, ka nākamnedēļ tiksimies mūsu emuārā!

Pieejamās lejupielādes

Makrogrammas, lai atsegtu darblapas programmā Excel