Бұл мақала Excel бағдарламасында VBA қолданатын ешбір көшірмелері жоқ кездейсоқ сандар генераторының 4 мысалын суреттейді. Мұнда кодты конфигурациялау үшін Excel бағдарламасының кірістірілген Rnd функциясын қолданамыз. Бірегей кездейсоқ сандарды генерациялау әдістерін үйрену үшін мысалдарды қарастырайық.

Тәжірибелік жұмыс кітабын жүктеп алу

Осы мақаланы оқып жатқанда жаттығу жасау үшін осы жаттығу жұмыс кітабын жүктеп алыңыз.

4 Excel VBA бағдарламасында көшірмелері жоқ кездейсоқ сандар генераторының мысалдары

Visual Basic редакторында код жазу

қайталанбайтын кездейсоқ сандарды құру үшін бізге ашу және VBA жазу керек. визуалды базалық редакторда код. қадамдарды орындаңыз визуалды негізгі редакторды ашыңыз және сол жерге біраз код жазыңыз.

• бөліміне өтіңіз>Әзірлеуші ​​ қойындысы Excel таспасы .
• Visual Basic опциясын басыңыз.

• Visual Basic for Applications терезесінде Кірістіру ашылмалы тізімінде Жаңа модульді таңдау үшін басыңыз. опция.

Енді кодты визуалды код өңдегішінің ішіне енгізіп, F5 пернесін басыңыз. - оны іске қосыңыз.

1. Қайталанбайтын кездейсоқ санды жасау үшін VBA Rnd функциясын пайдалану

Rnd функциясы Excel VBA -ден <1-ге дейін қолданылады>0-ге дейінгі кездейсоқ сандарды генерациялау және 1 ерекше.

Тапсырма : 10 кездейсоқ сандарды 0 және 1 арасында жасаңыз A1:A10 ұяшықтарында .

Код : Көрнекі негізгі редакторға келесі кодты енгізіп, F5 пернесін басыңыз. оны іске қосу.

3339

Шығару : Жоғарыдағы скриншот 10 бірегей кездейсоқ сандарды<2 көрсетеді> диапазонында 0 және 1.

Код түсіндірмесі:

Бұл кодта біз Rnd функциясын <2 пайдаландық> кездейсоқ сандарды A1:A10 ұяшықтары ауқымына кірістіру үшін. жаңа санды кірістірмес бұрын, біз Do while циклін қолданып, санын іздестірдік. 1>алдын ала анықталған ұяшық ауқымы (A1:A10) оның қазірден бар екеніне қарамастан немесе жоқ . ұяшық диапазонындағы санының барлығын әр жолы тексеру үшін біз кодты COUNTIF функциясы арқылы конфигурацияладық, бұл функция енгізбес бұрын бар сандардың тізбесіндегі а жаңа кездейсоқ санды тексереді.

Толығырақ оқу : Кездейсоқ санды құруға арналған Excel формуласы (5 мысал)

2. Қайталанбайтын анықталған төменгі және жоғарғы шекке арналған кездейсоқ сандар генераторы

кездейсоқ сандарды анықталған диапазонда құру үшін бізге қажет VBA кодымызда төменгі шекті және жоғарғы шекті орнатыңыз. Ақпарат үшін, төменгі шекара ең төменгі сан және жоғарғы шек кездейсоқ сандар генераторы үшін диапазондағы ең үлкен сан болып табылады. Біз кодымызда келесі формуланы пайдалана аламыз.

(жоғары шегі – төменгі шегі + 1) * Rnd + төменгі шегі

2.1 Кездейсоқ Сандар генераторы- Ондық

Тапсырма : 10 және 20 арасында 10 кездейсоқ санды жасаңыз>A1:A10 ұяшықтары.

Код : Көрнекі негізгі редакторға келесі кодты енгізіп, F5 пернесін басыңыз. қосу оны.

5366

Шығару : Жоғарыдағы скриншот 10 бірегей кездейсоқ сандарды көрсетеді диапазонында 1 және 10.

2.2 Кездейсоқ сандар генераторы- бүтін

Бұл суретте біз<1 қолданамыз> VBA Int функциясы - бөлшек бөлігін кездейсоқ сандар ішінен алып тастаңыз.

Тапсырма : A1:B10 ұяшықтарында 1 және 20 арасындағы кездейсоқ 20 бүтін санды жасаңыз.

Код : Көрнекі негізгі редакторға келесі кодты енгізіп, F5 пернесін басыңыз. іске оны.

3393

Шығыс : Жоғарыдағы скриншот 20 бірегей кездейсоқ бүтін санды көрсетеді 1 және 20 диапазонында.

Толығырақ: Excel бағдарламасында қайталанбайтын кездейсоқ сандар генераторы (9 әдіс)

Ұқсас оқулар

• Деректерді талдау құралы және Excel бағдарламасындағы функциялары бар кездейсоқ сандар генераторы
• Қалай Excel бағдарламасында кездейсоқ деректерді жасау (9Оңай әдістер)
• Excel бағдарламасындағы кездейсоқ 5 таңбалы сандар генераторы (7 мысал)
• Excel бағдарламасындағы кездейсоқ 4 таңбалы сандар генераторы (8 мысал)
• Excel бағдарламасындағы тізімнен кездейсоқ санды жасау (4 әдіс)

3. Excel VBA бағдарламасында бірегей кездейсоқ сандар генераторы үшін ондық орындарды көрсетіңіз

Біз кодымызда Дөңгелек функцияны көрсету үшін пайдалана аламыз. кездейсоқ құрылған бірегей сандар ішіндегі ондық орындардың саны . Функцияның синтаксисі -

Дөңгелек(өрнек, [ондық сандар])

Бізге көрсету керек 2-ші аргумент біздің талап бойынша.

Тапсырма : 2 ондық таңбалы арасында 20 кездейсоқ санды жасаңыз A1:B10 ұяшықтарында>1 және 20 .

Код : Көрнекі негізгі редакторға келесі кодты енгізіп, F5 пернесін басыңыз. іске оны.

4236

Шығыс : Жоғарыдағы скриншот 20 бірегей кездейсоқ бүтін сандарды көрсетеді. 2 ондық таңба 1 және 20 диапазонында.

Толығырақ оқу: Excel бағдарламасында ондық сандармен кездейсоқ санды жасау (3 әдіс)

4. Excel VBA бағдарламасында көшірмелері жоқ кездейсоқ сандар генераторы үшін пайдаланушы пішінін жасау

Бұл суретте біз Пайдаланушы пішінін пайдалану жолын көрсетеміз>Excel VBA кездейсоқ сандарды қайталанбайтын жасау үшін.

Тапсырма: Жасау20 кездейсоқ сан ұяшық диапазонындағы A1:B10 Кіріс мәндері (i) төменгі шекара (ii) бар UserForm пайдаланылады жоғарғы (iii) ондық таңбалардың саны.

Пайдаланушы пішінін жасау:

Біздің қажетті енгізу өрістерімен UserForm жасау үшін төмендегі қадамдарды орындаңыз. .

• Excel таспасынан Әзірлеуші ​​ қойындысына өтіңіз.
• Visual түймесін басыңыз. Негізгі опция.

• Visual Basic for Applications терезесінде Кірістіру ашылмалы тізімін басыңыз үшін UserForm опцияны таңдаңыз.

• UserForm ішіне қосыңыз a белгі .
• Сипаттарда белгі Төменгі шегі деп белгілеңіз.

• екі тағы белгіні атаулы Жоғарғы бума және Ондық орындар қосыңыз.

• Енді UserForm ішіне үш TextBox қосыңыз.

• Бұл кезеңде a Command Button қосу және оны Жасау деп атаңыз.

• Енді Пәрмен түймешігін екі рет басып, код өңдегішіне келесі кодты қойыңыз.

5218

• F5 басыңыз кодын іске қосыңыз>және UserForm пайда болды .
• төменгі шекті , жоғарғы шекті, және санын <қойыңыз. 2> ондық орындар UserForm және Жасау түймесін басыңыз.Түйме .

Шығару : A1:B10 ұяшықтарында 20 кездейсоқ бар. 1-ден 30-ға дейінгі диапазондағы 2 ондық таңбалы сандар.

Толығырақ: Excel бағдарламасында қайталанбайтын кездейсоқ сандарды қалай жасауға болады (7 әдіс)

Есте сақтау керек нәрселер

• Сонымен қатар біз Int функциясының орнына функциясын бірегей бүтін сандарды жасау үшін түзетіңіз. функциясы Int функциясы сияқты санының бөлшек бөлігін бөлшек бөлігін жояды.

Қорытынды

Енді біз Excel бағдарламасында VBA көмегімен бірегей кездейсоқ сандарды қолайлы мысалдар арқылы қалай жасау керектігін білеміз. Бұл функцияны сенімдірек пайдалануға көмектеседі деп үміттенеміз. Кез келген сұрақтар немесе ұсыныстар болса, оларды төмендегі түсініктеме жолағына қоюды ұмытпаңыз.