VBA atbalsta vēl vienu cilpas veidu programmā Excel 2016: cilpas caur katru objektu objektu kolekcijā. Kolekcija, kā jūs, iespējams, zināt, sastāv no vairākiem viena veida objektiem. Piemēram, programmā Excel ir visu atvērto darbgrāmatu kolekcija (kolekcija Darbgrāmatas), un katrai darbgrāmatai ir darblapu kolekcija (darblapu kolekcija).
Ja jums ir jāpārskata katrs kolekcijas objekts, izmantojiet struktūru Katram nākamajam. Tālāk sniegtajā piemērā tiek veikta cilpa caur katru darblapu aktīvajā darbgrāmatā un dzēš darblapu, ja tā ir tukša:
Sub DeleteEmptySheets()
Dim WkSht kā darblapa
Application.DisplayAlerts = False
Katrai darba lapai ActiveWorkbook.Worksheets
Ja WorksheetFunction.CountA(WkSht.Cells) = 0 Tad
WkSht.Delete
Beigas Ja
Nākamais WkSht
Application.DisplayAlerts = True
Beigu apakš
Šajā piemērā mainīgais WkSht ir objekta mainīgais, kas apzīmē katru darbgrāmatas darblapu. Mainīgā nosaukumā WkSht nekas nav īpašs; varat izmantot jebkuru mainīgā nosaukumu, kas jums patīk.
Kods iziet cauri katrai darblapai un nosaka tukšu lapu, saskaitot netukšās šūnas. Ja šis skaitlis ir nulle, lapa ir tukša un tiek dzēsta. Ievērojiet, ka DisplayAlerts iestatījums ir izslēgts, kamēr cilpa veic savu darbību. Bez šī paziņojuma programmā Excel tiek parādīts brīdinājums katru reizi, kad lapa tiks dzēsta.
Ja visas darbgrāmatas darblapas ir tukšas, tiek parādīts kļūdas ziņojums, kad programma Excel mēģina dzēst vienīgo lapu. Parasti jums ir jāraksta kods, lai risinātu šo situāciju.
Šeit ir vēl viens piemērs katram nākamajam. Šajā procedūrā tiek izmantota cilpa, lai paslēptu visas darblapas aktīvajā darbgrāmatā, izņemot aktīvo lapu.
Paslēptās lapas ()
Dim Sht kā darblapa
Katram Sht In ActiveWorkbook.Worksheets
Ja Sht.Name <> ActiveSheet.Name Tad
Sht.Visible = xlSheetHidden
Beigas Ja
Nākamais Sht
Beigu apakš
Procedūra HideSheets pārbauda lapas nosaukumu. Ja tas nav tas pats, kas aktīvās lapas nosaukums, lapa tiek paslēpta. Ņemiet vērā, ka rekvizīts Visible nav Būla vērtība. Šis rekvizīts faktiski var iegūt jebkuru no trim vērtībām, un Excel nodrošina trīs iebūvētās konstantes. Ja jūs interesē trešā iespēja (xlVeryHidden), pārbaudiet palīdzības sistēmu.
Tas, kas tiek paslēpts, galu galā ir jāparāda, tāpēc šeit ir makro, kas parāda visas darblapas aktīvajā darbgrāmatā:
Pakārtot ParādītSheets()
Dim Sht kā darblapa
Katram Sht In ActiveWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Nākamais Sht
Beigu apakš
Nav pārsteidzoši, ka varat izveidot ligzdotas cilpas For Every-Next. Procedūra CountBold iziet cauri katrai šūnai izmantotajā diapazonā katrā darblapā katrā atvērtajā darbgrāmatā un parāda to šūnu skaitu, kas ir formatētas treknrakstā:
Sub CountBold()
Dim WBook kā darbgrāmata
Dim WSheet kā darblapu
Dim Cell As Range
Dim Cnt Tik ilgi
Katrai WBook In Workbooks
Katrai WSheet WBook.Worksheets
Katrai šūnai WSheet.UsedRange
Ja Cell.Font.Bold = True, tad Cnt = Cnt + 1
Nākamā šūna
Nākamā WSheet
Nākamā WBook
MsgBox Cnt & “Atrastas treknraksta šūnas”
Beigu apakš
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 […]
