Pamokoje paaiškinta, kaip panaikinti darbalapių slėpimą "Excel 2016", 2013, 2010 ir žemesnėse programose. Sužinosite, kaip greitai panaikinti darbalapio slėpimą spustelėjus dešinįjį pelės klavišą ir kaip vienu metu panaikinti visų lapų slėpimą naudojant VBA kodą.

Įsivaizduokite: atidarote darbalapį ir pastebite, kad kai kurios formulės nukreipia į kitą darbalapį. Peržiūrite lapo skirtukus, bet nuorodos į darbalapį ten nėra! Bandote sukurti naują lapą tuo pačiu pavadinimu, bet "Excel" sako, kad jis jau egzistuoja. Ką visa tai reiškia? Paprasčiausiai darbalapis yra paslėptas. Kaip peržiūrėti paslėptus "Excel" lapus? Akivaizdu, kad turite juos paslėpti. Tai galima padarytirankiniu būdu, naudojant "Excel Neslėpti komandą arba automatiškai naudojant VBA. Šioje pamokoje išmoksite abiejų metodų.

Kaip panaikinti "Excel" lapų slėpimą

Jei norite matyti tik vieną ar du paslėptus lapus, štai kaip greitai juos paslėpti:

1. "Excel" darbaknygėje dešiniuoju pelės klavišu spustelėkite bet kurį lapo skirtuką ir pasirinkite Neslėpti ... iš kontekstinio meniu.
2. Į Neslėpti pasirinkite paslėptą lapą, kurį norite rodyti, ir spustelėkite GERAI (arba dukart spustelėkite lapo pavadinimą). Atlikta!

Be dešiniojo pelės mygtuko kontekstinio meniu Neslėpti dialogo langą galima pasiekti iš juostos:

• Programoje "Excel 2003" ir ankstesnėse versijose spustelėkite Formatas meniu, tada spustelėkite Lapas > Neslėpti .
• "Excel 2016", "Excel 2013", "Excel 2010" ir "Excel 2007" eikite į Pagrindinis skirtukas> Ląstelės grupę ir spustelėkite Formatas Pagal Matomumas , nurodyti Paslėpti & amp; Neslėpti , tada spustelėkite Atskleisti lapą ...

Pastaba. "Excel Panaikinti parinktimi vienu metu galima pasirinkti tik vieną lapą. Norėdami panaikinti kelių lapų paslėpimą, turėsite pakartoti pirmiau nurodytus veiksmus kiekvienam darbalapiui atskirai arba galite panaikinti visų lapų paslėpimą vienu metu naudodami toliau pateiktas makrokomandas.

Kaip paslėpti "Excel" lapus naudojant VBA

Jei turite kelis paslėptus darbalapius, jų paslėpimo panaikinimas po vieną gali užimti daug laiko, ypač jei norite panaikinti visų darbaknygės lapų paslėpimą. Laimei, šį procesą galite automatizuoti naudodami vieną iš toliau nurodytų makrokomandų.

Kaip panaikinti visų "Excel" lapų slėpimą

Šis nedidelis makrokomandas vienu metu padaro matomus visus paslėptus aktyvios darbo knygos lapus, netrukdydamas jums jokiais pranešimais.

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

Rodyti visus paslėptus lapus ir rodyti jų skaičių

Kaip ir pirmiau aprašytasis, šis makrokomandas taip pat rodo visus paslėptus sąsiuvinio lapus. Skirtumas tas, kad jį užbaigus rodomas dialogo langas, kuriame naudotojui pranešama, kiek lapų buvo paslėpta:

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 & " darbalapiai buvo išskleisti." , vbOKOnly, "Darbalapių išskleidimas" Else MsgBox "Nerasta jokių paslėptų darbalapių." , vbOKOnly,"Darbalapių slėpimas" End If End Sub

Paslėpti kelis pasirinktus lapus

Jei nenorėtumėte, kad vienu metu būtų paslėpti ne visi darbalapiai, o tik tie, kuriuos naudotojas aiškiai sutinka padaryti matomus, tuomet makrokomandoje klauskite apie kiekvieną paslėptą lapą atskirai, pvz., taip:

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 End Sub

Paslėpti darbalapius, kurių lapo pavadinime yra tam tikras žodis

Jei norite paslėpti tik tuos lapus, kurių pavadinimuose yra tam tikro teksto, į makrokomandą įtraukite teiginį IF, kuris patikrins kiekvieno paslėpto darbalapio pavadinimą ir paslėps tik tuos lapus, kuriuose yra nurodytas tekstas.

Šiame pavyzdyje panaikiname lapų su žodžiu " ataskaita " pavadinime. Makrogramoje bus rodomi lapai, pvz. Ataskaita , 1 ataskaita , Liepos mėnesio ataskaita ir pan.

Norėdami panaikinti darbalapių, kurių pavadinimuose yra koks nors kitas žodis, slėpimą, pakeiskite " ataskaita " toliau pateiktame kode įrašykite savo tekstą.

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 & " worksheets have been unhidden." , vbOKOnly, "Unhiding worksheets" Else MsgBox "No hiddenWorksheets with the specified name have been found." , vbOKOnly, "Unhiding worksheets" End If End Sub

Kaip naudoti makrokomandas "Excel" lapams paslėpti

Norėdami naudoti makrokomandas darbalapyje, galite nukopijuoti ir įklijuoti kodą į "Visual Basic" redaktorių arba atsisiųsti darbaknygę su makrokomandomis ir paleisti jas iš ten.

Kaip įterpti makrokomandą į darbaknygę

Tokiu būdu į savo darbaknygę galite įtraukti bet kurią iš pirmiau nurodytų makrokomandų:

1. Atidarykite sąsiuvinį su paslėptais lapais.
2. Paspauskite Alt + F11, kad atidarytumėte Visual Basic redaktorių.
3. Kairiajame lange dešiniuoju pelės klavišu spustelėkite Ši darbo knyga ir pasirinkite Įdėkite > Modulis iš kontekstinio meniu.
4. Įklijuokite kodą į langą Kodas.
5. Paspauskite F5, kad paleistumėte makrokomandą.

Išsamias žingsnis po žingsnio instrukcijas rasite skyriuje Kaip įterpti ir paleisti VBA kodą programoje "Excel".

Atsisiųskite sąsiuvinį su makrokomandomis

Taip pat galite atsisiųsti mūsų pavyzdinę darbo knygą, skirtą "Excel" lapams išskleisti, kurioje yra visos šioje pamokoje aptartos makrokomandos:

• Unhide_All_Sheets - akimirksniu ir tyliai paslėpti visus aktyvaus sąsiuvinio darbalapius.
• Unhide_All_Sheets_Count - parodyti visus paslėptus lapus ir jų skaičių.
• Unhide_Selected_Sheets - rodyti paslėptus lapus, kuriuos norite panaikinti.
• Unhide_Sheets_Contain - paslėpti darbalapius, kurių pavadinimuose yra tam tikras žodis arba tekstas.

Norėdami paleisti makrokomandas "Excel" programoje, atlikite šiuos veiksmus:

1. Atidarykite atsisiųstą sąsiuvinį ir, jei paprašyta, įjunkite makrokomandas.
2. Atidarykite savo sąsiuvinį, kuriame norite matyti paslėptus lapus.
3. Darbaknygėje paspauskite Alt + F8 , pasirinkite norimą makrokomandą ir spustelėkite Paleisti .

Pavyzdžiui, norėdami panaikinti visų "Excel" failo lapų paslėpimą ir parodyti paslėptų lapų skaičių, paleiskite šį makrokomandą:

Kaip rodyti paslėptus "Excel" lapus sukuriant pasirinktinį rodinį

Be makrokomandų, nuobodų paslėptų darbalapių rodymą po vieną galima įveikti sukuriant pasirinktinį vaizdą. Jei nesate susipažinę su šia "Excel" funkcija, pasirinktinį vaizdą galite įsivaizduoti kaip darbaknygės nustatymų momentinę nuotrauką, kurią bet kuriuo metu galima pritaikyti vienu pelės spustelėjimu. Šį metodą geriausia naudoti pačioje darbo pradžioje, kai dar nė vienas darbalapis nėra paslėptas.

Dabar sukursime Rodyti visus lapus pasirinktinis vaizdas. Štai kaip:

1. Įsitikinkite, kad visos darbaknygės skaičiuoklės yra matomas . Šiame patarime parodoma, kaip greitai patikrinti, ar darbaknygėje nėra paslėptų lapų.
2. Eikite į Peržiūrėti skirtukas> Darbaknygės vaizdai grupę ir spustelėkite Pasirinktiniai vaizdai mygtuką.

Svetainė Pasirinktinis vaizdas bus rodomas dialogo langas, kuriame spustelėkite Pridėti...

į Pridėti vaizdą dialogo lange įveskite pasirinktinio rodinio pavadinimą, pvz. ShowAllSheets ir spustelėkite Gerai.

Dabar galite paslėpti tiek darbalapių, kiek norite, o kai norite, kad jie vėl būtų matomi, spustelėkite Pasirinktiniai vaizdai mygtuką, pasirinkite ShowAllSheet peržiūrėti ir spustelėkite Rodyti arba tiesiog dukart spustelėkite rodinį.

Štai ir viskas! Visi paslėpti lapai bus parodyti iš karto.

Kaip patikrinti, ar darbo knygoje yra paslėptų lapų

Greičiausias būdas aptikti paslėptus "Excel" lapus yra toks: dešiniuoju pelės klavišu spustelėkite bet kurio lapo skirtuką ir pažiūrėkite, ar Paslėpti... Jei komanda įjungta, spustelėkite ją ir pažiūrėkite, kurie lapai yra paslėpti. Jei ji išjungta (pilkai pažymėta), darbaknygėje nėra paslėptų lapų.

Pastaba. Šis metodas nerodo labai paslėptų lapų. Vienintelis būdas tokius lapus peržiūrėti - juos paslėpti naudojant VBA.

Negalima panaikinti "Excel" lapų paslėpimo - problemos ir sprendimai

Jei "Excel" programoje negalite paslėpti tam tikrų lapų, toliau pateikiami trikčių šalinimo patarimai gali padėti išsiaiškinti jų priežastis.

1. Darbo knyga yra apsaugota

Neįmanoma paslėpti arba panaikinti lapų, jei darbo knygos struktūra buvo apsaugotas (nereikėtų painioti su sąsiuvinio lygmens slaptažodžio šifravimu arba darbalapio apsauga). Norėdami tai patikrinti, eikite į Peržiūrėkite skirtukas> Pakeitimai grupę ir peržiūrėkite Apsaugoti Darbo knyga Jei šis mygtukas paryškintas žaliai, darbo knyga yra apsaugota. Jei norite panaikinti apsaugą, spustelėkite mygtuką Apsaugoti Darbo knyga mygtuką, įveskite slaptažodį, jei bus paprašyta, ir išsaugokite darbaknygę. Daugiau informacijos rasite skyriuje Kaip atrakinti apsaugotą darbaknygę "Excel" programoje.

2. Darbalapiai yra labai paslėpti

Jei jūsų darbalapiai yra paslėpti naudojant VBA kodą, dėl kurio jie yra labai paslėpti (priskiria xlSheetVeryHidden savybė), tokių darbalapių negalima rodyti naudojant Neslėpti norėdami panaikinti labai paslėptų lapų paslėpimą, turite pakeisti savybę iš xlSheetVeryHidden į xlSheetVisible iš "Visual Basic" redaktoriaus arba paleiskite šį VBA kodą.

3. Darbaknygėje nėra paslėptų lapų

Jei Panaikinti komanda yra pilkos spalvos tiek juostoje, tiek dešiniojo pelės klavišo meniu, vadinasi, jūsų sąsiuvinyje nėra nė vieno paslėpto lapo :)

Taip "Excel" programoje paslepiami lapai. Jei jums įdomu sužinoti, kaip paslėpti arba paslėpti kitus objektus, pavyzdžiui, eilutes, stulpelius arba formules, išsamią informaciją rasite toliau pateiktuose straipsniuose. Dėkoju, kad perskaitėte, ir tikiuosi, kad kitą savaitę susitiksime mūsų tinklaraštyje!

Galimi atsisiuntimai

Makrokomandos, skirtos "Excel" darbalapiams paslėpti