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.

Leave a Comment

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

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

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

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

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

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

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

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

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

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

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.