Përdorimi i VBA për të krijuar një hartë të fletës së punës

A jeni përpjekur ndonjëherë të kuptoni një libër pune të panjohur (dhe të komplikuar) në Excel? Do të ishte e dobishme të shihni një hartë që ofron një pasqyrë se cilat qeliza përmbajnë konstante dhe cilat qeliza përmbajnë vlera.

Mund të krijoni një mjet VBA që gjeneron një hartë të fletës aktive të punës. Harta krijohet në një fletë të re pune dhe përbëhet nga qeliza të koduara me ngjyra që ju lejojnë të identifikoni shpejt vlerat, tekstin dhe formulat.

Më poshtë, shihni një shembull të një harte të tillë. Qelizat që përmbajnë tekst janë jeshile, ato që përmbajnë një vlerë numerike janë të verdha dhe qelizat që përmbajnë formula janë të kuqe. Një hartë e tillë mund t'ju ndihmojë të dalloni gabimet e mundshme. Për shembull, nëse një formulë në një bllok formulash është mbishkruar nga një vlerë, ajo qelizë do të dallohet në pamjen e hartës (si në qelizën Q11 në shembull).

Përdorimi i VBA për të krijuar një hartë të fletës së punës

Kodi QuickMap VBA

Procedura VBA që gjeneron hartën e fletës së punës është renditur më poshtë. Nëse dëshironi të përdorni këtë mjet, thjesht kopjoni kodin dhe ngjisni atë në një modul VBA. Më pas, aktivizoni një fletë pune dhe ekzekutoni nënprogramin QuickMap.

Nën QuickMap ()
  Dim FormulaCells si variant
  Dim TextCells si variant
  Dim NumberCells si variant
  Zona e zbehtë si varg
  Nëse TypeName(ActiveSheet) <> “Worksheet” Pastaj dilni nga Sub
Krijoni variabla objektesh për nëngrupet e qelizave
  Në gabim Rifillo Tjetra
  Cakto FormulaCells = Range(“A1”).SpecialCells _
   (xlFormulat, xlNumrat + xlVlerat e tekstit + xlLogjike)
  Cakto TextCells = Range (“A1”).SpecialCells (xlConstants, xlTextValues)
  Cakto NumberCells = Range(“A1”).SpecialCells(xlConstants, xlNumbers)
  Në gabim GoTo 0
Shto një fletë të re dhe formatoje atë
  Fletët.Shto
  Me qeliza
    .Gjerësia e kolonës = 2
    .Fonti.Madhësia = 8
    .Horizontal Alignment = xlQendra
  Fund Me
  Application.ScreenUpdating = False
' Bëni qelizat e formulës
  Nëse nuk është bosh (FormulaCells) Atëherë
    Për çdo zonë në FormulaCells.Zonat
      Me ActiveSheet.Range (Area.Address)
        .Vlera = "F"
        .E brendshme.Indeksi i ngjyrave = 3
      Fund Me
    Zona e ardhshme
  Fundi Nëse
' Bëni qelizat e tekstit
  Nëse nuk është bosh (TextCells) Atëherë
    Për çdo zonë në TextCells.Zonat
      Me ActiveSheet.Range (Area.Address)
        .Vlera = "T"
        .E brendshme.Indeksi i ngjyrave = 4
      Fund Me
    Zona e ardhshme
  Fundi Nëse
' Bëni qelizat numerike
  Nëse nuk është bosh (NumberCells) Atëherë
    Për çdo zonë në qelizat e numrave.Zonat
      Me ActiveSheet.Range (Area.Address)
        .Vlera = "N"
        .E brendshme.Indeksi i ngjyrave = 6
      Fund Me
    Zona e ardhshme
  Fundi Nëse
Fundi Nën

Si punon

Procedura së pari kontrollon për t'u siguruar që fleta aktive është një fletë pune. Nëse nuk është kështu, ka një dalje të shpejtë pa veprime të mëtejshme. Kur fleta aktive është një fletë pune, procedura krijon tre variabla objektesh duke përdorur metodën SpecialCells për të identifikuar llojet e ndryshme të qelizave. Metoda SpecialCells është shumë e dobishme. Nëse nuk jeni njohur me të, kontrollojeni në skedarin e ndihmës në internet të Excel. Vini re përdorimin e On Error Resume Next. Kjo është për të shmangur gabimin që ndodh nëse asnjë qelizë nuk kualifikohet - për shembull, nëse fleta e punës nuk ka formula.

Më pas, procedura shton një fletë të re pune, zvogëlon gjerësinë e qelizës dhe vendos shtrirjen horizontale në qendër. Ky hap është kozmetik. Nën-ja më pas çaktivizon përditësimin e ekranit për t'i shpejtuar pak gjërat.

Tre blloqet e ardhshme të kodit përpunojnë qelizat. Nëse asnjë qelizë nuk kualifikohet, ndryshorja e objektit është Empty, kështu që nën-testet për këtë. Më pas, rutina kalon nëpër secilën zonë në objektin Range dhe formaton qelizën. Mund ta personalizoni lehtësisht këtë pjesë të nënprogramit për të aplikuar formatime të ndryshme.

Shikoni shtesën Power Utility Pak për një version shumë më të sofistikuar të kësaj pajisjeje.


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ë […]