Täältä löydät joitain suhteellisen yksinkertaisia mukautettuja Excel VBA -laskentataulukkotoimintoja, jotka ovat myös erittäin hyödyllisiä. Näitä toimintoja kutsutaan käärefunktioiksi, koska ne koostuvat koodista, joka on kääritty sisäisten VBA-elementtien ympärille. Toisin sanoen niiden avulla voit käyttää VBA-funktioita laskentataulukoiden kaavoissa.
Funktio User()
' Palauttaa nykyisen käyttäjän nimen
Käyttäjä = Sovellus.Käyttäjänimi
Lopeta toiminto
Tämä funktio pohjimmiltaan antaa kaavoillesi pääsyn Application-objektin UserName-ominaisuuteen.
NumberFormat-toiminto
Tämä toiminto näyttää yksinkertaisesti solun numeromuodon. Siitä voi olla hyötyä, jos haluat varmistaa, että kaikilla soluilla on sama numeromuoto.
Funktionumeromuoto (solu)
' Palauttaa solun numeromuodon
Numeromuoto = Solu(1).NumberFormat
Lopeta toiminto
Huomaatko solun (1) käytön? Jos argumenttina käytetään monisolualuetta, käytetään vain ensimmäistä solua.
Voit kirjoittaa helposti samankaltaisia toimintoja, jotka palauttavat solun tekstin värin, taustavärin, fontin ja niin edelleen.
ExtractElement-toiminto
Tämä käärefunktio palauttaa alimerkkijonon tekstimerkkijonosta, joka sisältää useita elementtejä erotettuna erotinmerkillä. Tämä kaava esimerkiksi palauttaa sanan lehmä, joka on välilyöntiä erottimena käyttävän merkkijonon kolmas elementti. Argumentit voivat tietysti olla soluviittauksia.
=OteElement("koira hevonen lehmä kissa", 3, " ")
Tässä on koodi, joka on VBA:n Split-toiminnon kääre:
Function ExtractElement (Txt, n, Sep)
' Palauttaa tekstimerkkijonon n:nnen elementin, jossa
' -elementit erotetaan määritetyllä erotinmerkillä
ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
Lopeta toiminto
Alla olevassa kuvassa näkyy ExtractElement-funktio, jota käytetään laskentataulukoiden kaavoissa. Sarake A sisältää tekstimerkkijonon, sarake B sisältää erotettavan elementin numeron ja sarake C sisältää erottimen (tyhjinä näyttävät solut sisältävät välilyönnin).
ExtractElement-funktion käyttäminen elementin palauttamiseen merkkijonosta.
SayIt-toiminto
Tämä yksinkertainen toiminto on kääre Application.Speech-objektin Speak-menetelmälle. Se käyttää syntetisoitua ääntä argumentin "puhumiseen".
Funktio SayIt(txt)
' Puhuu väitteen
Application.Speech.Speak txt, True
Lopeta toiminto
Tässä on esimerkki:
=JOS(C10>10000,Sano("Ylibudjetti""OK")
Kaava tarkistaa solun C10. Jos arvo on suurempi kuin 10 000, funktio puhuu tekstin: "Yli budjetin". Jos arvo on alle 10 000, funktio näyttää tekstin OK (eikä sano mitään).
Käytä säästeliäästi. Jos käytät tätä toimintoa useammin kuin kerran, se voi olla hyvin hämmentävää. Muista myös, että tämä toiminto arvioidaan aina, kun laskentataulukko lasketaan, joten ääni voi olla erittäin ärsyttävää, jos teet monia muutoksia. Tämä toiminto sopii luultavasti paremmin huvikäyttöön.
IsLike-toiminto
VBA:n Like-operaattori on erittäin joustava tapa verrata tekstijonoja. Tarkista se VBA-ohjejärjestelmästä. Tämä toiminto tuo tehon laskentataulukon kaavoihisi:
Funktio IsLike (teksti, kuvio)
' Palauttaa tosi, jos ensimmäinen argumentti on kuin toinen
IsLike = teksti Like kuvio
Lopeta toiminto