VBA kasutamine töölehe kaardi loomiseks

Kas olete kunagi proovinud tundmatut (ja keerulist) Exceli töövihikut mõtestada? Kasulik oleks näha kaarti, mis annab ülevaate, millised lahtrid sisaldavad konstante ja millised väärtusi.

Saate luua VBA utiliidi, mis loob aktiivse töölehe kaardi. Kaart luuakse uuel töölehel ja see koosneb värvikoodiga lahtritest, mis võimaldavad teil kiiresti tuvastada väärtused, teksti ja valemid.

Allpool näete sellise kaardi näidet. Teksti sisaldavad lahtrid on rohelised, arvväärtust sisaldavad lahtrid on kollased ja valemeid sisaldavad lahtrid on punased. Selline kaart aitab teil võimalikke vigu märgata. Näiteks kui üks valemiploki valem on väärtusega üle kirjutatud, paistab see lahter kaardivaates silma (nagu näites lahtris Q11).

VBA kasutamine töölehe kaardi loomiseks

QuickMap VBA kood

VBA protseduur, mis loob töölehe kaardi, on loetletud allpool. Kui soovite seda utiliiti kasutada, kopeerige kood ja kleepige see VBA moodulisse. Seejärel aktiveerige tööleht ja käivitage QuickMapi alamprogramm.

Sub QuickMap()
  Dim FormulaCells as Variant
  Dim TextCells as Variant
  Dim NumberCells as Variant
  Hämar ala vahemikuna
  Kui TypeName(ActiveSheet) <> “Worksheet” Seejärel välju Sub
' Looge lahtri alamhulkade jaoks objektimuutujad
  Vea korral Jätka järgmisena
  Set FormulaCells = Vahemik(“A1”). SpecialCells _
   (xlValemid, xlNumbers + xlTextValues ​​+ xlLogical)
  Set TextCells = Vahemik(“A1”). SpecialCells(xlConstants, xlTextValues)
  Määra NumberCells = vahemik(“A1”). SpecialCells(xlConstants, xlNumbers)
  Viga GoTo 0 korral
Lisage uus leht ja vormindage see
  Lehed. Lisa
  Koos rakkudega
    .Veerulaius = 2
    .Font.Size = 8
    .HorizontalAlignment = xlCenter
  Lõpeta
  Application.ScreenUpdating = Vale
' Tehke valemi lahtrid
  Kui ei oleTühi (FormulaCells) Siis
    FormulaCells.Areas iga ala jaoks
      Koos ActiveSheet.Range(Piirkond.Aadress)
        .Value = "F"
        .Interior.ColorIndex = 3
      Lõpeta
    Järgmine piirkond
  Lõpeta Kui
' Tehke tekstilahtrid
  Kui ei oleTühi(tekstilahtrid), siis
    Iga ala jaoks jaotises TextCells.Areas
      Koos ActiveSheet.Range(Piirkond.Aadress)
        .Value = "T"
        .Interior.ColorIndex = 4
      Lõpeta
    Järgmine piirkond
  Lõpeta Kui
' Tehke numbrilised lahtrid
  Kui ei oleTühi(NumberCells) Siis
    Iga ala jaoks NumberCells.Areas
      Koos ActiveSheet.Range(Piirkond.Aadress)
        .Value = "N"
        .Interior.ColorIndex = 6
      Lõpeta
    Järgmine piirkond
  Lõpeta Kui
Lõpeta alam

Kuidas see töötab

Protseduur kontrollib esmalt, kas aktiivne leht on tööleht. Kui ei, siis on kiire väljumine ilma edasiste toiminguteta. Kui aktiivne leht on tööleht, loob protseduur eri lahtritüüpide tuvastamiseks meetodi SpecialCells abil kolm objektimuutujat. SpecialCellsi meetod on väga kasulik. Kui te pole sellega tuttav, vaadake seda Exceli veebiabifailist. Pange tähele funktsiooni On Error Resume Next kasutamist. Selle eesmärk on vältida viga, mis ilmneb siis, kui ükski lahter ei kvalifitseeru – näiteks kui töölehel pole valemeid.

Järgmisena lisab protseduur uue töölehe, vähendab lahtri laiust ja seab horisontaalse joonduse keskele. See samm on kosmeetiline. Seejärel lülitab alamseade ekraani värskendamise välja, et asju pisut kiirendada.

Järgmised kolm koodiplokki töötlevad rakke. Kui ükski lahter ei kvalifitseeru, on objekti muutuja tühi, nii et alam testib seda. Seejärel liigub rutiin läbi iga objekti vahemiku ala ja vormindab lahtri. Saate seda alamprogrammi osa hõlpsasti kohandada erineva vormingu rakendamiseks.

Selle utiliidi palju keerukama versiooni saamiseks vaadake lisandmoodulit Power Utility Pak .

Leave a Comment

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.

Kuidas parandada Word 2016 tavalist malli

Kuidas parandada Word 2016 tavalist malli

Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.

Kuidas Outlook 2016-s uusi kiireid samme luua

Kuidas Outlook 2016-s uusi kiireid samme luua

Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]

Stiili teegi sisu rakenduses SharePoint 2010

Stiili teegi sisu rakenduses SharePoint 2010

Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.

Kuidas SharePointi saite jagada ja jälgida

Kuidas SharePointi saite jagada ja jälgida

Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]