„Excel“ makrokomanda, skirta paslėpti visus, išskyrus aktyvųjį darbalapį

Galbūt norėsite paslėpti neaktyvius darbalapius naudodami šią makrokomandą. „Excel“ neleidžia paslėpti visų darbaknygės lapų; turi būti rodomas bent vienas. Tačiau galite paslėpti visus, išskyrus aktyvųjį lapą.

Kaip veikia makrokomandas

Čia esanti makrokomanda eina per darbalapius ir suderina kiekvieno darbalapio pavadinimą su aktyvaus lapo pavadinimu. Kiekvieną kartą, kai makrokomanda sukasi, ji paslepia neprilygstamą darbalapį.

Sub-makro1()
1 veiksmas: deklaruokite savo kintamuosius
    Dim ws kaip darbalapis
2 veiksmas: pradėkite peržiūrėti visus darbalapius
    Kiekvienam ws Šioje darbaknygėje.Darbo lapuose
„3 veiksmas: patikrinkite kiekvieno darbalapio pavadinimą
    Jei ws.Name <> ThisWorkbook.ActiveSheet.Name Tada
4 veiksmas: paslėpkite lapą
    ws.Visible = xlSheetHidden
    Pabaiga, jei
5 veiksmas: pereikite prie kito darbalapio
    Kitas ws
Pabaigos sub

1 veiksmas deklaruoja objektą, vadinamą ws. Šis veiksmas sukuria atminties talpyklą kiekvienam darbalapiui, kurį perkelia makrokomandos kilpa.

2 veiksmas pradeda kilpą, nurodant „Excel“ įvertinti visus šios darbaknygės darbalapius. Atkreipkite dėmesį į skirtumą tarp ThisWorkbook ir ActiveWorkbook. Objektas ThisWorkBook nurodo darbaknygę, kurioje yra kodas. ActiveWorkBook objektas nurodo šiuo metu aktyvią darbaknygę. Jie dažnai grąžina tą patį objektą, bet jei darbaknygė, kurioje veikia kodas, nėra aktyvi darbaknygė, jie grąžina skirtingus objektus. Tokiu atveju nenorite rizikuoti slėpti lapų kitose darbaknygėse, todėl naudokite ThisWorkBook.

3 veiksme makrokomanda tiesiog lygina aktyvaus lapo pavadinimą su lapu, kuris šiuo metu yra susietas.

Jei lapų pavadinimai skiriasi, makrokomanda paslepia lapą 4 veiksme.

5 veiksme grįžtate atgal, kad gautumėte kitą lapą. Įvertinus visus lapus, makrokomandas baigiasi.

Atminkite, kad makrokomandoje naudojate xlsheetHidden. Ši ypatybė taiko numatytąją slėpimo būseną, kurią paprastai gautumėte dešiniuoju pelės mygtuku spustelėjus lapą ir pasirinkus Slėpti. Šioje numatytojoje slėpimo būsenoje vartotojas gali dešiniuoju pelės mygtuku spustelėti bet kurį skirtuką ir pasirinkti Neslėpti, kuris rodo visus paslėptus lapus. Tačiau kita slėpimo būsena yra labiau slapta nei numatytoji. Jei naudosite xlSheetVeryHidden, kad paslėptumėte savo lapus, vartotojai jų iš viso negalės matyti – net jei jie dešiniuoju pelės mygtuku spustelėja skirtuką ir pasirenka Nerodyti. Vienintelis būdas atskleisti tokiu būdu paslėptą lapą yra naudoti VBA.

Kaip naudoti makrokomandą

Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:

Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.

Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.

Pasirinkite Įterpti → Modulis.

Įveskite arba įklijuokite kodą naujai sukurtame modulyje.

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.