VBA:n käyttäminen laskentataulukkokartan luomiseen

Oletko koskaan yrittänyt ymmärtää tuntematonta (ja monimutkaista) Excel-työkirjaa? Olisi hyödyllistä nähdä kartta, joka antaa yleiskuvan siitä, mitkä solut sisältävät vakioita ja mitkä solut sisältävät arvoja.

Voit luoda VBA-apuohjelman, joka luo aktiivisen laskentataulukon kartan. Kartta luodaan uudelle laskentataulukolle, ja se koostuu värikoodatuista soluista, joiden avulla voit nopeasti tunnistaa arvot, tekstin ja kaavat.

Alla on esimerkki tällaisesta kartasta. Solut, jotka sisältävät tekstiä, ovat vihreitä, solut, jotka sisältävät numeroarvon, ovat keltaisia ​​ja solut, jotka sisältävät kaavoja, ovat punaisia. Tällainen kartta voi auttaa sinua havaitsemaan mahdolliset virheet. Jos esimerkiksi yksi kaavalohkon kaava on korvattu arvolla, kyseinen solu erottuu karttanäkymässä (kuten esimerkin solussa Q11).

VBA:n käyttäminen laskentataulukkokartan luomiseen

QuickMap VBA -koodi

VBA-menettely, joka luo laskentataulukkokartan, on lueteltu alla. Jos haluat käyttää tätä apuohjelmaa, kopioi koodi ja liitä se VBA-moduuliin. Aktivoi sitten laskentataulukko ja suorita QuickMap-alirutiini.

Sub QuickMap()
  Dim FormulaCells vaihtoehtona
  Himmentää tekstisoluja vaihtoehtona
  Dim NumberCells Variant
  Himmeä alue vaihteluvälinä
  Jos TyypinNimi(ActiveSheet) <> “Työtaulukko” Poistu Sub
' Luo objektimuuttujat solun osajoukkoille
  Virheestä Jatka seuraavaksi
  Aseta FormulaCells = Alue("A1").Erityissolut _
   (xlKaavat, xlnumerot + xlTextValues ​​+ xlLogical)
  Aseta tekstisolut = alue ("A1"). Erikoissolut (xlConstants, xlTextValues)
  Aseta NumberCells = Alue ("A1"). Erikoissolut (xlVakiot, xlNumerot)
  Virheessä GoTo 0
' Lisää uusi arkki ja muotoile se
  Sheets.Add
  Solujen kanssa
    .Sarakkeen leveys = 2
    .Font.Size = 8
    .HorizontalAlignment = xlCenter
  Lopeta kanssa
  Application.ScreenUpdating = False
' Tee kaavasolut
  Jos ei IsEmpty(FormulaCells) Sitten
    Jokaiselle alueelle FormulaCells.Areasissa
      ActiveSheet.Range(alue.Osoite) kanssa
        .Arvo = "F"
        .Interior.ColorIndex = 3
      Lopeta kanssa
    Seuraava alue
  Loppu Jos
' Tee tekstisolut
  Jos Ei IsEmpty(Tekstisolut) Sitten
    Jokaiselle alueelle TextCells.Areasissa
      ActiveSheet.Range(alue.Osoite) kanssa
        .Arvo = "T"
        .Interior.ColorIndex = 4
      Lopeta kanssa
    Seuraava alue
  Loppu Jos
' Tee numeeriset solut
  Jos Ei IsEmpty(NumberCells) Sitten
    Jokaiselle alueelle NumberCells.Areasissa
      ActiveSheet.Range(alue.Osoite) kanssa
        .Arvo = "N"
        .Interior.ColorIndex = 6
      Lopeta kanssa
    Seuraava alue
  Loppu Jos
Lopeta ala

Kuinka se toimii

Toimenpide varmistaa ensin, että aktiivinen taulukko on laskentataulukko. Jos näin ei ole, on nopea poistuminen ilman lisätoimia. Kun aktiivinen taulukko on laskentataulukko, toiminto luo kolme objektimuuttujaa käyttämällä SpecialCells-menetelmää eri solutyyppien tunnistamiseen. SpecialCells-menetelmä on erittäin hyödyllinen. Jos et ole perehtynyt siihen, tarkista se Excelin online-ohjetiedostosta. Huomaa On Error Resume Next -toiminnon käyttö. Näin vältetään virhe, joka ilmenee, jos yksikään solu ei kelpaa – esimerkiksi jos laskentataulukossa ei ole kaavoja.

Seuraavaksi toimenpide lisää uuden laskentataulukon, pienentää solun leveyttä ja asettaa vaakasuuntaisen tasauksen keskelle. Tämä vaihe on kosmeettinen. Subi sammuttaa sitten näytön päivityksen nopeuttaakseen toimintaa hieman.

Seuraavat kolme koodilohkoa käsittelevät solut. Jos yksikään solu ei kelpaa, objektimuuttuja on Tyhjä, joten ali testaa tätä. Sitten rutiini kiertää jokaisen Alue-objektin alueen läpi ja muotoilee solun. Voit helposti mukauttaa tätä aliohjelman osaa soveltamaan erilaisia ​​muotoiluja.

Tutustu Power Utility Pak -apuohjelmaan saadaksesi paljon kehittyneemmän version tästä apuohjelmasta.


Kuinka estää Microsoft Wordia avaamasta tiedostoja vain luku -tilassa Windowsissa

Kuinka estää Microsoft Wordia avaamasta tiedostoja vain luku -tilassa Windowsissa

Kuinka estää Microsoft Wordia avaamasta tiedostoja vain luku -tilassa Windowsissa Microsoft Word avaa tiedostot vain luku -tilassa, jolloin niiden muokkaaminen on mahdotonta? Älä huoli, menetelmät ovat alla

Microsoft Word -asiakirjojen virheellisen tulostuksen korjaaminen

Microsoft Word -asiakirjojen virheellisen tulostuksen korjaaminen

Virheiden korjaaminen virheellisten Microsoft Word -asiakirjojen tulostuksessa. Virheet tulostettaessa Word-asiakirjoja, joissa on muuttuneet fontit, sotkuiset kappaleet, puuttuva teksti tai kadonnut sisältö ovat melko yleisiä. Älä kuitenkaan

Pyyhi kynä- ja korostuspiirrokset PowerPoint-dioistasi

Pyyhi kynä- ja korostuspiirrokset PowerPoint-dioistasi

Jos olet piirtänyt PowerPoint-dioihin esityksen aikana kynää tai korostuskynää, voit tallentaa piirustukset seuraavaa esitystä varten tai poistaa ne, jotta seuraavan kerran näytät ne. Aloitat puhtailla PowerPoint-dioilla. Pyyhi kynä- ja korostuskynäpiirrokset noudattamalla näitä ohjeita: Pyyhi rivit yksi kerrallaan […]

Tyylikirjaston sisältö SharePoint 2010:ssä

Tyylikirjaston sisältö SharePoint 2010:ssä

Tyylikirjasto sisältää CSS-tiedostoja, Extensible Stylesheet Language (XSL) -tiedostoja ja kuvia, joita käyttävät ennalta määritetyt sivupohjat, sivuasettelut ja säätimet SharePoint 2010:ssä. CSS-tiedostojen etsiminen julkaisusivuston tyylikirjastosta: Valitse Sivuston toiminnot→ Näytä Kaikki sivuston sisältö. Sivuston sisältö tulee näkyviin. Style-kirjasto sijaitsee […]

Muotoile numerot tuhansiksi ja miljooniksi Excel-raporteissa

Muotoile numerot tuhansiksi ja miljooniksi Excel-raporteissa

Älä hukuta yleisöäsi jättimäisillä numeroilla. Microsoft Excelissä voit parantaa koontinäyttöjesi ja raporttiesi luettavuutta muotoilemalla numerot näyttämään tuhansia tai miljoonia.

SharePoint-sivustojen jakaminen ja seuraaminen

SharePoint-sivustojen jakaminen ja seuraaminen

Opi käyttämään SharePointin sosiaalisen verkostoitumisen työkaluja, joiden avulla yksilöt ja ryhmät voivat kommunikoida, tehdä yhteistyötä, jakaa ja pitää yhteyttä.

Kuinka muuntaa päivämäärät Julian-muotoihin Excelissä

Kuinka muuntaa päivämäärät Julian-muotoihin Excelissä

Juliaanisia päivämääriä käytetään usein valmistusympäristöissä aikaleimana ja pikaviitteenä eränumerolle. Tämän tyyppisen päivämääräkoodauksen avulla jälleenmyyjät, kuluttajat ja huoltoedustajat voivat tunnistaa tuotteen valmistusajankohdan ja siten tuotteen iän. Julian-päivämääriä käytetään myös ohjelmoinnissa, armeijassa ja tähtitiedessä. Erilainen […]

Access-verkkosovelluksen luominen

Access-verkkosovelluksen luominen

Voit luoda verkkosovelluksen Access 2016:ssa. Mikä verkkosovellus sitten on? No, verkko tarkoittaa, että se on verkossa, ja sovellus on vain lyhenne sanoista "sovellus". Mukautettu verkkosovellus on online-tietokantasovellus, jota käytetään pilvestä selaimen avulla. Rakennat ja ylläpidät verkkosovellusta työpöytäversiossa […]

Pikakäynnistyspalkki SharePoint 2010:ssä

Pikakäynnistyspalkki SharePoint 2010:ssä

Useimmat SharePoint 2010:n sivut näyttävät navigointilinkkien luettelon pikakäynnistyspalkissa sivun vasemmassa reunassa. Pikakäynnistyspalkki näyttää linkit esitellyn sivuston sisältöön, kuten luetteloihin, kirjastoihin, sivustoihin ja julkaisusivuihin. Pikakäynnistyspalkki sisältää kaksi erittäin tärkeää linkkiä: Koko sivuston sisältö -linkki: […]

Mitä Ratkaisijan virheilmoitukset Excelissä tarkoittavat?

Mitä Ratkaisijan virheilmoitukset Excelissä tarkoittavat?

Yksinkertaisille ongelmille Excelin Ratkaisija löytää yleensä nopeasti optimaaliset Ratkaisijamuuttujien arvot tavoitefunktiolle. Mutta joissakin tapauksissa Ratkaisijalla on vaikeuksia löytää Solver-muuttujan arvoja, jotka optimoivat tavoitefunktion. Näissä tapauksissa Ratkaisija näyttää yleensä viestin tai virheilmoituksen, joka kuvaa tai käsittelee ongelmaa, jonka […]