Si të përdorni për çdo sythe tjetër me koleksione në VBA Excel 2016

VBA mbështet edhe një lloj tjetër looping në Excel 2016: lakimi nëpër çdo objekt në një koleksion objektesh. Një koleksion, siç mund ta dini, përbëhet nga një numër objektesh të të njëjtit lloj. Për shembull, Excel ka një koleksion të të gjithë librave të hapur të punës (koleksioni i Librave të punës) dhe çdo libër pune ka një koleksion të fletëve të punës (koleksioni i fletëve të punës).

Kur ju duhet të kaloni nëpër çdo objekt në një koleksion, përdorni strukturën For Every-Next. Shembulli i mëposhtëm kalon nëpër secilën fletë pune në librin aktiv të punës dhe fshin fletën e punës nëse është bosh:

Nën DeleteEmptySheets()
  Dim WkSht As Fletë pune
  Aplikimi.DisplayAlerts = False
  Për çdo WkSht Në ActiveWorkbook.Fletët e punës
    Nëse WorksheetFunction.CountA(WkSht.Cells) = 0 Pastaj
      WkSht.Fshi
    Fundi Nëse
  Tjetra WkSht
  Aplikimi.DisplayAlerts = E vërtetë
Fundi Nën

Në këtë shembull, ndryshorja WkSht është një ndryshore objekti që përfaqëson çdo fletë pune në librin e punës. Asgjë nuk është e veçantë për emrin e ndryshores WkSht; ju mund të përdorni çdo emër variabli që ju pëlqen.

Kodi kalon nëpër secilën fletë pune dhe përcakton një fletë boshe duke numëruar qelizat jo bosh. Nëse ky numër është zero, fleta është bosh dhe fshihet. Vini re se cilësimi i DisplayAlerts është i fikur ndërsa cikli po bën gjënë e tij. Pa këtë deklaratë, Excel shfaq një paralajmërim sa herë që një fletë do të fshihet.

Nëse të gjitha fletët e punës në librin e punës janë bosh, ju merrni një gabim kur Excel përpiqet të fshijë fletën e vetme. Normalisht, ju do të shkruani kod për të trajtuar atë situatë.

Këtu është një shembull tjetër Për Çdo-Next. Kjo procedurë përdor një lak për të fshehur të gjitha fletët e punës në librin aktiv të punës përveç fletës aktive.

Nën HideSheets ()
  Dim Sht As Fletë pune
  Për Çdo Sht Në Libër Pune Aktive.Fletët e punës
    Nëse Sht.Name <> ActiveSheet.Emri Pastaj
      Sht.Dukshme = xlSheetHidden
    Fundi Nëse
  Tjetra Sht
Fundi Nën

Procedura HideSheets kontrollon emrin e fletës. Nëse nuk është i njëjtë me emrin e fletës aktive, fleta fshihet. Vini re se vetia Visible nuk është Boolean. Kjo veti në fakt mund të marrë një nga tre vlerat, dhe Excel ofron tre konstante të integruara. Nëse jeni kurioz për mundësinë e tretë (xlVeryHidden), kontrolloni sistemin e Ndihmës.

Ajo që fshihet duhet përfundimisht të mos fshihet, kështu që këtu është një makro që zbulon të gjitha fletët e punës në librin aktiv të punës:

Nën UnhideSheets ()
  Dim Sht As Fletë pune
  Për Çdo Sht Në Libër Pune Aktive.Fletët e punës
    Sht.Dukshme = xlSheetVisible
  Tjetra Sht
Fundi Nën

Nuk është për t'u habitur që ju mund të krijoni sythe të mbivendosur For Every-Next. Procedura CountBold kalon nëpër çdo qelizë në diapazonin e përdorur në secilën fletë pune në çdo libër pune të hapur dhe shfaq një numër të numrit të qelizave që janë formatuar me shkronja të zeza:

Nën CountBold()
  Dim WBook As Workbook
  Fletë e zbehtë si fletë pune
  Qeliza e zbehtë si varg
  Dim Cnt Për aq kohë sa
  Për çdo WBook në Librat e Punës
    Për çdo fletë pune në WBook.Fletët e punës
      Për çdo qelizë në WSheet.UsedRange
        Nëse Cell.Font.Bold = E vërtetë, atëherë Cnt = Cnt + 1
      Qeliza tjetër
    Fletë e ardhshme WW
  WBook tjetër
  MsgBox Cnt & "qelizat e theksuara u gjetën"
Fundi Nën

Si të shkruani shënime në OneNote 2013 në Android

Mësoni si të shkruani shënime në OneNote 2013 në Android me krijimin, hapjen dhe regjistrimin e shënimeve. Aplikoni strategji efektive për menaxhimin e shënimeve tuaja.

Formatimi i numrave në një varg teksti në Excel

Mësoni si të formatoni numrat në një varg teksti në Excel për të përfshirë informacione të sakta dhe tërheqëse për raportet tuaja.

Si të fshini qelizat dhe të dhënat në Excel 2010

Në Excel 2010, fshini të dhënat apo formatin e qelizave lehtësisht me disa metoda të thjeshta. Mësoni si të menaxhoni përmbajtjen e qelizave me opsione të ndryshme.

Formatimi i elementeve të grafikut të Excel 2007

Zhvilloni aftësitë tuaja në formatimin e elementeve të grafikut në Excel 2007 përmes metodave të thjeshta dhe efikase.

Si të rreshtoni dhe justifikoni tekstin në Word 2010

Mësoni se si të rreshtoni dhe justifikoni tekstin në Word 2010 me opsione të ndryshme rreshtimi dhe justifikimi për të përmirësuar formatimin e dokumenteve tuaja.

Excel 2019: Si të krijoni makro Excel për të automatizuar komandat

Mësoni si të krijoni makro në Excel 2019 për të automatizuar komandat dhe thjeshtuar detyrat tuaja.

Si të përdorni vizoren për të vendosur skeda në Word 2016

Mënyra vizuale dhe e shpejtë për të vendosur një ndalesë skedash në Word 2016 është përdorimi i vizores. Zbulo disa këshilla dhe truke për përdorimin e skedave në këtë program.

Formatimi i boshtit X dhe boshtit Y në grafikët e Excel 2007

Mësoni si të formula boshtet X dhe Y në Excel 2007, duke përfshirë mundësitë e ndryshimit të formatimeve për grafikët e ndryshëm.

Statistika të thjeshta në analizën e të dhënave në Excel

Eksploroni se si Excel mund t

Gjetja dhe zëvendësimi i të dhënave në Excel 2007

Mësoni se si të përdorni veçorinë Find and Replace të Excel 2007 për të gjetur dhe zëvendësuar të dhëna në mënyrë efikase. Kjo udhëzues është e përshtatshme për të gjithë përdoruesit që dëshirojnë të rrisin produktivitetin e tyre.