Excel VBA: Gjenerues i numrave të rastësishëm pa dublikatë (4 shembuj)

Hugh West

16-10-2023 Makro & Excel VBA
  • Shperndaje Kete
Hugh West

Ky artikull ilustron 4 shembuj të gjeneruesit të numrave të rastësishëm pa dublikatë duke përdorur VBA në Excel. Këtu do të përdorim funksionin e integruar Rnd të Excel për të konfiguruar kodin tonë. Le të zhytemi në shembujt për të mësuar teknikat për të gjeneruar numra të rastësishëm unikë.

Shkarko librin e punës praktike

Shkarko këtë libër pune praktike për të ushtruar ndërkohë që je duke lexuar këtë artikull.

Gjeneruesi i numrave të rastësishëm pa dublikatë.xlsm

4 Shembuj të gjeneratorit të numrave të rastësishëm pa dublikatë në Excel VBA

Të shkruajmë kodin në Visual Basic Editor

Për të gjeneruar numra të rastësishëm pa dublikatë , duhet hapim dhe shkruajmë VBA kodi në redaktorin vizual bazë. Ndiq hapat për të hapur redaktorin bazë vizuale dhe shkruani disa kode atje.

  • Shko te Zhvilluesi skedë nga Excel Ribbon .
  • Kliko opsionin Visual Basic.

  • Në dritaren Visual Basic për aplikacionet , klikoni në menynë rënëse Fut për të zgjedhur Modulin New opsioni.

Tani vendosni kodin tuaj brenda redaktorit të kodit vizual dhe shtypni F5 për të drejtuar atë.

1. Përdorimi i funksionit VBA Rnd për të gjeneruar një numër të rastësishëm pa dublikatë

Funksioni Rnd përdoret në Excel VBA në gjeneroni numra të rastësishëm që janë midis 0 dhe 1 ekskluzive.

Detyra : Gjeneroni 10 numra të rastësishëm midis 0 dhe 1 në qelizat A1:A10.

Kodi : Fut kodin e mëposhtëm në redaktuesin vizual bazë dhe shtyp F5 për të ekzekutuar atë. 

3372

Dalje : Pamja e mësipërme e ekranit tregon 10 numra unikë të rastit në intervalin prej 0 dhe 1.

Shpjegimi i kodit:

Në këtë kod, ne kemi përdorur funksionin Rnd për të futur numra të rastit në gamen e qelizave A1:A10 . Përpara futjes së një numrit të ri , ne përdorëm një Do while Loop për të kërkuar për numrin në gama e paracaktuar e qelizave (A1:A10) nëse ekziston tashmë ose jo . Për të kontrolluar ekzistencën të numrit në diapazonin e qelizave çdo herë, ne konfiguruam kodin me funksionin COUNTIF , Ky funksion kontrollon një numër të ri të rastësishëm në listën të numrave tashmë ekzistues përpara se ta vendosë atë.

Lexo më shumë : Formula e Excel për të gjeneruar numra të rastësishëm (5 shembuj)

2. Gjeneratori i numrave të rastësishëm për kufirin e poshtëm dhe të sipërm të përcaktuar pa dublikatë

Për gjenerimin e numrave të rastësishëm brenda një vargu të përcaktuar , ne duhet të caktoni boshtin e poshtëm dhe lidhjen e sipërme në kodin tonë VBA. Për informacion, kufiri i poshtëm është numri më i ulët dhe kufia e sipërme është numri më i lartë në intervalin për gjeneruesin e numrave të rastësishëm. Ne mund të përdorim formulën në kodin tonë.

(kufizues i sipërm - kufi i poshtëm + 1) * Rnd + kufi i poshtëm

2.1 i rastësishëm Gjeneruesi i numrave- dhjetore

Detyrë : Gjeneroni 10 numra të rastësishëm midis 10 dhe 20 në qelizat A1:A10.

Kodi : Fut kodin e mëposhtëm në redaktuesin vizual bazë dhe shtyp F5 për të ekzekutuar atë. 

6486

Dalje : Pamja e mësipërme e ekranit tregon 10 numra unikë të rastit në intervalin prej 1 dhe 10.

2.2 Gjeneruesi i numrave të rastësishëm-Numri i plotë

Në këtë ilustrim, ne do të përdorim Funksioni VBA Int për të hequr pjesën thyesore nga numrat e rastësishëm .

Detyra : Gjeneroni 20 numra të plotë të rastësishëm midis 1 dhe 20 në qelizat A1:B10.

Kodi : Fut kodin e mëposhtëm në redaktuesin vizual bazë dhe shtyp F5 për të ekzekutuar it. 

7409

Dalja : Pamja e mësipërme e ekranit tregon 20 numra të plotë unik të rastësishëm në intervalin prej 1 dhe 20.

Lexo më shumë: Generatori i numrave të rastësishëm në Excel pa përsëritje (9 metoda)

Lexime të ngjashme

  • Gjeneruesi i numrave të rastësishëm me vegël dhe funksione të analizës së të dhënave në Excel
  • Si të Gjeneroni të dhëna të rastësishme në Excel (9Metodat e thjeshta)
  • Gjeneruesi i numrave të rastësishëm me 5 shifra në Excel (7 shembuj)
  • Gjeneruesi i numrave të rastësishëm me 4 shifra në Excel (8 shembuj)
  • Gjeneroni një numër të rastësishëm nga Lista në Excel (4 mënyra)

3. Specifikoni vendet dhjetore për gjeneratorin unik të numrave të rastësishëm në Excel VBA

Ne mund të përdorim funksionin Round në kodin tonë për të specifikuar numri i vendeve dhjetore në numrat unikë të krijuar rastësisht . Sintaksa e funksionit është-

Round(shprehje, [vendet numerike])

Duhet të specifikojmë Argumenti i dytë sipas kërkesës sonë .

Detyra : Gjeneroni 20 numra të rastit me 2 shifra dhjetore ndërmjet 1 dhe 20 në qelizat A1:B10.

Kodi : Fut kodin e mëposhtëm në redaktorin vizual bazë dhe shtyp F5 për të ekzekutuar it. 

4805

Dalja : Pamja e mësipërme e ekranit tregon 20 numra të plotë unik të rastësishëm me 2 vende dhjetore në intervalin prej 1 dhe 20.

Lexo më shumë: Gjeneroni numra të rastësishëm në Excel me numra dhjetorë (3 metoda)

4. Zhvilloni një formë përdoruesi për gjeneratorin e numrave të rastësishëm pa dublikatë në Excel VBA

Në këtë ilustrim, ne do të tregojmë se si të përdorim një UserForm në Excel VBA për gjenerimin e numrave të rastësishëm pa pa dublikatë .

Detyra: Gjeneroni20 numra të rastësishëm në diapazonin e qelizave A1:B10 duke përdorur një UserForm me vlerat hyrëse (i) lidhja e poshtme (ii) lidhja e sipërme (iii) numri i shifrave dhjetore.

Krijoni një formular përdoruesi:

Ndiqni hapat e mëposhtëm për të krijuar një UserForm me fushat tona të dëshiruara të hyrjes .

  • Shko te skeda Zhvilluesi nga Excel Ribbon .
  • Kliko Visual Opsioni bazë.

  • Në dritaren Visual Basic për aplikacionet , klikoni në menynë rënëse Fut për zgjidhni opcionin UserForm .

  • Në UserForm shtoni një etiketë .
  • Titra etiketën si LowerBound në vetitë.

  • Shto dy më shumë etiketa me emrin Upperbund dhe Vendet dhjetore .

  • Tani shtoni tre kuti teksti në UserForm .

  • Në këtë fazë, shtoni a CommandButton dhe emërtoni Generate .

  • Tani, klikoni dy herë butonin Command dhe vendosni kodin e mëposhtëm në redaktorin e kodit . 
7698

  • Shtypni F5 për të ekzekutuar kodin dhe UserForm është shfaqur .
  • Vendosni lidhja e poshtme , lidhja e sipërme, dhe numri nga vendet dhjetore në UserForm dhe shtypni GenerateButoni .

Dalja : Në qelizat A1:B10 , ka 20 të rastësishme numrat me 2 shifra dhjetore në vargun nga 1 deri në 30.

Lexo më shumë: Si të gjeneroni numra të rastësishëm pa dublikatë në Excel (7 mënyra)

Gjërat për t'u mbajtur mend

  • Ne gjithashtu mund të përdorim Rregullo funksionin në vend të funksionit Int për gjenerimin e numrave të plotë unik . Funksioni heq pjesën thyesore të një numri ashtu si funksioni Int .

Përfundim

Tani, ne e dimë se si të gjenerojmë numra unikë të rastësishëm duke përdorur VBA në Excel me ndihmën e shembujve të përshtatshëm. Shpresojmë, do t'ju ndihmojë të përdorni funksionalitetin me më shumë besim. Çdo pyetje apo sugjerim mos harroni t'i vendosni në kutinë e komenteve më poshtë.

Postimi i mëparshëm Si të ngrini 2 kolona në Excel (5 metoda)
Postimi i radhës Si të ekstraktoni tekstin nga një qelizë në Excel (5 mënyra)

Hugh West është një trajner dhe analist me përvojë të lartë në Excel me mbi 10 vjet përvojë në industri. Ai ka një diplomë Bachelor në Kontabilitet dhe Financë dhe një Master në Administrim Biznesi. Hugh ka një pasion për mësimdhënien dhe ka zhvilluar një qasje unike të mësimdhënies që është e lehtë për t'u ndjekur dhe kuptuar. Njohuritë e tij eksperte të Excel-it kanë ndihmuar mijëra studentë dhe profesionistë në mbarë botën të përmirësojnë aftësitë e tyre dhe të shkëlqejnë në karrierën e tyre. Nëpërmjet blogut të tij, Hugh ndan njohuritë e tij me botën, duke ofruar mësime falas në Excel dhe trajnime në internet për të ndihmuar individët dhe bizneset të arrijnë potencialin e tyre të plotë.