Spodaj si bomo ogledali program v Excel VBA to naključno razvršča podatke (v tem primeru imena naključno razvršča).
Situacija:
1. Najprej razglasimo štiri spremenljivke. Eno spremenljivko tipa String imenujemo TempString, eno spremenljivko tipa Integer imenujemo TempInteger, eno spremenljivko tipa Integer, ki jo kličemo i, in eno spremenljivko tipa Integer, ki jo imenujemo j.
Zatemni tempString kot niz, tempInteger kot celo število, i kot celo število, j kot celo število
2. V stolpec B zapišemo 5 naključnih števil (po eno za vsako ime). Za to uporabljamo funkcijo delovnega lista RandBetween.
Za i = 1 do 5
Celice (i, 2) .Vrednost = Funkcija delovnega lista.RandBetween (0, 1000)
Naprej i
Dosedanji rezultat:
Za razvrščanje imen bomo uporabili številke poleg vsakega imena. Ime z najnižjo številko najprej, ime z drugo najnižjo številko, drugo itd.
3. Zaženemo dvojno zanko.
Za i = 1 do 5
Za j = i + 1 do 5
4. Dodajte naslednjo kodno vrstico:
Če celice (j, 2) .Vrednost <celice (i, 2) .Vrednost Potem
Primer: za i = 1 in j = 2 primerjamo Wendy in Richarda. Ker ima Richard manjše število, zamenjamo Wendy in Richarda. Richard je zdaj na prvem mestu. Za i = 1 in j = 3 primerjamo Richarda in Joosta. Joost ima višjo številko, zato se nič ne zgodi. Na ta način Excel VBA dobi ime z najmanjšo številko na prvem mestu. Za i = 2 Excel VBA dobi ime z drugo najnižjo številko na drugem mestu itd.
5. Če je res, zamenjamo imena.
tempString = Celice (i, 1) .Vrednost
Celice (i, 1) .Vrednost = Celice (j, 1) .Vrednost
Celice (j, 1) .Vrednost = tempString
6. In zamenjamo številke.
tempInteger = Celice (i, 2) .Vrednost
Celice (i, 2) .Vrednost = Celice (j, 2) .Vrednost
Celice (j, 2) .Vrednost = tempInteger
7. Ne pozabite zapreti stavka If.
Konec Če
8. Ne pozabite zapreti dveh zank.
Naprej j
Naprej i
9. Preizkusite program.
Rezultat:
Opomba: lahko dodate vrstico, ki izbriše številke v stolpcu B. Še lepše je, če številke vsakega imena postavite v matriko, tako da na vašem delovnem listu ne bodo nobene številke. Za ponazoritev smo se odločili, da vrednosti postavimo na list.
