Kā izmantot katrai nākamajai cilpai ar kolekcijām programmā VBA Excel 2016

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š

Leave a Comment

Kā pārvietoties Word 2007 tabulā

Kā pārvietoties Word 2007 tabulā

Uzziniet, kā efektīvi pārvietoties Word 2007 tabulā, izmantojot īsinājumtaustiņus un peles darbības, lai optimizētu savu darba plūsmu.

10 Excel funkcijas, kas jums patiešām būtu jāzina

10 Excel funkcijas, kas jums patiešām būtu jāzina

Šajā sarakstā ir iekļautas desmit populārākās Excel funkcijas, kas attiecas uz plašu vajadzību klāstu. Uzziniet, kā izmantot <strong>Excel funkcijas</strong> efektīvāk!

Papildu analīzes slāņu pievienošana jūsu Excel diagrammām

Papildu analīzes slāņu pievienošana jūsu Excel diagrammām

Uzziniet, kā pievienot papildu analīzes slāņus jūsu Excel diagrammām, lai uzlabotu vizualizāciju un sniegtu precīzākus datus. Šis raksts apraksta visas nepieciešamās darbības.

Kā izveidot rindkopas atkāpi programmā Word 2013

Kā izveidot rindkopas atkāpi programmā Word 2013

Uzziniet, kā iestatīt <strong>rindkopas atkāpi</strong> programmā Word 2013, lai uzlabotu dokumenta noformējumu un lasāmību.

Kā ievietot slejas Word 2010 dokumentā

Kā ievietot slejas Word 2010 dokumentā

Uzziniet, kā pareizi ievietot slejas programmā Word 2010, lai uzlabotu jūsu dokumentu formātu un struktūru.

Šūnu datu aizsardzība programmā Excel 2007

Šūnu datu aizsardzība programmā Excel 2007

Apsveriet iespēju aizsargāt Excel 2007 darblapu, lai izvairītos no neplānotām izmaiņām. Uzziniet, kā aizsargāt un atbloķēt šūnas, lai nodrošinātu datu integritāti.

PMT funkcija programmā Excel 2013

PMT funkcija programmā Excel 2013

Programmas Excel 2013 PMT funkcija aprēķina periodisko mūža rentes maksājumu. Šī funkcija ir būtiska hipotekāro kredītu maksājumu plānošanai.

Kā lietot t-test datu analīzes rīku programmā Excel

Kā lietot t-test datu analīzes rīku programmā Excel

Mācieties, kā veikt t-testus Excel programmā, izmantojot datus un aprakstot trīs t-testu veidus, kas noderēs jūsu datu analīzes procesā.

Kā filtrēt datu sarakstu programmā Excel 2016

Kā filtrēt datu sarakstu programmā Excel 2016

Uzziniet, kā filtrēt datu sarakstu programmā Excel 2016, lai ērti paslēptu nevēlamus ierakstus un strādātu tikai ar nepieciešamajiem datiem.

Kā pievienot datu etiķetes diagrammai programmā Excel 2007

Kā pievienot datu etiķetes diagrammai programmā Excel 2007

Uzziniet, kā vienkārši pievienot datu etiķetes diagrammai programmā Excel 2007. Palīdziet noteikt vērtības, kas tiek rādītas katrā datu punktā, izmantojot dažādas izvietošanas un formatēšanas iespējas.