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

Fshini vizatimet e stilolapsit dhe theksuesit në rrëshqitjet tuaja në PowerPoint

Fshini vizatimet e stilolapsit dhe theksuesit në rrëshqitjet tuaja në PowerPoint

Nëse keni përdorur stilolapsin ose theksuesin për të vizatuar në rrëshqitjet tuaja në PowerPoint gjatë një prezantimi, mund t'i ruani vizatimet për prezantimin tjetër ose t'i fshini ato, kështu që herën tjetër që ta shfaqni, do të filloni me sllajde të pastra të PowerPoint. Ndiqni këto udhëzime për të fshirë vizatimet me stilolaps dhe theksues: Fshirja e rreshtave një në […]

Përmbajtja e Bibliotekës Style në SharePoint 2010

Përmbajtja e Bibliotekës Style në SharePoint 2010

Biblioteka e stileve përmban skedarë CSS, skedarë të gjuhës së fletë stili të zgjeruar (XSL) dhe imazhe të përdorura nga faqet kryesore të paracaktuara, paraqitjet e faqeve dhe kontrollet në SharePoint 2010. Për të gjetur skedarët CSS në bibliotekën e stileve të një siti botimi: Zgjidhni Veprimet e sitit→ Shiko E gjithë përmbajtja e faqes. Shfaqet përmbajtja e faqes. Biblioteka Style ndodhet në […]

Formatoni numrat në mijëra e miliona në raportet Excel

Formatoni numrat në mijëra e miliona në raportet Excel

Mos e mbingarkoni audiencën tuaj me numra gjigantë. Në Microsoft Excel, ju mund të përmirësoni lexueshmërinë e paneleve dhe raporteve tuaja duke formatuar numrat tuaj që të shfaqen në mijëra ose miliona.

Si të ndani dhe ndiqni faqet e SharePoint

Si të ndani dhe ndiqni faqet e SharePoint

Mësoni se si të përdorni mjetet e rrjeteve sociale të SharePoints që lejojnë individët dhe grupet të komunikojnë, bashkëpunojnë, ndajnë dhe lidhen.

Si të konvertoni datat në formatet Julian në Excel

Si të konvertoni datat në formatet Julian në Excel

Datat Juliane përdoren shpesh në mjediset e prodhimit si një vulë kohore dhe referencë e shpejtë për një numër grupi. Ky lloj kodimi i datës i lejon shitësit me pakicë, konsumatorët dhe agjentët e shërbimit të identifikojnë se kur është prodhuar një produkt, dhe kështu moshën e produktit. Hurmat Juliane përdoren gjithashtu në programim, ushtri dhe astronomi. Të ndryshme […]

Si të krijoni një aplikacion uebi Access

Si të krijoni një aplikacion uebi Access

Mund të krijoni një aplikacion ueb në Access 2016. Pra, çfarë është një aplikacion ueb gjithsesi? Epo, ueb do të thotë se është në internet dhe aplikacioni është thjesht stenografi për "aplikacion". Një aplikacion ueb i personalizuar është një aplikacion i bazës së të dhënave në internet që aksesohet nga cloud duke përdorur një shfletues. Ju ndërtoni dhe mirëmbani aplikacionin në internet në versionin e desktopit […]

Shiriti i nisjes së shpejtë në SharePoint 2010

Shiriti i nisjes së shpejtë në SharePoint 2010

Shumica e faqeve në SharePoint 2010 shfaqin një listë të lidhjeve të navigimit në shiritin e nisjes së shpejtë përgjatë anës së majtë të faqes. Shiriti i Nisjes së Shpejtë shfaq lidhjet me përmbajtjen e veçuar të sajtit si listat, bibliotekat, sajtet dhe faqet e botimit. Shiriti i Nisjes së Shpejtë përfshin dy lidhje shumë të rëndësishme: Lidhja e gjithë përmbajtjes së sitit: […]

Çfarë nënkuptojnë mesazhet e gabimit të zgjidhjes në Excel?

Çfarë nënkuptojnë mesazhet e gabimit të zgjidhjes në Excel?

Për probleme të thjeshta, Solver në Excel zakonisht gjen shpejt vlerat optimale të variablave Zgjidhës për funksionin objektiv. Por, në disa raste, Solver ka vështirësi në gjetjen e vlerave të ndryshores Solver që optimizojnë funksionin objektiv. Në këto raste, Solver zakonisht shfaq një mesazh ose një mesazh gabimi që përshkruan ose diskuton problemet që […]

Si të hiqni fushat dhe artikujt e llogaritur nga një tabelë kryesore Excel

Si të hiqni fushat dhe artikujt e llogaritur nga një tabelë kryesore Excel

Mund të hiqni lehtësisht fushat dhe artikujt e llogaritur nga një tabelë kryesore e Excel. Për të hequr një fushë të llogaritur, klikoni një qelizë në tabelën kryesore. Pastaj klikoni komandën Fields, Items & Sets të skedës Analize dhe zgjidhni Fushën e llogaritur nga nënmenyja që shfaqet. Kur Excel shfaq kutinë e dialogut Fut fushën e llogaritur, zgjidhni […]

Si të etiketoni në SharePoint

Si të etiketoni në SharePoint

Etiketat janë fjalë kyçe që ju i caktoni përmbajtjes. Etiketimi i faqeve për t'i ndarë me të tjerët është faqeshënues social dhe është shumë i popullarizuar në ueb dhe është i lehtë në SharePoint. Nëse keni përdorur ndonjëherë një sajt si Delicious, tashmë e dini se si funksionon shënimi social. Ndërsa më shumë njerëz caktojnë të njëjtat etiketa, etiketat bëhen një mënyrë […]