Kuinka käyttää jokaista seuraavaa silmukkaa kokoelmien kanssa VBA Excel 2016:ssa

VBA tukee vielä toista tyyppiä silmukoita Excel 2016:ssa: silmukkaa jokaisen objektikokoelman objektien läpi. Kokoelma, kuten ehkä tiedät, koostuu useista samantyyppisistä esineistä. Esimerkiksi Excelissä on kokoelma kaikkia avoimia työkirjoja (Työkirjat-kokoelma) ja jokaisessa työkirjassa on kokoelma laskentataulukoita (Työkirjat-kokoelma).

Kun sinun on selattava kokoelman jokaisen objektin läpi, käytä For Every-Next -rakennetta. Seuraava esimerkki käy läpi jokaisen aktiivisen työkirjan laskentataulukon ja poistaa laskentataulukon, jos se on tyhjä:

Sub DeleteEmptySheets()
  Dim WkSht Työtaulukona
  Application.DisplayAlerts = False
  Jokaiselle ActiveWorkbook.Worksheetsin WkSht:lle
    Jos WorksheetFunction.CountA(WkSht.Cells) = 0 Sitten
      WkSht.Delete
    Loppu Jos
  Seuraava WkSht
  Application.DisplayAlerts = Tosi
Lopeta ala

Tässä esimerkissä muuttuja WkSht on objektimuuttuja, joka edustaa jokaista työkirjan laskentataulukkoa. Muuttujan nimessä WkSht ei ole mitään erityistä; voit käyttää mitä tahansa haluamasi muuttujan nimeä.

Koodi kiertää jokaisen laskentataulukon läpi ja määrittää tyhjän arkin laskemalla ei-tyhjät solut. Jos luku on nolla, taulukko on tyhjä ja se poistetaan. Huomaa, että DisplayAlerts-asetus on kytketty pois päältä silmukan suorittaessa tehtävänsä. Ilman tätä lausuntoa Excel antaa varoituksen joka kerta, kun taulukkoa ollaan poistamassa.

Jos kaikki työkirjan laskentataulukot ovat tyhjiä, saat virheilmoituksen, kun Excel yrittää poistaa ainoan taulukon. Normaalisti kirjoitat koodin tilanteen käsittelemiseksi.

Tässä on toinen For Every-Next -esimerkki. Tämä toimenpide piilottaa kaikki aktiivisen työkirjan laskentataulukot aktiivisen taulukon lisäksi silmukan avulla.

Sub HideSheets()
  Dim Sht Työtaulukona
  Jokaiselle ActiveWorkbook.Worksheets Sht:lle
    Jos Sht.Name <> ActiveSheet.Name Then
      Sht.Visible = xlSheetHidden
    Loppu Jos
  Seuraava Sht
Lopeta ala

HideSheets-toiminto tarkistaa taulukon nimen. Jos se ei ole sama kuin aktiivisen taulukon nimi, taulukko piilotetaan. Huomaa, että Visible-ominaisuus ei ole Boolen. Tämä ominaisuus voi itse asiassa ottaa minkä tahansa kolmesta arvosta, ja Excel tarjoaa kolme sisäänrakennettua vakiota. Jos olet kiinnostunut kolmannesta mahdollisuudesta (xlVeryHidden), tarkista ohjejärjestelmä.

Piilotetun on lopulta paljastettava, joten tässä on makro, joka paljastaa kaikki aktiivisen työkirjan laskentataulukot:

Sub UnhideSheets()
  Dim Sht Työtaulukona
  Jokaiselle ActiveWorkbook.Worksheets Sht:lle
    Sht.Visible = xlSheetVisible
  Seuraava Sht
Lopeta ala

Ei ole yllättävää, että voit luoda sisäkkäisiä For Every-Next -silmukoita. CountBold-toiminto kiertää jokaisen käytetyn alueen jokaisen solun läpi jokaisessa avoimessa työkirjassa ja näyttää lihavoituina muotoiltujen solujen lukumäärän:

Sub CountBold()
  Himmeä WBook työkirjana
  Himmeä WSheet laskentataulukona
  Dim Cell As Range
  Dim Cnt As Long
  Jokaiselle työkirjoissa olevalle WBookille
    Jokaiselle WBook.Worksheets-sivulle
      Jokaiselle WSheet.UsedRange-solulle
        Jos Cell.Font.Bold = tosi, Cnt = Cnt + 1
      Seuraava solu
    Seuraava WSheet
  Seuraava WBook
  MsgBox Cnt & " lihavoituja soluja löytyi"
Lopeta ala

Lasketun kentän lisääminen Excelin pivot-taulukkoon

Tutustu, kuinka voit lisätä lasketun kentän Excelin pivot-taulukkoon ja laskea myynnistä syntyviä palkkioita tehokkaasti.

Microsoft Teamsin lataaminen, asentaminen ja avaaminen

Opi käyttämään Microsoft Teamsia: verkkopohjaista sovellusta, asiakkaana kannettavalla tietokoneella tai pöytätietokoneella tai Teams-mobiilisovellusta älypuhelimella tai tabletilla.

Kuinka estää Microsoft Wordia avaamasta tiedostoja vain luku -tilassa Windowsissa

Kuinka estää Microsoft Wordia avaamasta tiedostoja vain luku -tilassa Windowsissa Microsoft Word avaa tiedostot vain luku -tilassa, jolloin niiden muokkaaminen on mahdotonta? Älä huoli, menetelmät ovat alla

Microsoft Word -asiakirjojen virheellisen tulostuksen korjaaminen

Virheiden korjaaminen virheellisten Microsoft Word -asiakirjojen tulostuksessa. Virheet tulostettaessa Word-asiakirjoja, joissa on muuttuneet fontit, sotkuiset kappaleet, puuttuva teksti tai kadonnut sisältö ovat melko yleisiä. Älä kuitenkaan

Pyyhi kynä- ja korostuspiirrokset PowerPoint-dioistasi

Jos olet piirtänyt PowerPoint-dioihin esityksen aikana kynää tai korostuskynää, voit tallentaa piirustukset seuraavaa esitystä varten tai poistaa ne, jotta seuraavan kerran näytät ne. Aloitat puhtailla PowerPoint-dioilla. Pyyhi kynä- ja korostuskynäpiirrokset noudattamalla näitä ohjeita: Pyyhi rivit yksi kerrallaan […]

Tyylikirjaston sisältö SharePoint 2010:ssä

Tyylikirjasto sisältää CSS-tiedostoja, Extensible Stylesheet Language (XSL) -tiedostoja ja kuvia, joita käyttävät ennalta määritetyt sivupohjat, sivuasettelut ja säätimet SharePoint 2010:ssä. CSS-tiedostojen etsiminen julkaisusivuston tyylikirjastosta: Valitse Sivuston toiminnot→ Näytä Kaikki sivuston sisältö. Sivuston sisältö tulee näkyviin. Style-kirjasto sijaitsee […]

Muotoile numerot tuhansiksi ja miljooniksi Excel-raporteissa

Älä hukuta yleisöäsi jättimäisillä numeroilla. Microsoft Excelissä voit parantaa koontinäyttöjesi ja raporttiesi luettavuutta muotoilemalla numerot näyttämään tuhansia tai miljoonia.

SharePoint-sivustojen jakaminen ja seuraaminen

Opi käyttämään SharePointin sosiaalisen verkostoitumisen työkaluja, joiden avulla yksilöt ja ryhmät voivat kommunikoida, tehdä yhteistyötä, jakaa ja pitää yhteyttä.

Kuinka muuntaa päivämäärät Julian-muotoihin Excelissä

Juliaanisia päivämääriä käytetään usein valmistusympäristöissä aikaleimana ja pikaviitteenä eränumerolle. Tämän tyyppisen päivämääräkoodauksen avulla jälleenmyyjät, kuluttajat ja huoltoedustajat voivat tunnistaa tuotteen valmistusajankohdan ja siten tuotteen iän. Julian-päivämääriä käytetään myös ohjelmoinnissa, armeijassa ja tähtitiedessä. Erilainen […]

Access-verkkosovelluksen luominen

Voit luoda verkkosovelluksen Access 2016:ssa. Mikä verkkosovellus sitten on? No, verkko tarkoittaa, että se on verkossa, ja sovellus on vain lyhenne sanoista "sovellus". Mukautettu verkkosovellus on online-tietokantasovellus, jota käytetään pilvestä selaimen avulla. Rakennat ja ylläpidät verkkosovellusta työpöytäversiossa […]