Spodaj si bomo ogledali program v Excel VBA to naključno razvršča podatke (v tem primeru imena naključno razvršča).
Položaj:
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.
NobenatempStringAs Vrvica, tempIntegerAs Celo število, jazAs Celo število, jAs Celo število2. V stolpec B zapišemo 5 naključnih števil (po eno za vsako ime). Za to uporabljamo funkcijo delovnega lista RandBetween.
Zai = 1Za5
Celice (i, 2) .Vrednost = Funkcija delovnega lista.RandBetween (0, 1000)
Naslednjijaz
Dosedanji rezultat:
zamrzne vrstico in stolpec v
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čnemo a Dvojna zanka .
izračunajte dan v tednu od datumaZai = 1Za5
Zaj = i + 1Za5
4. Dodajte naslednjo kodno vrstico:
ČeCelice (j, 2). VrednostPrimer: 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 se primerjata Richard in Joost. 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 drži, smo zamenjati imena.
tempString = Celice (i, 1) .VrednostCelice (i, 1) .Vrednost = Celice (j, 1) .Vrednost
Celice (j, 1) .Vrednost = tempString
6. In zamenjamo številke.
tempInteger = Celice (i, 2) .VrednostCelice (i, 2) .Vrednost = Celice (j, 2) .Vrednost
Celice (j, 2) .Vrednost = tempInteger
7. Ne pozabite zapreti stavka If.
Konec Če8. Ne pozabite zapreti dveh zank.
NaslednjijNaslednjijaz
9. Preizkusite program.
točka, na kateri je besedilo razdeljeno
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.
Pojdi na naslednje poglavje: Napake makra
