VBA Max funktsioon | Kuidas leida maksimaalset Maxi kasutamist Exceli VBA-s?

Max, nagu nimigi ütleb, kasutatakse maksimaalse väärtuse väljaselgitamiseks antud andmekogumist või massiivist, see on töölehe funktsioon, nii et seda kasutatakse koos töölehemeetodiga töölehe funktsioonina, sellel meetodil on piirang, kuna see Funktsioon võtab argumendina massiivi. Massiivis võib olla ainult 30 väärtust.

Exceli VBA Max funktsioon

Meil on Excelis mitu arvfunktsiooni. Saame loendada vahemikus arvväärtusi, kokku võtta ja leida partii miinimumväärtuse ja maksimaalse väärtuse. Partii maksimaalse väärtuse leidmiseks on meil Exceli funktsioon nimega MAX, mis tagastab tarnitud numbrivahemiku maksimaalse väärtuse. VBA-s pole maksimaalse arvu saamiseks ühtegi sisseehitatud funktsiooni nimega “MAX”. Näeme, kuidas seda Exceli VBA Max-i funktsiooni kasutada.

Max funktsiooni näide Exceli VBA-s

Kahjuks pole meil luksust kasutada MAX-i VBA sisseehitatud funktsioonina, kuid sellele funktsioonile pääseme juurde töölehefunktsioonide klassi osana.

Nüüd vaadake allolevat koodi.

Kood:

 Alam MAX_näide1 () Hämarda täisarvu d b täisarvu d c täisarvu dimensiooni tulemus täisarvuna a = 50 b = 25 c = 60 tulemus = töölehtefunktsioon. Maks. (A, b, c) MsgBoxi tulemuse lõpp-alam 

Ülaltoodud näites olen numbri salvestamiseks deklareerinud kolm muutujat.

Dim a kui täisarv Dim b nagu täisarv Dim c nagu täisarv

Tulemuste kuvamiseks olen deklareerinud veel ühe muutuja.

Hämar tulemus täisarvuna.

Kolme esimese muutuja jaoks olen määranud väärtused vastavalt 50, 25 ja 60.

a = 50 b = 25 c = 60

Järgmisel real olen rakendanud MAX VBA töölehe funktsiooniklassina, et salvestada tulemus muutujale „Tulemus“.

Tulemus = WorksheetFunction. Max (a, b, c)

Nii et lõpuks näitan väärtust VBA teatekastis. MsgBoxi tulemus

Nüüd käivitan selle koodi F5 abil või käsitsi ja näen, mis tulemus on sõnumikastis.

Seega on tulemus 60.

Kõigist tarnitud numbritest, st 50, 25 ja 60, on maksimaalne arv 60.

Täpsem näide Maxist Exceli VBA-s

Silmad on VBA-s väga olulised, et läbida kõik lahtrid ja saada tulemus. Näeme, kuidas ühendada VBA MAX silmustega, et saada maksimaalne väärtus numbriloendist.

Mul on üksuste loend ja nende igakuine müügitulemus, nagu allpool näidatud.

Nüüd tahan iga kauba kohta teada saada, milline on maksimaalne müügiarv 4 kuu jooksul, nagu pildil näidatud.

MAXi rakendamine excelis võimaldab selle leida mõne sekundiga.

Nüüd näeme, kuidas leida VBA-koodi abil maksimaalne väärtus.

Koodi all täidetakse ülesanne leida iga üksuse jaoks maksimaalne arv.

Kood:

 Alam MAX_näide2 () Mõõt k k = 2 kuni 9 lahtri täisarvuna (k, 7). Väärtus = Töölehe funktsioon.Maks (Vahemik ("A" & k & ":" & "E" & k)) Järgmine k Lõpp alam 

See tuvastab maksimaalse arvu lihtsalt.

Nüüd käivitage kood käsitsi või vajutage klahvi F5 ja vaadake tulemust, nagu allpool näidatud.

Kuu nime maksimaalsete väärtuste saamiseks kasutage allolevat koodi.

Kood:

 Alam MAX_näide2 () Mõõt k k = 2 kuni 9 lahtri täisarvuna (k, 7). Väärtus = WorksheetFunction.Max (vahemik ("B" & k & ":" & "E" & k)) Lahtrid (k, 8) .Value = WorksheetFunction.Index (vahemik ("B1: E1"), WorksheetFunction.Match _ (lahtrid (k, 7). Väärtus, vahemik ("B" & k & ":" & "E" & k) )) Järgmine k End Sub 

Funktsiooni VBA max pakutava väärtuse põhjal tagastavad funktsioon INDEX ja MATCH seotud rea järgmisel real.

Asjad, mida meeles pidada

  • Kui nende duplikaatnumber on olemas, näitab see ainult ühte numbrit, mis on esimene.
  • See on funktsioonis MIN vastupidine valem excelis.
  • MAX ei ole VBA-funktsioon, see on Exceli sisseehitatud funktsioon, nii et töölehe funktsiooniklassi kasutades.

Selle Exceli malli saate alla laadida siit - funktsiooni VBA Max mall


$config[zx-auto] not found$config[zx-overlay] not found