Töötamine VBA funktsioonidega, mis tagastavad massiivi Excel 2016-s

Massiivivalemid on üks Exceli võimsamaid funktsioone. Kui olete massiivivalemitega tuttav, on teil hea meel teada saada, et saate luua VBA-funktsioone, mis tagastavad massiivi.

Kuunimede massiivi tagastamine

Alustame lihtsa näitega. Funktsioon MonthNames tagastab kuunimede 12-elemendilise massiivi – arvasite ära.

Funktsioon Kuunimed()
  MonthNames = Array("jaanuar", "veebruar", "märts", _
   “aprill”, “mai”, “juuni”, “juuli”, “august”, _
   “September”, “Oktoober”, “November”, “Detsember”)
Lõpetamisfunktsioon

Funktsiooni MonthNames kasutamiseks töölehel peate selle sisestama 12-lahtrilise massiivivalemina. Näiteks valige vahemik A2:L2 ja sisestage =MonthNames() . Seejärel vajutage klahvikombinatsiooni Ctrl+Shift+Enter, et sisestada massiivi valem kõigis 12 valitud lahtris. Kontrollige tulemust.

Töötamine VBA funktsioonidega, mis tagastavad massiivi Excel 2016-s

Funktsiooni MonthNames kasutamine 12-elemendilise massiivi tagastamiseks.

Kui soovite, et kuude nimed kuvatakse veerus, valige veerus 12 lahtrit ja kasutage seda massiivi valemit. (Ärge unustage seda sisestada, vajutades klahvikombinatsiooni Ctrl+Shift+Enter.)

=TRANSPOSE(Kuunimed())

Samuti saate massiivist välja valida ühe kuu. Siin on valem (mitte massiivivalem), mis kuvab massiivi neljanda elemendi: Aprill.

=INDEKS(Kuunimed(),4)

Sorteeritud loendi tagastamine

Oletame, et teil on nimede loend, mida soovite mõnes teises lahtrivahemikus sorteeritud järjekorras kuvada. Kas poleks tore, kui töölehe funktsioon seda teie eest teeks?

See kohandatud funktsioon teeb just seda: see võtab oma argumendiks ühe veerulise lahtrivahemiku ja tagastab seejärel sorteeritud lahtrite massiivi. Vahemik A2:A13 sisaldab mõningaid nimesid. Vahemik C2:C13 sisaldab seda mitmerakulise massiivi valemit. (Pidage meeles, et peate sisestama valemi, vajutades klahvikombinatsiooni Ctrl+Shift+Enter.)

Töötamine VBA funktsioonidega, mis tagastavad massiivi Excel 2016-s

Sorteeritud vahemiku tagastamiseks kohandatud funktsiooni kasutamine.

=Sorditud (A2:A13)

Siin on funktsiooni Sorted kood:

Funktsioon sorteeritud (Rng vahemikuna)
  Dim SortedData() Variandina
  Dim Cell as Range
  Dim Temp as Variant, i As Long, j As Long
  Dim NonEmpty As Long
Andmete ülekandmine jaotisesse SortedData
  Iga Rng-i lahtri jaoks
    Kui ei ole tühi (lahter), siis
      NonEmpty = NonEmpty + 1
      ReDim Preserve Sorted Data (1 kuni mittetühi)
      SortedData(NonEmpty) = Lahtri väärtus
    Lõpeta Kui
  Järgmine lahter
' Sorteeri massiiv
  Kui i = 1, mittetühjaks
    Kui j = i + 1, mittetühjaks
      Kui SortedData(i) > SortedData(j) Siis
        Temp = SortedData(j)
        SortedData(j) = SortedData(i)
        SortedData(i) = Temp
      Lõpeta Kui
    Järgmine j
  Järgmine i
' Transponeerige massiiv ja tagastage see
  Sorteeritud = Application.Transpose (SortedData)
Lõpetamisfunktsioon

Funktsioon Sorted algab massiivi loomisega nimega SortedData. See massiiv sisaldab kõiki argumentide vahemikus olevaid mittetühje väärtusi. Järgmisena sorteeritakse SortedData massiiv, kasutades mullide sortimise algoritmi. Kuna massiiv on horisontaalne massiiv, tuleb see enne funktsiooni tagastamist transponeerida.

Sorditud funktsioon töötab mis tahes suurusega vahemikuga, kui see on ühes veerus või reas. Kui sortimata andmed on reas, peab teie valem kasutama sorteeritud andmete horisontaalseks kuvamiseks Exceli funktsiooni TRANSPOSE. Näiteks:

=TRANSPOSEERIMINE (Sorditud (A16:L16))

Leave a Comment

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.

Kuidas parandada Word 2016 tavalist malli

Kuidas parandada Word 2016 tavalist malli

Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.

Kuidas Outlook 2016-s uusi kiireid samme luua

Kuidas Outlook 2016-s uusi kiireid samme luua

Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]

Stiili teegi sisu rakenduses SharePoint 2010

Stiili teegi sisu rakenduses SharePoint 2010

Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.

Kuidas SharePointi saite jagada ja jälgida

Kuidas SharePointi saite jagada ja jälgida

Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]