Notkun VBA til að búa til vinnublaðskort

Hefur þú einhvern tíma reynt að átta þig á framandi (og flókinni) Excel vinnubók? Það væri gagnlegt að sjá kort sem gefur yfirlit yfir hvaða frumur innihalda fasta og hvaða frumur innihalda gildi.

Þú getur búið til VBA tól sem býr til kort af virka vinnublaðinu. Kortið er búið til á nýju vinnublaði og það samanstendur af litakóðuðum hólfum sem gera þér kleift að bera kennsl á gildi, texta og formúlur fljótt.

Hér að neðan sérðu dæmi um slíkt kort. Hólf sem innihalda texta eru græn, þau sem innihalda tölugildi eru gul og reitur sem innihalda formúlur eru rauðar. Slíkt kort getur hjálpað þér að koma auga á hugsanlegar villur. Til dæmis, ef einni formúlu í formúlublokk hefur verið skrifað yfir með gildi, mun sá reit skera sig úr á kortaskjánum (eins og í reit Q11 í dæminu).

Notkun VBA til að búa til vinnublaðskort

QuickMap VBA kóðann

VBA aðferðin sem býr til vinnublaðakortið er skráð hér að neðan. Ef þú vilt nota þetta tól, afritaðu bara kóðann og límdu hann í VBA einingu. Virkjaðu síðan vinnublað og keyrðu QuickMap undirrútínuna.

Undir QuickMap()
  Dimma FormulaCells Sem afbrigði
  Dimma TextCells sem afbrigði
  Dimma NumberCells Sem afbrigði
  Dimmt svæði sem svið
  Ef TypeName(ActiveSheet) <> “Worksheet” Þá Hætta undir
' Búðu til hlutbreytur fyrir frumuhlutmengi
  Á Villa Resume Next
  Stilltu FormulaCells = Range(“A1”).SpecialCells _
   (xlFormúlur, xlNumbers + xlTextValues ​​+ xlRökrétt)
  Stilltu TextCells = Range(“A1”).SpecialCells(xlConstants, xlTextValues)
  Stilltu NumberCells = Range(“A1”).SpecialCells(xlConstants, xlNumbers)
  Við Villa GoTo 0
' Bættu við nýju blaði og forsníða það
  Blað.Bæta við
  Með frumum
    .ColumnWidth = 2
    Leturstærð = 8
    .HorizontalAlignment = xlCenter
  Enda með
  Application.ScreenUpdating = False
' Gerðu formúlufrumurnar
  Ef ekki er tóm(formúlafrumur) þá
    Fyrir hvert svæði í FormulaCells.Areas
      Með ActiveSheet.Range(Area.Address)
        .Value = „F“
        .Interior.ColorIndex = 3
      Enda með
    Næsta svæði
  End If
' Gerðu textafrumurnar
  Ef ekki er tómt(textafrumur) þá
    Fyrir hvert svæði í TextCells.Areas
      Með ActiveSheet.Range(Area.Address)
        .Value = „T“
        .Interior.ColorIndex = 4
      Enda með
    Næsta svæði
  End If
' Gerðu tölulegar frumur
  Ef ekki er tómt (talnafrumur) þá
    Fyrir hvert svæði í NumberCells.Areas
      Með ActiveSheet.Range(Area.Address)
        .Value = „N“
        .Interior.ColorIndex = 6
      Enda með
    Næsta svæði
  End If
End Sub

Hvernig það virkar

Aðferðin athugar fyrst hvort virka blaðið sé vinnublað. Ef það er ekki, þá er fljótleg hætta án frekari aðgerða. Þegar virka blaðið er vinnublað býr aðferðin til þrjár hlutbreytur með því að nota SpecialCells aðferðina til að bera kennsl á hinar ýmsu frumugerðir. SpecialCells aðferðin er mjög gagnleg. Ef þú þekkir það ekki skaltu skoða það í hjálparskrá Excel á netinu. Taktu eftir notkun On Error Resume Next. Þetta er til að forðast villuna sem kemur upp ef engar frumur uppfylla skilyrði - til dæmis ef vinnublaðið hefur engar formúlur.

Næst bætir aðferðin við nýju vinnublaði, minnkar breidd klefans og stillir lárétta jöfnun á miðju. Þetta skref er snyrtivörur. Undirbúnaðurinn slekkur síðan á skjáuppfærslu til að flýta fyrir hlutunum aðeins.

Næstu þrír kóðablokkir vinna úr frumunum. Ef engar frumur uppfylla skilyrði, er hlutbreytan tóm, svo undirprófið fyrir þetta. Síðan fer rútínan í gegnum hvert svæði í Range hlutnum og forsníða hólfið. Þú getur auðveldlega sérsniðið þennan hluta undiráætlunarinnar til að nota mismunandi snið.

Skoðaðu Power Utility Pak viðbótina fyrir miklu flóknari útgáfu af þessu tóli.

Leave a Comment

Námundun tölur í Excel 2007 með ROUND, ROUNDUP og ROUNDDOWN

Námundun tölur í Excel 2007 með ROUND, ROUNDUP og ROUNDDOWN

Fyrir þá sem vilja læra um aðferðir eins og <strong>ROUND</strong>, <strong>ROUNDUP</strong> og <strong>ROUNDDOWN</strong> í Excel 2007, skoðaðu þessa skref-fyrir-skref leiðbeiningu um hvernig á að rúnna tölur á réttan hátt.

Hvernig á að koma í veg fyrir að Microsoft Word opni skrár í skrifvarinn ham á Windows

Hvernig á að koma í veg fyrir að Microsoft Word opni skrár í skrifvarinn ham á Windows

Hvernig á að koma í veg fyrir að Microsoft Word opni skrár í skrifvarandi ham á Windows. Microsoft Word opnar skrár í skrifvarandi ham, sem gerir það ómögulegt að breyta þeim? Ekki hafa áhyggjur, aðferðirnar eru hér að neðan

Hvernig á að laga ranga prentun á Microsoft Word skjölum

Hvernig á að laga ranga prentun á Microsoft Word skjölum

Hvernig á að laga villur við prentun á röngum Microsoft Word skjölum Villur við prentun Word skjala með breyttu letri, sóðalegar málsgreinar, texta sem vantar eða glatað efni eru nokkuð algengar. Hins vegar ekki

Eyddu penna- og auðkennisteikningum á PowerPoint-skyggnunum þínum

Eyddu penna- og auðkennisteikningum á PowerPoint-skyggnunum þínum

Ef þú hefur notað pennann eða hápunktarann ​​til að teikna á PowerPoint glærurnar þínar meðan á kynningu stendur geturðu vistað teikningarnar fyrir næstu kynningu eða eytt þeim út svo næst þegar þú sýnir þær byrjarðu á hreinum PowerPoint glærum. Fylgdu þessum leiðbeiningum til að eyða penna- og auðkenningarteikningum: Að eyða línum einni á […]

Innihald stílasafns í SharePoint 2010

Innihald stílasafns í SharePoint 2010

Stílsafnið inniheldur CSS skrár, Extensible Stylesheet Language (XSL) skrár og myndir sem notaðar eru af fyrirfram skilgreindum aðalsíðum, síðuuppsetningum og stjórntækjum í SharePoint 2010. Til að finna CSS skrár í stílasafni útgáfusíðunnar: Veldu Site Actions→ View Allt efni á síðunni. Innihald síðunnar birtist. Style bókasafnið er staðsett í […]

Snið tölur í þúsundum og milljónum í Excel skýrslum

Snið tölur í þúsundum og milljónum í Excel skýrslum

Ekki yfirgnæfa áhorfendur með stórkostlegum tölum. Í Microsoft Excel geturðu bætt læsileika mælaborða og skýrslna með því að forsníða tölurnar þínar þannig að þær birtast í þúsundum eða milljónum.

Hvernig á að deila og fylgja SharePoint síðum

Hvernig á að deila og fylgja SharePoint síðum

Lærðu hvernig á að nota SharePoints samfélagsnetverkfæri sem gera einstaklingum og hópum kleift að eiga samskipti, vinna saman, deila og tengjast.

Hvernig á að umbreyta dagsetningum í Julian snið í Excel

Hvernig á að umbreyta dagsetningum í Julian snið í Excel

Julian dagsetningar eru oft notaðar í framleiðsluumhverfi sem tímastimpill og fljótleg tilvísun fyrir lotunúmer. Þessi tegund af dagsetningarkóðun gerir söluaðilum, neytendum og þjónustuaðilum kleift að bera kennsl á hvenær vara var framleidd og þar með aldur vörunnar. Julian dagsetningar eru einnig notaðar í forritun, hernum og stjörnufræði. Mismunandi […]

Hvernig á að búa til Access Web App

Hvernig á að búa til Access Web App

Þú getur búið til vefforrit í Access 2016. Svo hvað er vefforrit eiginlega? Jæja, vefurinn þýðir að hann er á netinu og app er bara stytting fyrir „umsókn“. Sérsniðið vefforrit er gagnagrunnsforrit á netinu sem hægt er að nálgast úr skýinu með vafra. Þú smíðar og viðheldur vefforritinu í skrifborðsútgáfunni […]

Quick Launch Bar í SharePoint 2010

Quick Launch Bar í SharePoint 2010

Flestar síður í SharePoint 2010 sýna lista yfir flakktengla á flýtiræsingarstikunni vinstra megin á síðunni. Flýtiræsingarstikan sýnir tengla á innihaldsefni vefsvæða eins og lista, bókasöfn, síður og útgáfusíður. Flýtiræsingarstikan inniheldur tvo mjög mikilvæga tengla: Tengill á allt efni vefsvæðis: […]