Excel VBA: Afirînerê Hejmarên Tesadufî Bê Duber (4 Nimûne)

Hugh West

16-10-2023 Makro & amp; Excel VBA
  • Vê Parve Bikin
Hugh West

Ev gotar 4 mînakên çêkerê jimareyên tesadufî bêyî dubareyên ku VBA di Excel de bikar tînin destnîşan dike. Li vir em ê fonksiyona Rnd-ya çêkirî ya Excel-ê bikar bînin da ku koda xwe mîheng bikin. Werin em li mînakan bigerin da ku fêrî teknîkên çêkirina jimareyên bêserûber ên yekta bibin.

Pirtûka Xebatê ya Pratîkê dakêşin

Dema ku hûn vê gotarê dixwînin, vê pirtûka xebatê ya pratîkê dakêşin ku hûn vê gotarê dixwînin.

Çêkera Jimarên Tesadûfî bi Bê Duplicates.xlsm

4 Nimûneyên Berhevkarê Hejmarên Tesadûfî yên Bê Duber di Excel VBA de

Kodê di Edîtorê Visual Basic de binivîsin

Ji bo hejmarên tesadufî yên bê ducar çêkin , divê em vekin û VBA-yê binivîsin. koda di edîtorê bingehîn yê dîtbarî de. Bişopînin pêngavên ji bo vekirina edîtorê bingehîn ên dîtbarî û li wir hin kodan binivîsin.

  • Herin Pêşvebir ji Excel Ribbon .
  • Bitikîne Vebijarka Visual Basic.

  • Di pencereya Visual Basic Ji bo Sepanan de, li ser Pêvekêşana daxistina bikirtînin da ku hilbijêrin Modula Nû. vebijêrk.

Niha koda xwe têxe hundirê edîtorê kodê dîtbar û F5 bitikîne. ji bo bixebite.

1. Bikaranîna Fonksiyona VBA Rnd ji bo Hilberandina Hejmara Tesadûfî ya Bê Duber

Fonksiyona Rnd di Excel VBA to <1 de tê bikaranîn>hejmarên tesadufî biafirîne ku di navbera 0 de ne û 1 taybetmendî.

Erka : 10 hejmarên tesadufî biafirîne di navbera 0 û 1 de di şaneyên A1:A10 de.

Kod : kodê li edîtorê bingehîn yê dîtbarî têxe û F5 bike ji bo xebata wê. 

1138

Derketin : Wêneya jorîn 10 hejmarên tesadufî yekta nîşan dide di navbera 0 û 1 de.

Rêvekirina Kodê:

Di vê kodê de, me fonksiyona Rnd <2 bikar anî>ji bo hejmarên tesadufî di rêzika hucreyê A1:A10 de têxin. Berî têxin a hejmareke nû , me Do Gava Loop bikar anî da ku li li hejmara li bigere. 1> range hucreyê ya pêşwext diyarkirî (A1:A10) gelo ew jixwe heye an ne . Ji bo kontrolkirina hebûna ya hejmara di nav hucreyê her carê, me kodê bi fonksiyona COUNTIF vesaz kir, ev fonksiyon a hejmareke nû ya tesadufî di lîsteyê ji hejmarên jixwe heyî berî ku têxe wê kontrol dike.

Bixwîne Zêdetir : Formula Excel ji bo Hilberandina Hejmara Tesadufî (5 mînak)

2. Afirînerê Hejmarên Tesadufî ji bo Jêrîn û Jêrîn ên Binavkirî yên Bê Dupatî

Ji bo çêkirina hejmarên tesadufî di nav navbereke diyarkirî de, divê em di koda meya VBA de jûrbenda jêrîn û jorîn saz bikin. Ji bo agahiyê, jmareya jêrîn hejmara herî kêm û jmara jorîn e. hejmara herî bilind e di rêzê ji bo çêkerê jimarên tesadufî. Em dikarin di koda xwe de formula ya jêrîn bi kar bînin.

(jorîn - bend + 1) * Rnd + bonda jêrîn

2.1 Random Çêkera hejmarê- Dehanî

Erka : Di de 10 hejmarên tesadufî di navbera 10 û 20 de çêkin> hucreyên A1: A10.

Kod : koda jêrîn di edîtora bingehîn a dîtbarî de têxe û F5 bike ji bo xebata wê. 

2899

Derketin : Dîmenê jorîn 10 hejmarên tesadufî yekta nîşan dide di navbera 1 û 10an de.

2.2 Çêkera Jimarên Tesadûfî- Jimarên Temam

Di vê nîgarê de, em ê Fonksiyona VBA Int ji bo derxistina parçeya perçeyî ji hejmarên rasthatî .

Erka : Di hucreyên A1:B10 de 20 jimareyên rasthatî di navbera 1 û 20 de çêkin.

Kod : koda jêrîn di edîtora bingehîn a dîtbarî de têxe û F5 bike ji bo xebata wê. 

7022

Derketin : Wêneya jorîn 20 hejmarên bêtaqetî yên yekta yên yekta nîşan dide di nav de ji 1 û 20.

Zêdetir Bixwînin: Di Excel de Generatorê Hejmarên Tesadufî Bê Dubarekirin (9 Rêbaz)

Xwendinên Bişivî

  • Desthilatdariya Hejmarên Tesadûfî bi Amûr û Fonksiyonên Analîza Daneyê re li Excel
  • Çawa Daneyên Tesadufî li Excel biafirînin (9Rêbazên Hêsan)
  • Di Excel-ê de Çêkera Jimarên Tesadufî 5 Rejîmî (7 Mînak)
  • Di Excel-ê de Çêkera Jimarên Tesadufî 4 Rejmar (8 Mînak)
  • Ji Lîsteya di Excel-ê de Jimareya Tesadufî Biafirîne (4 Away)

3. Cihên Dehanî Ji bo Generatorê Jimarên Tesadûfî Yekta Di Excel VBA de diyar bikin

Em dikarin di koda xwe de fonksîyona dor bikar bînin da ku diyar bikin hejmara ji cihên dehanî di hejmarên yekta yên ku bi awayekî rasthatî hatine çêkirin . hevoksaziya a fonksiyonê ye-

Round(derbir, [numdecimalplaces])

Divê em diyar bikin Argumana 2yemîn li gor pêdiviya me .

Erka : 20 hejmarên tesadufî bi 2 deh dehiyan di navbera <1 de çêkin>1 û 20 di hucreyên A1:B10 de.

Kod : koda jêrîn di edîtora bingehîn a dîtbarî de têxe û F5 bike ji bo xebata wê. 

8438

Derketin : Wêneya jorîn 20 jimareyên bêkêmasî yên bêhempa yên yekta nîşan dide. 2 cihên dehiyê di rêza 1 û 20an de.

Bêhtir Bixwîne: Hejmarên Tesadûfî li Excel Bi Dehaneyan Biafirînin (3 Rêbaz)

4. Ji bo Hilberînerê Jimarên Tesadûfî û Bê Duber Di Excel VBA de Forma Bikarhênerek Pêşde Bixin

Di vê nîgarê de, em ê nîşan bidin ka meriv çawa Forma Bikarhêner di <1 de bikar tîne>Excel VBA ji bo ku hejmarên tesadufî biafirîne bi bê dubare .

Kar: Çêkirin20 hejmarên tesadufî di rêza şaneyê de A1:B10 bi Forma Bikarhêner bi nirxên têketinê (i) li jêr (ii) jornav (iii) hejmara dehên dehiyan.

Forma Bikarhênerek Biafirîne:

Pêngavên jêrîn bişopînin da ku Forma Bikarhêner bi qadên têketina xwestî biafirînin. .

  • Ji Excel Ribbon biçe tabê Pêşdebir .
  • Bitikîne Visual Vebijarka bingehîn.

  • Di pencereya Visual Basic For Applications de, bikirtînin Têvekêşana dakêşanê ji bo hilbijartina vebijêrka UserForm .

  • Di Forma Bikarhêner de lê zêde bike etîketek .
  • Di taybetmendiyan de labelê wekî LowerBound binivîsin.

  • du yên din etîketan bi navên Upperbund û Cihên Dehanî lê zêde bike.

  • Niha sê Qutiyên Nivîsarê di Forma Bikarhêner de zêde bikin.

  • Di vê qonaxê de, a CommandButton lê zêde bike û navê wê bike Çêkirin .

  • Niha, du car bikirtînin CommandButton û koda jêrîn bixin nav edîtorê kodê . 
3426

  • Partî F5 ji bo xebitin kodê û Forma Bikarhêner xuya bû .
  • binavkirina jêrîn , bikarhêner, û hejmara 2>ji cihên dehiyê di Forma Bikarhêner û ÇêkirinBişkojk .

Derketin : Di hucreyên A1:B10 de, 20 tesadufî hene. jimarên bi 2 jimarên dehiyê di nav navbera 1 heta 30.

Bixwîne: Meriv Çawa Di Excel de Hejmarên Tesadufî Bê Duber Diafirîne (7 Away)

Tiştên Bîranîn

  • Em jî dikarin bikar bînin Fonksiyon rast bike li şûna fonksîyona Int ji bo çêkirina jimareyên yekta yên yekta . Fonksiyon parçeya perçeyî ya hejmarê mîna fonksiyona Int radike.

Encam

Naha, em dizanin ka meriv çawa bi karanîna nimûneyên guncan ve bi karanîna VBA-ya li Excel-ê hejmarên bêhempa çêdike. Hêvîdarim, ew ê ji we re bibe alîkar ku hûn fonksiyonê bi ewletir bikar bînin. Pirs an pêşniyarek ji bîr neke ku wan di qutiya şîroveyê ya jêrîn de binivîsîne.

Posta berê Meriv çawa 2 Stûnan di Excel de cemidand (5 Rêbaz)
Posta paşîn Meriv çawa nivîsê ji hucreyek di Excel de derxe (5 away)

Hugh West perwerdekar û analîstek Excel-ê pir bi tecrûbe ye ku di pîşesaziyê de zêdetirî 10 salan ezmûn heye. Di warê Hesabgiranî û Darayî de bawernameya Bachelorê û di Rêveberiya Karsaziyê de jî Master e. Hugh ji hînkirinê re dilşewat e û rêgezek hînkirinê ya bêhempa pêşxistiye ku hêsan tê şopandin û têgihiştin. Zanîna wî ya pispor a Excel alîkariya bi hezaran xwendekar û pisporan li çaraliyê cîhanê kiriye ku jêhatîbûnên xwe baştir bikin û di kariyera xwe de pêşde bibin. Bi bloga xwe, Hugh zanîna xwe bi cîhanê re parve dike, dersên belaş Excel û perwerdehiya serhêl pêşkêşî dike da ku alîkariya kes û karsaziyan bike ku bigihîjin potansiyela xwe ya tevahî.