A programozás alapjaival VBA
használata tömbök
Mivel érvek az eljárások és függvények
VBA lehetővé teszi a használatát tömbök paraméterként eljárások és függvények. Ebben az esetben a tömb paramétert nyilvánították dinamikus tömb az utasítást:
[ByVal | ByRef] arrayName () Amint típusú, ahol
ByVal - VBA továbbítja argumentum tömb érdemben,
ByRef - VBA halad az érvelés tömböt referencia,
Type - bármely engedélyezett típusokat.
Nem ajánlott átviteli tömböket érveket érdemben eljárások és függvények, mint Ebben az esetben gyorsan kimerül PC memória erőforrásokat.
Bebizonyítjuk használatát tömbök érvként függvényében eljárás
A válogató példái egydimenziós numerikus tömb.
Rendezés a közvetlen választás
Ezt a módszert gyakran használják tömbök, amelyek nem tartalmaznak ismétlődő elemeket.
Akkor a következőképpen kell eljárni:
- válassza ki a minimális elem a tömb;
- csere az első elem (akkor a legkisebb fog állni a helyén);
- Ismételje meg az előző lépést a többi elem, vagyis a úgy része a tömböt a második az utolsó, hogy megtalálják a legkisebb eleme, és cserélje ki a második, stb amíg van egy legnagyobb tétel volt már a helyén.
Csak meg kell m - 1 alkalommal kell elvégezni ezt a műveletsornak. A válogatás során növeli a rendezett tömbben rész, nem válogatják szét ennek megfelelően csökken.
Funkció MetodPryamVybora (ByRef y () As Integer, ByVal m Amint Byte)
Dim k például a bájt, J Amint Byte, L néven Byte
Ha y (j) Ha bejelöli a feltételeket, a jel "<” заменить на “>”. A tömb lesz rendezve csökkenő sorrendben. Szelektálás közvetlen adatcsere révén (buborék) Funkció módszer a közvetlen csere (ByRef y () As Integer, ByVal m Amint Byte) Dim d As Integer, k például a bájt, J Amint Byte J = m k lépéssel -1 A módszerek közvetlen szelekció és a kezdeti buborék tömb elemeit kell rendelkezésre állnia kezdete előtt válogatás. Mi bemutassa a munka a két válogatás dimenziós numerikus tömb segítségével érvként függvényében kitűnő kiindulási adatok az alábbi feladatok megoldására: 7. példa beállítása egy egydimenziós numerikus tömb. Keresse meg a legnagyobb és a legkisebb elemében. Dim X () As Integer, n Amint Byte, I Byte n = Application.CountA (ActiveSheet.Range ( "A. A")) MsgBox „A legnagyobb eleme a tömb =” Format (x (m), "0.000") MsgBox „A legkisebb eleme a tömb =” Format (x (1) "0,000") COUNTA () funkciót a MS Excel könyvtár lehetővé teszi, hogy számolja meg a nem-üres cellák oszlopában az aktív (kijelölt) munkalapon. 8. hogy egy rendezett számsor és a számot. Helyezze be a megadott számot, az eredeti sorrendben, anélkül, hogy megsértené a sorrendben. Dim X () As Integer, száma As Integer, i As Integer, J As Integer Const n Amint Byte = 10 Sheets ( "Sheet 1") lehetőségre.VálasszaKapcsolódó cikkek