Dažreiz Excel darbgrāmatā varat dzēst visu, izņemot aktīvo darblapu. Šādās situācijās varat izmantot šādu makro.
Šeit esošais makro cilpas cauri darblapām, saskaņojot katras darblapas nosaukumu ar aktīvās lapas nosaukumu. Katru reizi, kad makro cilpas, tas dzēš visas nesaskaņotās darblapas. Ņemiet vērā, ka 4. darbībā tiek izmantots rekvizīts DisplayAlerts. Tas efektīvi izslēdz Excel brīdinājumus, tāpēc jums nav jāapstiprina katra dzēšana.
Apakšmakro1()
1. darbība: deklarējiet savus mainīgos
Dim ws kā darblapa
2. darbība: sāciet pārlūkot visas darblapas
Katram ws šajā darbgrāmatā.Darblapas
3. darbība: pārbaudiet katras darblapas nosaukumu
Ja ws.Name <> ThisWorkbook.ActiveSheet.Name Tad
4. darbība. Izslēdziet brīdinājumus un izdzēsiet tos
Application.DisplayAlerts = False
ws.Dzēst
Application.DisplayAlerts = True
Beigas Ja
5. darbība: pārejiet uz nākamo darblapu
Nākamais vs
Beigt apakš
Makro vispirms deklarē objektu ar nosaukumu ws. Veicot šo darbību, katrai darblapai tiek izveidots atmiņas konteiners.
2. darbībā makro sāk darboties, norādot programmai Excel, ka tas novērtēs visas šīs darbgrāmatas darblapas. Pastāv atšķirība starp ThisWorkbook un ActiveWorkbook. Objekts ThisWorkBook attiecas uz darbgrāmatu, kurā ir kods. ActiveWorkBook objekts attiecas uz pašlaik aktīvo darbgrāmatu. Viņi bieži atgriež vienu un to pašu objektu, bet, ja darbgrāmata, kurā darbojas kods, nav aktīvā darbgrāmata, tie atgriež dažādus objektus. Šajā gadījumā jūs nevēlaties riskēt ar lapu dzēšanu citās darbgrāmatās, tāpēc izmantojat ThisWorkBook.
3. darbībā makro vienkārši salīdzina aktīvās lapas nosaukumu ar lapu, kurai pašlaik tiek veikta cilpa.
Ja 4. darbībā lapu nosaukumi atšķiras, makro izdzēš lapu. Kā minēts, jūs izmantojat DisplayAlerts, lai izslēgtu jebkādas apstiprinājuma pārbaudes no Excel. Ja vēlaties saņemt brīdinājumu pirms lapu dzēšanas, varat izlaist programmu. DisplayAlerts = False. Izlaižot DisplayAlerts paziņojumu, tiks parādīts ziņojums, kas ļaus jums atteikties no lēmuma dzēst darblapas.
5. darbībā makro atgriežas, lai iegūtu nākamo lapu. Kad visas lapas ir novērtētas, makro beidzas.
Izlaidiet DisplayAlerts paziņojumu, lai redzētu brīdinājuma ziņojumus.
Lai ieviestu šo makro, varat to kopēt un ielīmēt standarta modulī:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Ar peles labo pogu noklikšķiniet uz projekta/darbgrāmatas nosaukuma projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.
Ja makro izmantojat ThisWorkbook, nevis ActiveWorkbook, jūs nevarat palaist makro no personīgās makro darbgrāmatas. Kāpēc? Tā kā ThisWorkbook attiektos uz personīgo makro darbgrāmatu, nevis uz darbgrāmatu, kurai makro būtu jāattiecina.
Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk
Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag
Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]
Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]
Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.
Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.
Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]
Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]
Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]
Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]
