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 arvulisi väärtusi vahemikus, summeerida 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 meil 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öölehefunktsiooni 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)
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 jõuda tulemuseni. 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.
Rakendades MAXi Excelisse, leiame selle mõne sekundi jooksul.
Nüüd näeme, kuidas leida VBA-koodi abil maksimaalne väärtus.
Allolev kood täidab ülesande 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 maksimaalse väärtuse 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 funktsiooni MIN vastupidine valem excelis.
- MAX pole VBA funktsioon. See on Exceli sisseehitatud funktsioon, nii et töölehe funktsiooniklassi kasutades.
Selle Exceli malli saate alla laadida siit - funktsiooni VBA Max mall.
