A tömböt visszaadó VBA-függvények használata az Excel 2016-ban

A tömbképletek az Excel egyik leghatékonyabb funkciója. Ha ismeri a tömbképleteket, örömmel fogja tudni, hogy létrehozhat olyan VBA-függvényeket, amelyek tömböt adnak vissza.

Hónapnevek tömbjének visszaadása

Kezdjük egy egyszerű példával. A MonthNames függvény egy 12 elemből álló – kitalált – hónapnevek tömbjét adja vissza.

Funkció hónapnevek()
  MonthNames = Array("január", "február", "március", _
   „április”, „május”, „június”, „július”, „augusztus”, _
   "Szeptember október november december")
Funkció befejezése

A MonthNames függvény munkalapon való használatához 12 cellás tömbképletként kell megadnia. Például válassza ki az A2:L2 tartományt, és írja be a =Hónapnevek() parancsot . Ezután nyomja meg a Ctrl+Shift+Enter billentyűkombinációt, hogy beírja a tömbképletet mind a 12 kijelölt cellába. Nézze meg az eredményt.

A tömböt visszaadó VBA-függvények használata az Excel 2016-ban

A MonthNames függvény használata 12 elemű tömb visszaadásához.

Ha azt szeretné, hogy a hónapok nevei egy oszlopban jelenjenek meg, jelöljön ki 12 cellát egy oszlopban, és használja ezt a tömbképletet. (Ne felejtse el beírni a Ctrl+Shift+Enter lenyomásával.)

=TRANSPOSE(Hónapnevek())

Egyetlen hónapot is kiválaszthat a tömbből. Íme egy képlet (nem tömbképlet), amely a tömb negyedik elemét jeleníti meg: április.

=INDEX(Hónapnevek(),4)

Rendezett lista visszaadása

Tegyük fel, hogy van egy listája azoknak a neveknek, amelyeket rendezett sorrendben szeretne megjeleníteni egy másik cellatartományban. Nem lenne jó, ha ezt egy munkalap funkció elvégezné?

Ez az egyéni függvény pontosan ezt teszi: argumentumaként egy egyoszlopos cellatartományt vesz fel, majd e cellák tömbjét adja vissza rendezve. Az A2:A13 tartomány tartalmaz néhány nevet. A C2:C13 tartomány tartalmazza ezt a többcellás tömbképletet. (Ne feledje, hogy a képletet a Ctrl+Shift+Enter lenyomásával kell megadnia.)

A tömböt visszaadó VBA-függvények használata az Excel 2016-ban

Egyéni függvény használata rendezett tartomány visszaadásához.

=Rendezett (A2:A13)

Íme a Sorted függvény kódja:

Függvény rendezve (Rng As Range)
  Dim SortedData() Változatként
  Dim Cell As Range
  Dim Temp As Variant, i As Long, j As Long
  Dim NonEmpty Am Long
Adatok átvitele a SortedData-ba
  Minden egyes Rng cellához
    Ha nem IsEmpty(Cell) Akkor
      NonEmpty = NonEmpty + 1
      ReDim Preserve SortedData (1-től nem üres)
      SortedData(NonEmpty) = Cell.Value
    Vége Ha
  Következő cella
' Rendezd a tömböt
  Ha i = 1 - Nem Üres
    j = i + 1 esetén a NonEmptyhez
      Ha SortedData(i) > SortedData(j) Akkor
        Temp = Rendezett adatok (j)
        RendezettAdat(j) = RendezettAdat(i)
        SortedData(i) = Temp
      Vége Ha
    Következő j
  Következő i
' Transzponálja a tömböt, és adja vissza
  Rendezett = Application.Transpose(Rendezett adatok)
Funkció befejezése

A Sorted függvény egy SortedData nevű tömb létrehozásával kezdődik. Ez a tömb tartalmazza az argumentumtartomány összes nem üres értékét. Ezután a SortedData tömb rendezése buborék-rendezési algoritmus segítségével történik. Mivel a tömb vízszintes tömb, transzponálni kell, mielőtt a függvény visszaadja.

A rendezett függvény bármilyen méretű tartományban működik, mindaddig, amíg egyetlen oszlopban vagy sorban van. Ha a rendezetlen adatok egy sorban vannak, a képletnek az Excel TRANSPOSE funkcióját kell használnia a rendezett adatok vízszintes megjelenítéséhez. Például:

=TRANSPOSE(Rendezett(A16:L16))

Leave a Comment

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban. Részletes útmutató, hogyan készíthet különféle stílusú jegyzeteket bibliográfiai információkhoz vagy magyarázó megjegyzésekhez.

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Tudjon meg mindent arról, hogyan lehet az Excelben kiemelni a statisztikailag kiugró értékeket, mégpedig egyszerű eszközökkel és módszerekkel. Kiemelt figyelmet fordítunk a kiugró értékek azonosítására és kezelésére.

Hogyan lehet mintát venni az adatokból Excelben

Hogyan lehet mintát venni az adatokból Excelben

Az Excel Mintavételi eszközével véletlenszerűen kiválaszthat elemeket egy adatkészletből vagy választhat minden n-edik elemet. Ismerje meg, hogyan használhatja ezt a hasznos funkciót az adatelemzéshez!

10 klassz trükk a Microsoft Word 2019 programmal

10 klassz trükk a Microsoft Word 2019 programmal

Fedezze fel a Microsoft Word 2019 legjobb trükkjeit, amelyek segítenek a hatékonyabb munkavégzésben. Tudd meg, hogyan használhatod ki a program funkcióit!

Bekezdések igazítása és behúzása a Word 2019-ben

Bekezdések igazítása és behúzása a Word 2019-ben

A Word 2019-ben a bekezdések igazítása és behúzása kulcsfontosságú a dokumentumok megfelelő megjelenítéséhez. Ismerje meg a formázási lehetőségeket és tippeket a hatékonyabb munkához.

Az Excel 2019 Solver használata

Az Excel 2019 Solver használata

Fedezze fel, hogyan használhatja az Excel 2019 Solver bővítményt a komplex problémák megoldására. A célcella, változócellák és kényszerek beállítása lépésről lépésre.

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

A Word lehetővé teszi dinamikus elemek hozzáadását a dokumentumhoz. Fedezze fel, hogyan lehet különböző mezőket használni a Word programban a dinamikus tartalom létrehozásához.

Oszloptípusok a SharePoint 2010-ben

Oszloptípusok a SharePoint 2010-ben

A SharePoint 2010 oszlopai az adatok tárolására szolgálnak. Fedezze fel a különböző oszlop típusokat és azok alkalmazását a SharePoint rendszeren belül.

A nem kívánt szöveg eltávolítása a Word 2013-ban

A nem kívánt szöveg eltávolítása a Word 2013-ban

A Word 2013 szövegtörlésének képessége kulcsfontosságú, legyen szó szövegalkotásról vagy törlésről. Ismerje meg a hatékony szövegtörlési módszereket!

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

A fotóalbum funkció a PowerPoint 2016-ban lehetővé teszi, hogy egyszerre több fényképet illesszen be egy prezentációba, megkönnyítve ezzel a többszörös képek kezelését.