300 Piemēri

Datu nejauša kārtošana

Randomly Sort Data

Zemāk mēs apskatīsim programmu Excel VBA ka nejauši kārto datus (šajā piemērā nejauši sakārto nosaukumus).





Situācija:

Nejauši sakārtojiet datus programmā Excel VBA





1. Pirmkārt, mēs deklarējam četrus mainīgos. Vienu String tipa mainīgo mēs saucam par TempString, vienu Integer tipa mainīgo mēs saucam par TempInteger, vienu Integer tipa mainīgo, ko mēs saucam par i, un vienu Integer tipa mainīgo, ko mēs saucam par j.

NavtempString Stīga, tempInteger Vesels skaitlis, i Vesels skaitlis, j Vesels skaitlis

2. B kolonnā ierakstām 5 izlases skaitļus (viens katram vārdam). Šim nolūkam mēs izmantojam darblapas funkciju RandBetween.



Priekši = 1Uz5
Šūnas (i, 2). Vērtība = WorksheetFunction.RandBetween (0, 1000)
Nākamaisi

Rezultāts līdz šim:

ja funkcija ir lielāka vai vienāda ar

Rezultāts līdz šim

Mēs izmantosim numurus blakus katram nosaukumam, lai kārtotu nosaukumus. Vārds ar mazāko skaitli vispirms, vārds ar otro mazāko skaitli, otrais utt.

3. Mēs sākam a Dubultā cilpa .

kā izmantot binomdist programmā Excel
Priekši = 1Uz5
Priekšj = i + 1Uz5

4. Pievienojiet šādu koda rindiņu:

JaŠūnas (j, 2). VērtībaTad

Piemērs: ja i = 1 un j = 2, Vendiju un Ričardu salīdzina. Tā kā Ričardam ir mazāks skaits, mēs apmainām Vendiju un Ričardu. Ričards šobrīd ir pirmajā pozīcijā. Ja i = 1 un j = 3, Ričardu un Džoostu salīdzina. Joost ir lielāks skaitlis, tāpēc nekas nenotiek. Tādā veidā Excel VBA pirmajā vietā iegūst nosaukumu ar zemāko skaitli. Ja i = 2, Excel VBA iegūst nosaukumu ar otro zemāko skaitli otrajā pozīcijā utt.

5. Ja tā ir taisnība, mēs apmainīt vārdus.

tempString = Šūnas (i, 1). Vērtība
Šūnas (i, 1). Vērtība = šūnas (j, 1). Vērtība
Šūnas (j, 1). Vērtība = tempString

6. Un mēs apmainām numurus.

tempInteger = Šūnas (i, 2). Vērtība
Šūnas (i, 2). Vērtība = šūnas (j, 2). Vērtība
Šūnas (j, 2). Vērtība = tempInteger

7. Neaizmirstiet aizvērt paziņojumu Ja.

Beigas Ja

8. Neaizmirstiet aizvērt divas cilpas.

Nākamaisj
Nākamaisi

9. Pārbaudiet programmu.

kas notiek aptuvenajā spēles vlookup

Rezultāts:

Nejauši sakārtot datu rezultātu

Piezīme. Jūs varat pievienot rindiņu, kas izdzēš B slejas numurus. Vēl jaukāk ir katra vārda numurus ievietot masīvā, tāpēc jūsu darblapā netiek ievietoti skaitļi. Tomēr ilustratīviem nolūkiem mēs esam izvēlējušies izvietot vērtības uz lapas.

8/11 Pabeigts! Uzziniet daudz vairāk par cilpām>
Doties uz nākamo nodaļu: Makro kļūdas



^