Excel VBA: Jenereta ya Nambari Nambari Bila Nakala (Mifano 4)

Hugh West

16-10-2023 Macros & Excel VBA
  • Shiriki Hii
Hugh West

Makala haya yanaonyesha mifano 4 ya jenereta ya nambari nasibu isiyo na nakala kwa kutumia VBA katika Excel. Hapa tutatumia kitendakazi cha Rnd kilichojengewa ndani cha Excel ili kusanidi msimbo wetu. Hebu tuzame kwenye mifano ili kujifunza mbinu za kutengeneza nambari za kipekee bila mpangilio.

Pakua Kitabu cha Mazoezi

Pakua kitabu hiki cha mazoezi ili kufanya mazoezi unaposoma makala haya.

Jenereta ya Nambari Nasibu isiyo na Nakala.xlsm

4 Mifano ya Jenereta Nambari Namba Bila Nakala katika Excel VBA

Andika Msimbo katika Kihariri cha Msingi kinachoonekana

Ili kutoa nambari nasibu zisizo na nakala , tunahitaji kufungua na kuandika VBA msimbo katika kihariri cha msingi cha kuona. Fuata hatua ili kufungua kihariri cha msingi cha kuona na uandike msimbo fulani hapo.

  • Nenda kwa >Msanidi kichupo kutoka Utepe wa Excel .
  • Bofya chaguo la Visual Basic.

  • Katika Visual Basic For Applications dirisha, bofya Ingiza menyu kunjuzi ili kuchagua Moduli Mpya chaguo.

Sasa weka msimbo wako ndani ya kihariri cha msimbo wa kuona na bonyeza F5 hadi kuiendesha it.

1. Matumizi ya Kitendaji cha VBA Rnd Kuzalisha Nambari Namba Bila Nakala

Kitendaji cha Rnd kinatumika katika Excel VBA hadi toa nambari nasibu ambazo ni kati ya 0 na 1 kipekee.

Kazi : Tengeneza nambari 10 bila mpangilio kati ya 0 na 1 katika kisanduku A1:A10.

Msimbo : Ingiza msimbo ifuatayo katika kihariri cha msingi cha kuona na ubonyeze F5 ili kuiendesha . 

4441

Toleo : Picha ya skrini iliyo hapo juu inaonyesha nambari 10 za kipekee za nasibu katika safu ya 0 na 1.

Ufafanuzi wa Msimbo:

Katika msimbo huu, tulitumia kitendakazi cha Rnd ili kuingiza nambari nasibu katika safu mbalimbali A1:A10 . Kabla ya kuingiza a nambari mpya , tulitumia Do While Loop kutafuta nambari katika safu ya seli iliyofafanuliwa awali (A1:A10) kama tayari ipo au haipo . Ili kuangalia kuwepo ya nambari katika sanduku la visanduku kila wakati, tulisanidi msimbo kwa kitendakazi COUNTIF , Chaguo hili la kukokotoa 1>huangalia a nambari mpya bila mpangilio katika orodha ya nambari zilizopo kabla ya kuiingiza.

Soma Zaidi : Mfumo wa Excel wa Kuzalisha Nambari Nasibu (mifano 5)

2. Kijenereta cha Nambari Nasibu kwa Chini na cha Juu Kinachobainishwa kisicho na Nakala

Ili kutoa nambari nasibu ndani ya fungu lililobainishwa , tunahitaji weka upande wa chini na upperbound katika msimbo wetu wa VBA. Kwa habari, ya chini ndiyo nambari ya chini zaidi na ya juu ndiyo nambari ya juu zaidi katika masafa kwa jenereta ya nambari nasibu. Tunaweza kutumia fomula ifuatayo katika msimbo wetu.

(upande wa juu - wa chini + 1) * Rnd + wa chini

2.1 Nasibu Jenereta ya Nambari- Desimali

Kazi : Tengeneza nambari 10 nasibu kati ya 10 na 20 katika seli A1:A10.

Msimbo : Ingiza ifuatayo msimbo katika kihariri cha msingi cha kuona na ubonyeze F5 ili kuiendesha 

6911

Toleo : Picha ya skrini iliyo hapo juu inaonyesha nambari 10 za nasibu za kipekee katika masafa ya 1 na 10.

2.2 Jenereta Nambari Isiyo Nasibu- Nambari kamili

Katika kielelezo hiki, tutatumia VBA Int kitendakazi hadi kuondoa sehemu ya kipande kutoka nambari nasibu .

Task : Zalisha nambari kamili 20 za nasibu kati ya 1 na 20 katika kisanduku A1:B10.

Msimbo : Ingiza ifuatayo msimbo katika kihariri cha msingi cha kuona na ubonyeze F5 ili kuiendesha . 

2667

Toleo : Picha ya skrini iliyo hapo juu inaonyesha nambari kamili 20 za kipekee katika masafa ya 1 na 20.

Soma Zaidi: Jenereta ya Nambari Nasibu katika Excel isiyo na Rudia (Mbinu 9) 3>

Usomaji Unaofanana

  • Jenereta Nambari Isiyo Nasibu yenye Zana ya Uchambuzi wa Data na Majukumu katika Excel
  • Jinsi ya kufanya Tengeneza Data Nasibu katika Excel (9Mbinu Rahisi)
  • Jenereta ya Nambari 5 Isiyo na mpangilio katika Excel (Mifano 7)
  • Jenereta ya Nambari 4 Isiyobadilika katika Excel (Mifano 8)
  • Tengeneza Nambari Nambari kutoka kwa Orodha katika Excel (Njia 4)

3. Bainisha Maeneo ya Desimali kwa Jenereta ya Nambari za Kipekee bila mpangilio katika Excel VBA

Tunaweza kutumia kitendaji cha Mduara katika msimbo wetu kubainisha idadi ya maeneo ya desimali katika nambari za kipekee zinazozalishwa bila mpangilio . sintaksia ya chaguo za kukokotoa ni-

Mviringo(maneno, [numdecimalplaces])

Tunahitaji kubainisha Hoja ya pili kulingana na hitaji letu

.

Kazi : Zalisha nambari 20 nasibu na nafasi 2 za desimali kati ya 1 na 20 katika kisanduku A1:B10.

Msimbo : Ingiza ifuatayo msimbo katika kihariri cha msingi cha kuona na ubonyeze F5 ili kuiendesha it. 

5854

Toleo : Picha ya skrini iliyo hapo juu inaonyesha nambari kamili 20 za kipekee zilizo na Nafasi 2 za desimali katika masafa ya 1 na 20.

Soma Zaidi: Tengeneza Nambari Nasibu katika Excel kwa kutumia Desimali (Mbinu 3)

4. Tengeneza Fomu ya Mtumiaji kwa Kizalisha Nambari Namba Bila Nakala Nakala katika Excel VBA

Katika kielelezo hiki, tutaonyesha jinsi ya kutumia Fomu ya Mtumiaji katika Excel VBA ili kutoa nambari nasibu bila hakuna nakala .

Kazi: ZalishaNambari 20 nasibu katika safu ya seli A1:B10 kwa kutumia UserForm na thamani za ingizo (i) chini (ii) upperbound (iii) idadi ya desimali.

Unda Fomu ya Mtumiaji:

Fuata hatua zilizo hapa chini ili kuunda Fomu ya Mtumiaji na sehemu zetu za kuingiza tunazotaka .

  • Nenda kwa kichupo cha Msanidi kutoka Utepe wa Excel .
  • Bofya Inayoonekana Chaguo la msingi.

  • Katika Visual Basic Kwa Maombi dirisha, bofya Ingiza menyu kunjuzi ili kuchagua chaguo Fomu ya Mtumiaji .

  • Katika UserForm ongeza lebo .
  • Inukuu lebo kama Mpaka wa Chini katika sifa.

  • Ongeza lebo mbili zaidi zinazoitwa Upperbund na DecimalPlaces .

24>

  • Sasa ongeza Visanduku vitatu vya maandishi katika Fomu ya Mtumiaji .

    9>Katika hatua hii, ongeza a CommandButton na ukipe jina Zalisha .

  • Sasa, bofya mara mbili kitufe cha CommandButton na uweke msimbo katika kihariri cha msimbo . 
4931

  • Bonyeza F5 ili kuendesha msimbo na UserForm imetokea .
  • Weka upande wa chini , upperbound, na nambari . 2>ya maeneo ya decimal katika UserForm na ugonge TengenezaKitufe .

Toleo : Katika kisanduku A1:B10 , kuna 20 nasibu nambari na nafasi 2 za desimali katika fungu la 1 hadi 30.

Soma Zaidi: Jinsi ya Kuzalisha Nambari Nasibu Bila Nakala katika Excel (Njia 7)

Vitu vya Kukumbuka

  • Tunaweza pia kutumia Rekebisha chaguo za kukokotoa badala ya kitendakazi cha Int ili kutoa nambari kamili kamili . Chaguo za kukokotoa huondoa sehemu ya sehemu ya nambari kama vile kitendakazi cha Int .

Hitimisho

Sasa, tunajua jinsi ya kutengeneza nambari za kipekee za nasibu kwa kutumia VBA katika Excel kwa usaidizi wa mifano inayofaa. Tunatumahi, itakusaidia kutumia utendakazi kwa ujasiri zaidi. Maswali au mapendekezo yoyote usisahau kuyaweka kwenye kisanduku cha maoni hapa chini.

Chapisho lililotangulia Jinsi ya Kufungia Safu 2 katika Excel (Njia 5)
Chapisho linalofuata Jinsi ya kutoa maandishi kutoka kwa seli katika Excel (njia 5)

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.