Korištenje VBA za izradu karte radnog lista

Jeste li ikada pokušali smisliti nepoznatu (i kompliciranu) Excel radnu knjigu? Bilo bi korisno vidjeti kartu koja pruža pregled koje ćelije sadrže konstante, a koje vrijednosti.

Možete stvoriti VBA uslužni program koji generira kartu aktivnog radnog lista. Karta se generira na novom radnom listu i sastoji se od ćelija označenih bojama koje vam omogućuju brzo prepoznavanje vrijednosti, teksta i formula.

U nastavku vidite primjer takve karte. Ćelije koje sadrže tekst su zelene, one koje sadrže numeričku vrijednost su žute, a ćelije koje sadrže formule su crvene. Takva karta može vam pomoći uočiti potencijalne pogreške. Na primjer, ako je jedna formula u bloku formula prepisana vrijednošću, ta će se ćelija isticati u prikazu karte (kao u ćeliji Q11 u primjeru).

Korištenje VBA za izradu karte radnog lista

QuickMap VBA kod

VBA procedura koja generira kartu radnog lista navedena je u nastavku. Ako želite koristiti ovaj uslužni program, samo kopirajte kod i zalijepite ga u VBA modul. Zatim aktivirajte radni list i izvršite podprogram QuickMap.

Sub QuickMap()
  Dim FormulaCells kao varijanta
  Zatamnjene tekstualne ćelije kao varijanta
  Dim NumberCells kao varijanta
  Zatamnjeno područje kao raspon
  Ako TypeName(ActiveSheet) <> “Worksheet” Zatim izađite iz Sub
' Stvorite objektne varijable za podskupove ćelija
  U slučaju pogreške Nastavi dalje
  Postavite FormulaCells = Raspon(“A1”).SpecialCells _
   (xlFormule, xlNumbers + xlTextValues ​​+ xlLogical)
  Postavite TextCells = Raspon(“A1”).SpecialCells(xlConstants, xlTextValues)
  Postavi NumberCells = Raspon(“A1”).SpecialCells(xlConstants, xlNumbers)
  U slučaju pogreške Idite na 0
' Dodajte novi list i formatirajte ga
  Listovi.Dodaj
  Sa stanicama
    .Širina stupca = 2
    .Veličina fonta = 8
    .HorizontalAlignment = xlCenter
  Završi s
  Application.ScreenUpdating = False
' Napravite ćelije formule
  Ako nije IsEmpty(FormulaCells) Onda
    Za svako područje u FormulaCells.Područja
      S ActiveSheet.Range(Area.Address)
        .Vrijednost = "F"
        .Interijer.Indeks boja = 3
      Završi s
    Sljedeće područje
  Završi ako
' Napravite tekstualne ćelije
  Ako nije IsEmpty(TextCells) Onda
    Za svako područje u tekstualnim ćelijama.Područja
      S ActiveSheet.Range(Area.Address)
        .Vrijednost = "T"
        .Interijer.Indeks boja = 4
      Završi s
    Sljedeće područje
  Završi ako
' Napravite numeričke ćelije
  Ako nije IsEmpty(NumberCells) Onda
    Za svako područje u NumberCells.Područja
      S ActiveSheet.Range(Area.Address)
        .Vrijednost = "N"
        .Interijer.Indeks boja = 6
      Završi s
    Sljedeće područje
  Završi ako
Kraj Sub

Kako radi

Postupak prvo provjerava je li aktivni list radni list. Ako nije, postoji brzi izlaz bez daljnjih radnji. Kada je aktivni list radni list, procedura stvara tri objektne varijable korištenjem metode SpecialCells za identifikaciju različitih tipova ćelija. Metoda SpecialCells je vrlo korisna. Ako niste upoznati s njim, provjerite ga u Excelovoj online datoteci pomoći. Obratite pažnju na upotrebu opcije Nastavi nakon pogreške. Ovo je kako bi se izbjegla pogreška koja se javlja ako nijedna ćelija ne ispunjava uvjete - na primjer, ako radni list nema formule.

Zatim, postupak dodaje novi radni list, smanjuje širinu ćelije i postavlja vodoravno poravnanje na centar. Ovaj korak je kozmetički. Podmornica tada isključuje ažuriranje zaslona kako bi se stvari malo ubrzale.

Sljedeća tri bloka koda obrađuju ćelije. Ako nijedna ćelija nije kvalificirana, varijabla objekta je Empty, tako da podtestira to. Zatim, rutina petlja kroz svako područje u objektu Range i formatira ćeliju. Ovaj dio potprograma možete jednostavno prilagoditi za primjenu različitog oblikovanja.

Pogledajte dodatak Power Utility Pak za mnogo sofisticiraniju verziju ovog uslužnog programa.


Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows

Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows

Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows Microsoft Word otvara datoteke u načinu rada samo za čitanje, što onemogućuje njihovo uređivanje? Ne brinite, metode su navedene u nastavku

Kako popraviti pogrešan ispis Microsoft Word dokumenata

Kako popraviti pogrešan ispis Microsoft Word dokumenata

Kako popraviti pogreške u ispisu netočnih Microsoft Word dokumenata Pogreške u ispisu Word dokumenata s promijenjenim fontovima, neurednim odlomcima, nedostajućim tekstom ili izgubljenim sadržajem vrlo su česte. Međutim, nemojte

Izbrišite crteže olovkom i markerom na svojim PowerPoint slajdovima

Izbrišite crteže olovkom i markerom na svojim PowerPoint slajdovima

Ako ste upotrijebili olovku ili marker za crtanje na PowerPoint slajdovima tijekom prezentacije, možete spremiti crteže za sljedeću prezentaciju ili ih izbrisati tako da ćete sljedeći put kada ih pokažete početi s čistim PowerPoint slajdovima. Slijedite ove upute za brisanje crteža olovkom i markerom: Brisanje linija jedan na […]

Sadržaj biblioteke stilova u sustavu SharePoint 2010

Sadržaj biblioteke stilova u sustavu SharePoint 2010

Biblioteka stilova sadrži CSS datoteke, datoteke Extensible Stylesheet Language (XSL) i slike koje koriste unaprijed definirane glavne stranice, izgledi stranica i kontrole u SharePointu 2010. Da biste locirali CSS datoteke u biblioteci stilova web-mjesta za objavljivanje: Odaberite Radnje web-mjesta→Prikaz Sav sadržaj web-mjesta. Pojavljuje se sadržaj stranice. Knjižnica Style nalazi se u […]

Formatirajte brojeve u tisućama i milijunima u Excel izvješćima

Formatirajte brojeve u tisućama i milijunima u Excel izvješćima

Nemojte zatrpavati svoju publiku ogromnim brojevima. U Microsoft Excelu možete poboljšati čitljivost svojih nadzornih ploča i izvješća formatiranjem brojeva tako da se prikazuju u tisućama ili milijunima.

Kako dijeliti i pratiti SharePoint web-mjesta

Kako dijeliti i pratiti SharePoint web-mjesta

Naučite kako koristiti SharePointove alate za društveno umrežavanje koji pojedincima i grupama omogućuju komunikaciju, suradnju, dijeljenje i povezivanje.

Kako pretvoriti datume u julijanske formate u Excelu

Kako pretvoriti datume u julijanske formate u Excelu

Julijanski datumi se često koriste u proizvodnim okruženjima kao vremenska oznaka i brza referenca za broj serije. Ova vrsta datumskog kodiranja omogućuje trgovcima na malo, potrošačima i uslužnim agentima da identificiraju kada je proizvod napravljen, a time i starost proizvoda. Julijanski datumi se također koriste u programiranju, vojsci i astronomiji. Drugačiji […]

Kako stvoriti Access web aplikaciju

Kako stvoriti Access web aplikaciju

Možete izraditi web-aplikaciju u Accessu 2016. Dakle, što je uopće web-aplikacija? Pa, web znači da je online, a aplikacija je samo skraćenica za "aplikaciju". Prilagođena web-aplikacija je online aplikacija baze podataka kojoj se pristupa iz oblaka pomoću preglednika. Vi gradite i održavate web-aplikaciju u verziji za stolna računala […]

Traka za brzo pokretanje u sustavu SharePoint 2010

Traka za brzo pokretanje u sustavu SharePoint 2010

Većina stranica u sustavu SharePoint 2010 prikazuje popis navigacijskih veza na traci za brzo pokretanje na lijevoj strani stranice. Traka za brzo pokretanje prikazuje veze na istaknuti sadržaj web-mjesta kao što su popisi, knjižnice, web-mjesta i stranice za objavljivanje. Traka za brzo pokretanje uključuje dvije vrlo važne veze: vezu za sav sadržaj web-mjesta: […]

Što znače poruke o greškama Solvera u Excelu?

Što znače poruke o greškama Solvera u Excelu?

Za jednostavne probleme, Solver u Excelu obično brzo pronalazi optimalne vrijednosti varijable Solvera za funkciju cilja. No, u nekim slučajevima, Solver ima problema s pronalaženjem vrijednosti varijable Solvera koje optimiziraju funkciju cilja. U tim slučajevima, Solver obično prikazuje poruku ili poruku o pogrešci koja opisuje ili raspravlja o problemu koji […]