Použitie VBA na vytvorenie mapy pracovného hárka

Skúšali ste niekedy porozumieť neznámemu (a komplikovanému) excelovému zošitu? Pomohlo by vidieť mapu, ktorá poskytuje prehľad o tom, ktoré bunky obsahujú konštanty a ktoré bunky obsahujú hodnoty.

Môžete vytvoriť pomôcku VBA, ktorá vygeneruje mapu aktívneho pracovného hárka. Mapa sa vygeneruje na novom pracovnom hárku a pozostáva z farebne označených buniek, ktoré vám umožňujú rýchlo identifikovať hodnoty, text a vzorce.

Nižšie vidíte príklad takejto mapy. Bunky, ktoré obsahujú text, sú zelené, bunky, ktoré obsahujú číselnú hodnotu, sú žlté a bunky, ktoré obsahujú vzorce, sú červené. Takáto mapa vám môže pomôcť odhaliť potenciálne chyby. Ak bol napríklad jeden vzorec v bloku vzorcov prepísaný hodnotou, táto bunka vynikne v zobrazení mapy (ako v bunke Q11 v príklade).

Použitie VBA na vytvorenie mapy pracovného hárka

QuickMap VBA kód

Postup VBA, ktorý generuje mapu pracovného hárka, je uvedený nižšie. Ak chcete použiť tento nástroj, stačí skopírovať kód a prilepiť ho do modulu VBA. Potom aktivujte pracovný hárok a spustite podprogram QuickMap.

Sub QuickMap()
  Dim FormulaCells ako variant
  Dim TextCells ako variant
  Dim NumberCells ako variant
  Dim Area As Range
  Ak TypeName(ActiveSheet) <> “Worksheet” Potom Exit Sub
' Vytvorte premenné objektu pre podmnožiny buniek
  Pri chybe Pokračujte ďalej
  Nastaviť vzorecCells = Range(“A1”).SpecialCells _
   (xlFormulas, xlNumbers + xlTextValues ​​+ xlLogical)
  Set TextCells = Range(“A1”).SpecialCells(xlConstants, xlTextValues)
  Set NumberCells = Range(“A1”).ŠpeciálneCells(xlConstants, xlNumbers)
  Pri chybe Prejsť na 0
' Pridajte nový hárok a naformátujte ho
  Sheets.Add
  S bunkami
    .ColumnWidth = 2
    .Veľkosť písma = 8
    .HorizontalAlignment = xlCenter
  Koniec s
  Application.ScreenUpdating = False
' Urobte bunky vzorca
  If Not IsEmpty (FormulaCells) Then
    Pre každú oblasť vo FormulaCells.Areas
      S ActiveSheet.Range(Area.Address)
        .Value = „F“
        .Interior.ColorIndex = 3
      Koniec s
    Ďalšia oblasť
  Koniec Ak
' Urobte textové bunky
  If Not IsEmpty (TextCells) Then
    Pre každú oblasť v TextCells.Areas
      S ActiveSheet.Range(Area.Address)
        .Hodnota = „T“
        .Interior.ColorIndex = 4
      Koniec s
    Ďalšia oblasť
  Koniec Ak
' Urobte číselné bunky
  If Not IsEmpty (NumberCells) Then
    Pre každú oblasť v počteCells.Areas
      S ActiveSheet.Range(Area.Address)
        .Value = „N“
        .Interior.ColorIndex = 6
      Koniec s
    Ďalšia oblasť
  Koniec Ak
End Sub

Ako to funguje

Postup najprv skontroluje, či aktívny hárok je pracovný hárok. Ak nie, je tu rýchly odchod bez ďalšej akcie. Keď je aktívnym hárkom pracovný hárok, procedúra vytvorí tri objektové premenné pomocou metódy SpecialCells na identifikáciu rôznych typov buniek. Veľmi užitočná je metóda SpecialCells. Ak s ním nie ste oboznámení, pozrite si ho v súbore online pomocníka programu Excel. Všimnite si použitie možnosti On Error Resume Next. Je to preto, aby sa predišlo chybe, ktorá nastane, ak sa nekvalifikujú žiadne bunky – napríklad ak hárok nemá žiadne vzorce.

Ďalej postup pridá nový pracovný hárok, zmenší šírku bunky a nastaví vodorovné zarovnanie na stred. Tento krok je kozmetický. Sub potom vypne aktualizáciu obrazovky, aby sa veci trochu urýchlili.

Ďalšie tri bloky kódu spracovávajú bunky. Ak sa nekvalifikujú žiadne bunky, objektová premenná je prázdna, takže sa to podrobí podriadeným testom. Potom rutina prechádza každou oblasťou v objekte Range a naformátuje bunku. Túto časť podprogramu môžete jednoducho prispôsobiť, aby ste použili iné formátovanie.

Pozrite si doplnok Power Utility Pak pre oveľa sofistikovanejšiu verziu tohto nástroja.


Ako zablokovať Microsoft Word otváranie súborov v režime iba na čítanie v systéme Windows

Ako zablokovať Microsoft Word otváranie súborov v režime iba na čítanie v systéme Windows

Ako zablokovať Microsoft Word otváranie súborov v režime len na čítanie v systéme Windows Microsoft Word otvára súbory v režime len na čítanie, takže ich nie je možné upravovať? Nebojte sa, metódy sú uvedené nižšie

Ako opraviť nesprávnu tlač dokumentov Microsoft Word

Ako opraviť nesprávnu tlač dokumentov Microsoft Word

Ako opraviť chyby pri tlači nesprávnych dokumentov Microsoft Word Chyby pri tlači dokumentov Word so zmeneným typom písma, chaotickými odsekmi, chýbajúcim textom alebo strateným obsahom sú pomerne časté. Avšak, nie

Vymažte kresby perom a zvýrazňovačom na svojich PowerPointových snímkach

Vymažte kresby perom a zvýrazňovačom na svojich PowerPointových snímkach

Ak ste použili pero alebo zvýrazňovač na kreslenie na powerpointové snímky počas prezentácie, môžete si kresby uložiť pre ďalšiu prezentáciu alebo ich vymazať, aby ste pri ďalšom zobrazení začali s čistými powerpointovými snímkami. Ak chcete vymazať kresby perom a zvýrazňovačom, postupujte podľa týchto pokynov: Vymazanie riadkov jedna na […]

Obsah knižnice štýlov v SharePointe 2010

Obsah knižnice štýlov v SharePointe 2010

Knižnica štýlov obsahuje súbory CSS, súbory XSL (Extensible Stylesheet Language) a obrázky používané preddefinovanými vzorovými stránkami, rozloženiami strán a ovládacími prvkami v SharePointe 2010. Ak chcete nájsť súbory CSS v knižnici štýlov publikačnej lokality: Vyberte Akcie lokality→Zobraziť Všetok obsah stránky. Zobrazí sa obsah stránky. Knižnica štýlov sa nachádza v […]

Formátovanie čísel v tisíckach a miliónoch v správach Excel

Formátovanie čísel v tisíckach a miliónoch v správach Excel

Nezahlcujte svoje publikum obrovskými číslami. V programe Microsoft Excel môžete zlepšiť čitateľnosť svojich tabúľ a zostáv formátovaním čísel tak, aby sa zobrazovali v tisíckach alebo miliónoch.

Ako zdieľať a sledovať lokality SharePoint

Ako zdieľať a sledovať lokality SharePoint

Zistite, ako používať nástroje sociálnych sietí SharePoints, ktoré umožňujú jednotlivcom a skupinám komunikovať, spolupracovať, zdieľať a spájať sa.

Ako previesť dátumy do Julianových formátov v Exceli

Ako previesť dátumy do Julianových formátov v Exceli

Juliánske dátumy sa často používajú vo výrobných prostrediach ako časová pečiatka a rýchla referencia pre číslo šarže. Tento typ kódovania dátumu umožňuje maloobchodníkom, spotrebiteľom a servisným zástupcom identifikovať, kedy bol produkt vyrobený, a teda aj vek produktu. Juliánske dátumy sa používajú aj v programovaní, armáde a astronómii. Rôzne […]

Ako vytvoriť Access Web App

Ako vytvoriť Access Web App

V Accesse 2016 môžete vytvoriť webovú aplikáciu. Čo je to teda webová aplikácia? Web znamená, že je online a aplikácia je len skratka pre „aplikáciu“. Vlastná webová aplikácia je online databázová aplikácia, ku ktorej sa pristupuje z cloudu pomocou prehliadača. Vytvárate a udržiavate webovú aplikáciu vo verzii pre počítače […]

Panel rýchleho spustenia v SharePointe 2010

Panel rýchleho spustenia v SharePointe 2010

Väčšina stránok v SharePointe 2010 zobrazuje zoznam navigačných prepojení na paneli Rýchle spustenie pozdĺž ľavej strany stránky. Panel Rýchle spustenie zobrazuje prepojenia na odporúčaný obsah lokality, ako sú zoznamy, knižnice, lokality a publikačné stránky. Panel Rýchle spustenie obsahuje dva veľmi dôležité odkazy: Odkaz na celý obsah lokality: […]

Čo znamenajú chybové hlásenia v programe Excel?

Čo znamenajú chybové hlásenia v programe Excel?

Pre jednoduché problémy Riešiteľ v Exceli zvyčajne rýchlo nájde optimálne hodnoty premennej Riešiteľ pre cieľovú funkciu. V niektorých prípadoch má však Riešiteľ problém nájsť hodnoty premennej Riešiteľ, ktoré optimalizujú cieľovú funkciu. V týchto prípadoch Riešiteľ zvyčajne zobrazí hlásenie alebo chybové hlásenie, ktoré popisuje alebo diskutuje problém, ktorý […]