VBA izlases numurs

Šī apmācība parādīs, kā VBA strādāt ar nejaušiem skaitļiem.

RND funkcija

Funkcija RND ģenerē skaitli no 0 līdz 1. RND funkcijas sintakse ir šāda:

Rnd ([numurs]), kur:

• Skaitlis (Neobligāti)- Tas nav obligāti, un, ja 0, funkcija atgriež nākamo ģenerēto nejaušo skaitli. Ja tukšs, tiek izmantota noklusējuma vērtība> 0.

123	Sub RndNum ()MsgBox Rnd ()Beigu apakš

Nejauša skaitļa ģenerēšana VBA

Lai ģenerētu nejaušu skaitli starp divām vērtībām, jums jāizmanto funkcija RND kombinācijā ar funkciju INT (veselā skaitļa funkcija), izmantojot šādu vispārīgo formulu:

• Int (apakšējā robeža + Rnd * (augšējā - apakšējā + 1))

Tātad, lai ģenerētu nejaušu skaitli no 2 līdz 30, izmantojiet šādu kodu:

12345678

Sub GeneratingARandomNumber ()Dim randomNumber kā vesels skaitlisrandomNumber = Int (2 + Rnd * (30 - 2 + 1))Atkļūdot. Drukāt izlases numuruBeigu apakš