Darbs ar VBA funkcijām, kas atgriež masīvu programmā Excel 2016

Masīvu formulas ir viena no Excel jaudīgākajām funkcijām. Ja esat iepazinies ar masīvu formulām, jūs priecāsities uzzināt, ka varat izveidot VBA funkcijas, kas atgriež masīvu.

Atgriež mēnešu nosaukumu masīvu

Sāksim ar vienkāršu piemēru. Funkcija MonthNames atgriež 12 elementu masīvu ar mēnešu nosaukumiem — jūs to uzminējāt.

Funkcija MonthNames()
  MonthNames = Array ("janvāris", "februāris", "marts", _
   “Aprīlis”, “Maijs”, “Jūnijs”, “Jūlijs”, “Augusts”, _
   “Septembris”, “Oktobris”, “Novembris”, “Decembris”)
Beigu funkcija

Lai darblapā izmantotu funkciju MonthNames, tā jāievada kā 12 šūnu masīva formula. Piemēram, atlasiet diapazonu A2:L2 un ievadiet =MonthNames() . Pēc tam nospiediet Ctrl+Shift+Enter, lai ievadītu masīva formulu visās 12 atlasītajās šūnās. Pārbaudiet rezultātu.

Darbs ar VBA funkcijām, kas atgriež masīvu programmā Excel 2016

Funkcijas MonthNames izmantošana, lai atgrieztu 12 elementu masīvu.

Ja vēlaties, lai mēnešu nosaukumi tiktu parādīti kolonnā, atlasiet 12 šūnas kolonnā un izmantojiet šo masīva formulu. (Neaizmirstiet to ievadīt, nospiežot Ctrl+Shift+Enter.)

=TRANSPOSE(Mēneša nosaukumi())

Varat arī izvēlēties vienu mēnesi no masīva. Šeit ir formula (nevis masīva formula), kas parāda masīva ceturto elementu: aprīlis.

=INDEKSS(Mēneša nosaukumi(),4)

Sakārtota saraksta atgriešana

Pieņemsim, ka jums ir saraksts ar nosaukumiem, kurus vēlaties rādīt sakārtotā secībā citā šūnu diapazonā. Vai nebūtu jauki, ja darblapas funkcija to izdarītu jūsu vietā?

Šī pielāgotā funkcija dara tieši to: tā kā argumentu izmanto vienas kolonnas šūnu diapazonu un pēc tam atgriež šo sakārtoto šūnu masīvu. Diapazons A2:A13 satur dažus nosaukumus. Diapazons C2:C13 satur šo daudzšūnu masīva formulu. (Atcerieties, ka formula jāievada, nospiežot Ctrl+Shift+Enter.)

Darbs ar VBA funkcijām, kas atgriež masīvu programmā Excel 2016

Pielāgotas funkcijas izmantošana, lai atgrieztu sakārtotu diapazonu.

=Sakārtots (A2:A13)

Šeit ir funkcijas Kārtotais kods:

Funkcija sakārtota (Rng kā diapazons)
  Dim SortedData() kā variants
  Dim Cell As Range
  Dim Temp As Variant, i As Long, j As Long
  Dim NonEmpty As Long
Pārsūtiet datus uz SortedData
  Katrai Rng šūnai
    Ja Not IsEmpty(Cell) Tad
      NonEmpty = NonEmpty + 1
      RedDim Saglabāt sakārtotos datus (no 1 uz netukšu)
      Sakārtotie dati (NonEmpty) = Šūna.Vērtība
    Beigas Ja
  Nākamā šūna
' Kārtojiet masīvu
  Ja i = 1 uz NonEmpty
    Ja j = i + 1 uz NonEmpty
      Ja SortedData(i) > SortedData(j) Tad
        Temp = sakārtoti dati(j)
        Kārtoti dati(j) = sakārtoti dati(i)
        SortedData(i) = Temp
      Beigas Ja
    Nākamais j
  Nākamais i
' Transponējiet masīvu un atgrieziet to
  Sakārtots = Application.Transpose(SortedData)
Beigu funkcija

Funkcija Sorted sākas, izveidojot masīvu ar nosaukumu SortedData. Šajā masīvā ir visas argumentu diapazona vērtības, kas nav tukšas. Pēc tam tiek sakārtots SortedData masīvs, izmantojot burbuļu kārtošanas algoritmu. Tā kā masīvs ir horizontāls masīvs, tas ir jātransponē, pirms funkcija to atgriež.

Kārtotā funkcija darbojas ar jebkura lieluma diapazonu, ja vien tā atrodas vienā kolonnā vai rindā. Ja nešķirotie dati atrodas rindā, jūsu formulai ir jāizmanto Excel funkcija TRANSPOSE, lai kārtotos datus parādītu horizontāli. Piemēram:

=TRANSPOZĒT(Sakārtots(A16:L16))

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk

Kā novērst nepareizu Microsoft Word dokumentu drukāšanu

Kā novērst nepareizu Microsoft Word dokumentu drukāšanu

Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]

Veidojiet bibliotēkas saturu programmā SharePoint 2010

Veidojiet bibliotēkas saturu programmā SharePoint 2010

Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.

Kā koplietot un sekot līdzi SharePoint vietnēm

Kā koplietot un sekot līdzi SharePoint vietnēm

Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.

Kā programmā Excel konvertēt datumus Juliana formātos

Kā programmā Excel konvertēt datumus Juliana formātos

Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]

Kā izveidot Access Web App

Kā izveidot Access Web App

Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]

Ātrās palaišanas josla programmā SharePoint 2010

Ātrās palaišanas josla programmā SharePoint 2010

Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]