✅ Функція VBA Rnd

Зміст

Функція Rnd

Використовується для зміни значення затравки, що використовується генератором випадкових чисел для функції Rnd.

123456

Sub Rnd_Example ()Зменшити випадкове значенняВипадковеrandomValue = RndEnd Sub

У редакторі VBA ви можете набрати “Rnd (”, щоб побачити синтаксис функції Rnd:

Функція Rnd містить аргумент:

Номер: [Необов’язково] Будь -який допустимий числовий вираз.

Щоб створити випадкове ціле значення від 1 до 10, можна скористатися наступним кодом.

12345678

Sub Rnd_Example1 ()Dim rndValue As SingleВипадковеДля i = 1-20rndValue = Int ((Rnd * 10) + 1)Далі iEnd Sub

Цей код генерує 20 випадкових цілих значень від 1 до 10.

Щоб створити випадкове значення між нижньою та верхньою межею, можна скористатися наступною функцією.

123	Функція RndSpecial (верхня межа як одиночна, нижня межа як окрема) як окремаRndSpecial = (верхня - нижня) * RndФункція завершення

12345

Sub Rnd_Example2 ()Зменшити випадкове значення як єдинеrandomValue = RndSpecial (5, 30)MsgBox randomValueEnd Sub

Це поверне випадкове значення від 5 до 30.