Darbas su VBA funkcijomis, kurios grąžina masyvą programoje „Excel 2016“.

Masyvo formulės yra viena iš galingiausių „Excel“ funkcijų. Jei esate susipažinę su masyvo formulėmis, jums bus malonu žinoti, kad galite sukurti VBA funkcijas, kurios grąžina masyvą.

Grąžina mėnesių pavadinimų masyvą

Pradėkime nuo paprasto pavyzdžio. Funkcija MonthNames grąžina 12 elementų masyvą, sudarytą iš – jūs atspėjote – mėnesių pavadinimų.

Funkcijos Mėnesių pavadinimai ()
  Mėnesių vardai = Array ("sausis", "vasaris", "kovas", _
   „balandis“, „gegužė“, „birželis“, „liepa“, „rugpjūtis“, _
   „rugsėjis“, „spalis“, „lapkritis“, „gruodis“)
Pabaigos funkcija

Norėdami naudoti funkciją MonthNames darbalapyje, turite įvesti ją kaip 12 langelių masyvo formulę. Pavyzdžiui, pasirinkite diapazoną A2:L2 ir įveskite =Mėnesio vardai() . Tada paspauskite Ctrl+Shift+Enter, kad įvestumėte masyvo formulę visose 12 pasirinktų langelių. Patikrinkite rezultatą.

Darbas su VBA funkcijomis, kurios grąžina masyvą programoje „Excel 2016“.

Funkcijos MonthNames naudojimas norint grąžinti 12 elementų masyvą.

Jei norite, kad mėnesių pavadinimai būtų rodomi stulpelyje, pasirinkite 12 langelių stulpelyje ir naudokite šią masyvo formulę. (Nepamirškite jo įvesti paspausdami Ctrl+Shift+Enter.)

=TRANSPOSE(Mėnesio vardai())

Taip pat iš masyvo galite pasirinkti vieną mėnesį. Štai formulė (ne masyvo formulė), kuri rodo ketvirtąjį masyvo elementą: balandžio mėn.

=INDEKSAS(mėnesio vardai(),4)

Grąžina surūšiuotą sąrašą

Tarkime, kad turite pavadinimų sąrašą, kurį norite rodyti surūšiuota tvarka kitame langelių diapazone. Argi nebūtų puiku, jei darbalapio funkcija tai padarytų už jus?

Ši pasirinktinė funkcija atlieka būtent tai: kaip argumentą paima vieno stulpelio langelių diapazoną ir grąžina surūšiuotų langelių masyvą. Diapazone A2:A13 yra keletas pavadinimų. Diapazonas C2:C13 apima šią kelių langelių masyvo formulę. (Atminkite, kad formulę turite įvesti paspausdami Ctrl+Shift+Enter.)

Darbas su VBA funkcijomis, kurios grąžina masyvą programoje „Excel 2016“.

Pasirinktinės funkcijos naudojimas surūšiuotam diapazonui grąžinti.

=Surūšiuota (A2:A13)

Štai funkcijos Rūšiuoti kodas:

Funkcija surūšiuota (Rng kaip diapazonas)
  Pritemdyti Rūšiuoti duomenys () kaip variantas
  Pritemdyti langelį kaip diapazoną
  Dim Temp As Variant, i As Long, j As Long
  Pritemdyti NonEmpty As Long
Perkelkite duomenis į „SortedData“.
  Kiekvienai Rng ląstelei
    Jei Ne IsEmpty (Cell) Tada
      NonEmpty = NeTuščia + 1
      „ReDim“ išsaugoti surūšiuotus duomenis (nuo 1 iki netuščios)
      RūšiuotiDuomenys(NonTušti) = Cell.Value
    Pabaiga, jei
  Kitas langelis
' Rūšiuoti masyvą
  Jei i = 1 Į Non Empty
    Jei j = i + 1 Į Non Empty
      Jei RūšiuotiDuomenys(i) > RūšiuotiDuomenys(j) Tada
        Temp = Rūšiuoti duomenys (j)
        Rūšiuoti duomenys (j) = Rūšiuoti duomenys (i)
        Rūšiuoti duomenys(i) = Temp
      Pabaiga, jei
    Kitas j
  Toliau i
' Perkelkite masyvą ir grąžinkite jį
  Rūšiuota = Application.Transpose(SortedData)
Pabaigos funkcija

Funkcija Rūšiuoti pradedama sukuriant masyvą pavadinimu SortedData. Šiame masyve yra visos netuščios reikšmės argumentų diapazone. Tada „SortedData“ masyvas rūšiuojamas naudojant burbulų rūšiavimo algoritmą. Kadangi masyvas yra horizontalus masyvas, jis turi būti perkeltas prieš grąžinant funkcijai.

Rūšiuota funkcija veikia su bet kokio dydžio diapazonu, jei jis yra viename stulpelyje arba eilutėje. Jei nerūšiuoti duomenys yra eilutėje, jūsų formulėje turi būti naudojama „Excel“ funkcija TRANSPOSE, kad surūšiuoti duomenys būtų rodomi horizontaliai. Pavyzdžiui:

=TRANSPOZE (Surūšiuota (A16:L16))

Kaip neleisti „Microsoft Word“ atidaryti failų tik skaitymo režimu sistemoje „Windows“.

Kaip neleisti „Microsoft Word“ atidaryti failų tik skaitymo režimu sistemoje „Windows“.

Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau

Kaip ištaisyti neteisingą Microsoft Word dokumentų spausdinimą

Kaip ištaisyti neteisingą Microsoft Word dokumentų spausdinimą

Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia

Ištrinkite rašiklio ir paryškinimo piešinius savo „PowerPoint“ skaidrėse

Ištrinkite rašiklio ir paryškinimo piešinius savo „PowerPoint“ skaidrėse

Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]

Stilių bibliotekos turinys „SharePoint 2010“.

Stilių bibliotekos turinys „SharePoint 2010“.

Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]

Formatuokite skaičius tūkstančiais ir milijonais „Excel“ ataskaitose

Formatuokite skaičius tūkstančiais ir milijonais „Excel“ ataskaitose

Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.

Kaip bendrinti ir stebėti „SharePoint“ svetaines

Kaip bendrinti ir stebėti „SharePoint“ svetaines

Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.

Kaip konvertuoti datas į Juliano formatus programoje „Excel“.

Kaip konvertuoti datas į Juliano formatus programoje „Excel“.

Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]

Kaip sukurti „Access“ žiniatinklio programą

Kaip sukurti „Access“ žiniatinklio programą

Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]

Greitosios paleidimo juosta „SharePoint 2010“.

Greitosios paleidimo juosta „SharePoint 2010“.

Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]

Ką reiškia „Excel“ sprendimo klaidų pranešimai?

Ką reiškia „Excel“ sprendimo klaidų pranešimai?

Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]