seychellesartprojects.org

Maks., Kaip rodo pavadinimas, naudojamas norint sužinoti didžiausią vertę iš tam tikro duomenų rinkinio ar masyvo, tai yra darbalapio funkcija, todėl ji naudojama kartu su darbalapio metodu kaip darbalapio funkcija, šis metodas yra ribotas, nes šis Funkcija naudoja masyvą kaip argumentą. Masyve gali būti tik 30 reikšmių.

„Excel VBA Max“ funkcija

„Excel“ programoje turime keletą skaitinių funkcijų. Mes galime suskaičiuoti skaitmenines reikšmes diapazone, galime susumuoti ir surasti mažiausią bei maksimalią partijos vertę. Norėdami rasti maksimalią partijos vertę, turime „Excel“ funkciją, vadinamą MAX, kuri grąžins didžiausią pateikto skaičių diapazono vertę. VBA neturime jokios integruotos funkcijos, vadinamos „MAX“, kad gautume maksimalų skaičių. Pamatysime, kaip naudoti šią „Excel VBA Max“ funkciją.

Maksimalios „Excel VBA“ funkcijos pavyzdys

Deja, mes neturime prabangos naudoti „MAX“ kaip integruotą VBA funkciją, tačiau šią funkciją galime pasiekti kaip „Worksheet Function“ klasės dalį.

Dabar pažvelkite į žemiau pateiktą kodą.

Kodas:

 Sub MAX_Pavyzdys1 () Dim a kaip sveikasis matas b kaip sveikasis matas c kaip sveikasis skaičius Rezultatas kaip sveikasis skaičius = a = 50 b = 25 c = 60 rezultatas = WorksheetFunction. Maks. (A, b, c) MsgBox rezultatas Pabaiga Sub 

Ankstesniame pavyzdyje aš paskelbiau tris kintamuosius, kad galėčiau išsaugoti skaičių.

Dim a kaip sveikasis Dim b kaip sveikasis Dim c kaip sveikasis skaičius

Deklaravau dar vieną kintamąjį, kad būtų rodomi rezultatai.

Blankus rezultatas kaip sveikasis skaičius.

Pirmiems trims trims kintamiesiems aš priskyriau vertę, atitinkamai, 50, 25 ir 60.

a = 50 b = 25 c = 60

Kitoje eilutėje pritaikiau MAX kaip VBA darbalapio funkcijų klasę, kad rezultatas būtų saugomas kintamajam „Rezultatas“.

Rezultatas = WorksheetFunction. Maks. (A, b, c)

Taigi pagaliau aš rodau vertę VBA pranešimų laukelyje. „MsgBox“ rezultatas

Dabar paleisiu šį kodą naudodamas F5 arba rankiniu būdu ir pamatysiu, koks rezultatas yra pranešimo laukelyje.

Taigi, rezultatas yra 60.

Iš visų pateiktų skaičių, ty 50, 25 ir 60, didžiausias skaičius yra 60.

Išplėstinis „Max“ pavyzdys „Excel VBA“

Kilpos yra labai svarbios VBA, kad eitų per visas ląsteles ir gautų rezultatą. Mes pamatysime, kaip sujungti VBA MAX su kilpomis, kad iš skaičių sąrašo gautumėte didžiausią vertę.

Turiu daiktų sąrašą ir jų mėnesio pardavimo našumą, kaip parodyta žemiau.

Dabar norėčiau žinoti, koks yra didžiausias kiekvienos prekės pardavimo laikas per 4 mėnesius, kaip parodyta paveikslėlyje.

Pritaikę „MAX“ programoje „Excel“, tai galime rasti per kelias sekundes.

Dabar pamatysime, kaip rasti maksimalią vertę naudojant VBA kodą.

Žemiau kodas atliks užduotį rasti maksimalų kiekvieno elemento skaičių.

Kodas:

 MAX MAX_pavyzdys2 () Dim k kaip sveikoji k = 2–9 ląstelių (k, 7) sveikoji vertė. Vertė = WorksheetFunction.Max (diapazonas („A“ & k & „:“ & „E“ & k)) Kitas k End Sub 

Tai lengvai nustatys maksimalų skaičių.

Dabar paleiskite kodą rankiniu būdu arba paspauskite klavišą F5 ir pamatykite rezultatą, kaip parodyta žemiau.

Norėdami gauti maksimalias mėnesio pavadinimo reikšmes, naudokite žemiau pateiktą kodą.

Kodas:

 Sub MAX_Pavyzdys2 () Dim k kaip sveikoji k = 2–9 ląstelės (k, 7). Vertė = WorksheetFunction.Max (Diapazonas ("B" & k & ":" & "E" & k)) Ląstelės (k, 8) .Value = WorksheetFunction.Index (Range ("B1: E1"), WorksheetFunction.Match _ (Cells (k, 7). Value, Range ("B" & k & ":" & "E" & k)) )) Kitas k End Sub 

Pagal funkciją „VBA max“ pateiktą vertę „INDEX“ funkcija ir „MATCH“ funkcija grąžins susietą mėnesį kitoje eilutėje.

Ką reikia atsiminti

• Jei yra jų pasikartojantis numeris, jis parodys tik vieną numerį, kuris bus pirmasis.
• Tai yra priešinga MIN funkcijos „Excel“ formulė.
• MAX nėra VBA funkcija, ji yra integruota „Excel“ funkcija, todėl naudojant darbalapio funkcijų klasę.

Šį „Excel“ šabloną galite atsisiųsti čia - „VBA Max“ funkcijų šablonas