Uporaba VBA za ustvarjanje zemljevida delovnega lista

Ste že kdaj poskušali razbrati neznan (in zapleten) Excelov delovni zvezek? Koristno bi bilo videti zemljevid, ki ponuja pregled, katere celice vsebujejo konstante in katere celice vsebujejo vrednosti.

Ustvarite lahko pripomoček VBA, ki ustvari zemljevid aktivnega delovnega lista. Zemljevid je ustvarjen na novem delovnem listu in je sestavljen iz barvno kodiranih celic, ki vam omogočajo hitro prepoznavanje vrednosti, besedila in formul.

Spodaj vidite primer takega zemljevida. Celice, ki vsebujejo besedilo, so zelene, tiste, ki vsebujejo številsko vrednost, so rumene, celice, ki vsebujejo formule, pa rdeče. Tak zemljevid vam lahko pomaga odkriti morebitne napake. Na primer, če je bila ena formula v bloku formul prepisana z vrednostjo, bo ta celica izstopala v pogledu zemljevida (kot v celici Q11 v primeru).

Uporaba VBA za ustvarjanje zemljevida delovnega lista

Koda QuickMap VBA

Postopek VBA, ki generira zemljevid delovnega lista, je naveden spodaj. Če želite uporabiti ta pripomoček, samo kopirajte kodo in jo prilepite v modul VBA. Nato aktivirajte delovni list in izvedite podprogram QuickMap.

Sub QuickMap()
  Dim FormulaCells kot različica
  Zatemnite besedilne celice kot različica
  Dim NumberCells kot različica
  Zatemnjeno območje kot razpon
  Če TypeName(ActiveSheet) <> »Worksheet« Nato zapustite Sub
' Ustvarite spremenljivke objekta za podnabore celic
  Ob napaki Nadaljuj naprej
  Nastavite FormulaCells = Range(“A1”).SpecialCells _
   (xlFormule, xlNumbers + xlTextValues ​​+ xlLogical)
  Nastavi besedilne celice = Obseg(»A1«).SpecialCells(xlConstants, xlTextValues)
  Nastavite NumberCells = Obseg(»A1«).SpecialCells(xlConstants, xlNumbers)
  Ob napaki Pojdi na 0
« Dodajte nov list in ga formatirajte
  Listi.Dodaj
  S celicami
    .Širina stolpca = 2
    .Velikost pisave = 8
    .HorizontalAlignment = xlCenter
  Končaj z
  Application.ScreenUpdating = False
' Naredite celice formule
  Če ni IsEmpty(FormulaCells) Potem
    Za vsako področje v FormulaCells.Areas
      Z ActiveSheet.Range(Area.Address)
        .Vrednost = "F"
        .Interior.ColorIndex = 3
      Končaj z
    Naslednje območje
  Konec Če
' Naredite besedilne celice
  Če ni IsEmpty (TextCells) Potem
    Za vsako področje v TextCells.Areas
      Z ActiveSheet.Range(Area.Address)
        .Vrednost = "T"
        .Interior.ColorIndex = 4
      Končaj z
    Naslednje območje
  Konec Če
' Naredite številske celice
  Če ni IsEmpty(NumberCells) Potem
    Za vsako področje v NumberCells.Areas
      Z ActiveSheet.Range(Area.Address)
        .Vrednost = "N"
        .Interior.ColorIndex = 6
      Končaj z
    Naslednje območje
  Konec Če
Končni sub

Kako deluje

Postopek najprej preveri, ali je aktivni list delovni list. Če ni, je hiter izhod brez nadaljnjega ukrepanja. Ko je aktivni list delovni list, postopek ustvari tri spremenljivke objekta z uporabo metode SpecialCells za identifikacijo različnih tipov celic. Metoda SpecialCells je zelo uporabna. Če z njo niste seznanjeni, jo poglejte v Excelovi spletni datoteki pomoči. Upoštevajte uporabo možnosti Nadaljuj ob napaki Next. Tako se izognete napaki, ki se pojavi, če nobena celica ne izpolnjuje pogojev – na primer, če delovni list nima formul.

Nato postopek doda nov delovni list, zmanjša širino celice in nastavi vodoravno poravnavo na sredino. Ta korak je kozmetični. Podpora nato izklopi posodabljanje zaslona, ​​da nekoliko pospeši stvari.

Naslednji trije bloki kode obdelajo celice. Če nobena celica ne izpolnjuje pogojev, je spremenljivka objekta Empty, zato podpreizkusi za to. Nato se rutina pomakne skozi vsako območje v objektu Obseg in formatira celico. Ta del podprograma lahko preprosto prilagodite za uporabo različnih formatov.

Oglejte si dodatek Power Utility Pak za veliko bolj izpopolnjeno različico tega pripomočka.


Kako preprečiti, da Microsoft Word odpira datoteke v načinu samo za branje v sistemu Windows

Kako preprečiti, da Microsoft Word odpira datoteke v načinu samo za branje v sistemu Windows

Kako preprečiti, da Microsoft Word odpira datoteke v načinu samo za branje v sistemu Windows Microsoft Word odpira datoteke v načinu samo za branje, zaradi česar jih je nemogoče urejati? Ne skrbite, metode so spodaj

Kako popraviti nepravilno tiskanje dokumentov Microsoft Word

Kako popraviti nepravilno tiskanje dokumentov Microsoft Word

Kako odpraviti napake pri tiskanju nepravilnih dokumentov Microsoft Word Napake pri tiskanju dokumentov Word s spremenjeno pisavo, neurejenimi odstavki, manjkajočim besedilom ali izgubljeno vsebino so precej pogoste. Vendar pa ne

Izbrišite risbe s peresom in označevalnikom na diapozitivih PowerPoint

Izbrišite risbe s peresom in označevalnikom na diapozitivih PowerPoint

Če ste med predstavitvijo uporabili pero ali označevalnik za risanje po diapozitivih PowerPoint, lahko risbe shranite za naslednjo predstavitev ali jih izbrišete, tako da boste naslednjič, ko ga pokažete, začeli s čistimi PowerPointovimi diapozitivi. Sledite tem navodilom za brisanje risb s peresom in označevalnikom: Brisanje črt ena na […]

Vsebina knjižnice slogov v SharePointu 2010

Vsebina knjižnice slogov v SharePointu 2010

Knjižnica slogov vsebuje datoteke CSS, datoteke Extensible Stylesheet Language (XSL) in slike, ki jih uporabljajo vnaprej določene glavne strani, postavitve strani in kontrolniki v SharePointu 2010. Če želite poiskati datoteke CSS v knjižnici slogov na založniškem mestu: Izberite Dejanja mesta→ Pogled Vsa vsebina spletnega mesta. Prikaže se vsebina spletnega mesta. Knjižnica Style se nahaja v […]

Oblikujte številke v tisoče in milijone v poročilih Excel

Oblikujte številke v tisoče in milijone v poročilih Excel

Ne preobremenjujte občinstva z ogromnimi številkami. V Microsoft Excelu lahko izboljšate berljivost svojih nadzornih plošč in poročil tako, da oblikujete svoje številke tako, da se prikažejo v tisočih ali milijonih.

Kako deliti in spremljati SharePointova spletna mesta

Kako deliti in spremljati SharePointova spletna mesta

Naučite se uporabljati SharePointova orodja za socialno mreženje, ki posameznikom in skupinam omogočajo komunikacijo, sodelovanje, skupno rabo in povezovanje.

Kako pretvoriti datume v julijanske oblike v Excelu

Kako pretvoriti datume v julijanske oblike v Excelu

Julijanski datumi se v proizvodnih okoljih pogosto uporabljajo kot časovni žig in hitra referenca za številko serije. Ta vrsta datumskega kodiranja omogoča trgovcem na drobno, potrošnikom in servisnim agentom, da ugotovijo, kdaj je bil izdelek izdelan in s tem starost izdelka. Julijanski datumi se uporabljajo tudi v programiranju, vojski in astronomiji. Drugačen […]

Kako ustvariti spletno aplikacijo Access

Kako ustvariti spletno aplikacijo Access

Spletno aplikacijo lahko ustvarite v Accessu 2016. Kaj je torej spletna aplikacija? No, splet pomeni, da je na spletu, aplikacija pa je le okrajšava za »aplikacijo«. Spletna aplikacija po meri je spletna aplikacija baze podatkov, do katere dostopate iz oblaka z uporabo brskalnika. Spletno aplikacijo gradite in vzdržujete v namizni različici […]

Vrstica za hitri zagon v SharePointu 2010

Vrstica za hitri zagon v SharePointu 2010

Večina strani v SharePointu 2010 prikaže seznam navigacijskih povezav v vrstici za hitri zagon na levi strani strani. Vrstica za hitri zagon prikazuje povezave do predstavljene vsebine spletnega mesta, kot so seznami, knjižnice, spletna mesta in strani za objavljanje. Vrstica za hitri zagon vključuje dve zelo pomembni povezavi: Povezava do vse vsebine spletnega mesta: […]

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Pri preprostih težavah reševalec v Excelu običajno hitro najde optimalne vrednosti spremenljivke reševalca za ciljno funkcijo. Toda v nekaterih primerih ima Solver težave pri iskanju vrednosti spremenljivke Solver, ki optimizirajo ciljno funkcijo. V teh primerih Solver običajno prikaže sporočilo ali sporočilo o napaki, ki opisuje ali razpravlja o težavi, ki […]