Excel VBA: ausazko zenbaki-sorgailua bikoiztu gabe (4 adibide)

Hugh West

16-10-2023 Makroak & Excel VBA
  • Partekatu Hau
Hugh West

Artikulu honek ausazko zenbaki-sorgailuaren adibideren 4 adibide erakusten ditu Excel-en VBA erabiliz bikoiztu gabe. Hemen Excel-en Rnd funtzioa erabiliko dugu gure kodea konfiguratzeko. Murgil ditzagun adibideetan ausazko zenbaki bakarrak sortzeko teknikak ikasteko.

Deskargatu Praktikarako lan-koadernoa

Deskargatu praktikarako lan-koaderno hau artikulu hau irakurtzen ari zaren bitartean ariketa egiteko.

Ausazko zenbaki-sorgailua bikoizturik gabe.xlsm

4 adibideak Excel VBA-n bikoiztu gabe ausazko zenbaki-sorgailua

Idatzi kodea Visual Basic editorean

Bikoiztu gabe ausazko zenbakiak sortzeko , ireki eta VBA idatzi behar dugu. kodea visual basic editorean. Jarraitu pausoak irekitzeko visual basic editorea eta idatzi bertan koderen bat.

  • Joan <1era>Garatzailea fitxa Excel zinta tik.
  • Sakatu Visual Basic aukeran.

  • Visual Basic For Applications leihoan, sakatu Txertatu goitibeherako hautatzeko Modulu berria. aukera.

Orain jarri zure kodea ikusizko kode editorea barruan eta sakatu F5 exekutatu hori.

1. VBA Rnd funtzioaren erabilera bikoizturik gabe ausazko zenbakia sortzeko

Rnd funtzioa Excel VBA tik <1era erabiltzen da>sortu ausazko zenbakiak , 0 artean daudenak eta 1 esklusiboa.

Zeregin : Sortu ausazko 10 zenbaki 0 eta 1 artean A1:A10 gelaxketan.

Kodea : Sartatu ondoko kode visual basic editorean eta sakatu F5 exekutatu . 

3533

Irteera : goiko pantaila-argazkiak ausazko 10 zenbaki esklusibo<2 erakusten ditu> 0 eta 1 tartean.

Kodearen azalpena:

Kode honetan, Rnd <2 funtzioa erabili dugu> ausazko zenbakiak sartzeko A1:A10 gelaxka barrutian. a zenbaki berria sartu baino lehen, Do While Loop erabili dugu zenbakia bilatzeko bilatzeko. 1>aurredefinitutako gelaxka-barrutia (A1:A10) dagoeneko edo ez dagoen. Zenbakiaren existentzia zenbakiaren zelula-barrutian aldi bakoitzean egiaztatzeko, kodea COUNTIF funtzioarekin konfiguratu dugu, funtzio hau dagoeneko zenbakien zerrendan ausazko zenbaki berria egiaztatzen du sartu aurretik.

Gehiago irakurri : Ausazko zenbakia sortzeko Excel formula (5 adibide)

2. Ausazko zenbaki-sorgailua, bikoizturik gabeko beheko eta goi-kopuru definiturako

ausazko zenbakiak sortzeko definitutako tartea barruan, behar dugu. ezarri beheko muga eta goiko gure VBA kodean. Informazioa lortzeko, beheko muga zenbakirik baxuena eta goiko muga da. ausazko zenbaki-sorgailurako barrutiko zenbakirik altuena da. Hurrengo formula erabil dezakegu gure kodean.

(goiko muga – beheko muga + 1) * Rnd + beheko muga

2.1 Ausazko Zenbaki-sorgailua - Hamartarra

Zeregin : Sortu ausazko 10 zenbaki 10 eta 20 artean n> A1:A10 zelulak.

Kodea : Sartatu ondoko kode visual basic editorean eta sakatu F5 exekutatu . 

4999

Irteera : goiko pantaila-argazkiak ausazko 10 zenbaki esklusibo<2 erakusten ditu> 1 eta 10eko tartean.

2.2 Ausazko Zenbaki Sortzailea - Zenbaki osoa

Ilustrazio honetan,<1 erabiliko dugu> VBA Int funtzioa kentzeko zatikako zatia ausazko zenbakietatik .

Zeregin : Sortu ausazko 20 zenbaki oso 1 eta 20 artean A1:B10 gelaxketan.

Kodea : Sartatu ondoko kode visual basic editorean eta sakatu F5 exekutatu . 

3648

Irteera : goiko pantaila-argazkiak ausazko 20 zenbaki oso esklusibo erakusten ditu 1 eta 20 tartean.

Irakurri gehiago: Ausazko Zenbakien Sortzailea Excel-en errepikapenik gabe (9 metodo)

Antzeko irakurketak

  • Ausazko zenbaki-sorgailua Excel-en datuak aztertzeko tresna eta funtzioekin
  • Nola Sortu ausazko datuak Excel-en (9Metodo errazak)
  • Ausazko 5 digituko zenbaki-sorgailua Excel-en (7 adibide)
  • Ausazko 4 zifrako zenbaki-sorgailua Excel-en (8 adibide)
  • Sortu ausazko zenbakia Excel-en zerrendatik (4 modu)

3. Zehaztu leku hamartarrak Excel VBA-n ausazko zenbaki-sorgailurako

Gure kodean Birobildu funtzioa erabil dezakegu zehazteko . ausaz sortutako zenbaki esklusiboetan leku hamartarren ko zenbakia . Funtzioaren sintaxia da-

Birobil (adierazpena, [zenbaki hamartarleku])

zehaztu behar dugu . 2. argumentua gure eskakizuna arabera.

Zeregin : Sortu ausazko 20 zenbaki 2 hamartarrekin <1 artean>1 eta 20 A1:B10 gelaxketan.

Kodea : Sartatu ondoko kode visual basic editorean eta sakatu F5 exekutatu . 

8211

Irteera : goiko pantaila-argazkiak ausazko 20 zenbaki oso esklusiboak erakusten ditu. 2 hamartar 1 eta 20 tartean.

Irakurri gehiago: Sortu ausazko zenbakia Excel-en hamartarrekin (3 metodo)

4. Gara ezazu Ausazko Zenbaki Sorgailurako Erabiltzaile-inprimakia Excel VBA-n bikoizturik gabe

Ilustrazio honetan, Erabiltzaile-inprimakia <1-en nola erabili erakutsiko dugu>Excel VBA ausazko zenbakiak sortzeko bikoizturik gabe .

Zeregin: Sortu20 ausazko zelula barrutian A1:B10 UserForm erabiliz sarrerako balioak (i) beheko muga (ii) goiko muga (iii) zifra hamartar kopurua.

Sortu Erabiltzaile Inprimakia:

Jarraitu beheko urratsak Erabiltzaile Inprimakia sortzeko gure nahi diren sarrera-eremuekin .

  • Joan Garatzailea fitxara Excel zinta tik.
  • Sakatu Ikusuala. Oinarrizko aukera.

  • Visual Basic For Applications leihoan, egin klik Txertatu goitibeherako aukeran hautatzeko UserForm aukera.

  • UserForm-en gehitu a etiketa .
  • Oinatu etiketa Beheko muga gisa propietateetan.

  • Gehitu bi gehiago etiketa izenekoak Upperbund eta DecimalPlaces .

  • Orain gehitu hiru testu-koadroa Erabiltzaile-inprimakia n.

  • Fase honetan, gehitu a Command Button eta izena Sortu .

  • Orain, egin klik bikoitza Komando-Botoian eta jarri kode hau kode-editorean . 
2189

  • Sakatu F5 exekutatu kodea eta Erabiltzaile-inprimakia agertu da .
  • Jarri beheko muga , goiko muga, eta zenbakia dezimar ko Erabiltzaile-inprimakian eta sakatu SortuBotoia .

Irteera : A1:B10 gelaxketan, 20 ausazko daude. zenbakiak 2 hamartarrekin 1 eta 30 arteko tartean.

Irakurri gehiago: Nola sortu ausazko zenbakiak bikoiztu gabe Excel-en (7 modu)

Gogoratu beharreko gauzak

  • Ere erabil genitzake Konpondu funtzioa Int funtzioaren ordez , zenbaki oso bakarrak sortzeko . funtzioak zenbaki baten zenbaki baten zati zatia kentzen du Int funtzioa bezala.

Ondorioa

Orain, badakigu nola sortzen diren ausazko zenbaki bakarrak Excel-en VBA erabiliz, adibide egokien laguntzarekin. Zorionez, funtzionalitatea seguruago erabiltzen lagunduko dizu. Edozein galdera edo iradokizun, ez ahaztu beheko iruzkinen koadroan jartzea.

Aurreko mezua Nola izoztu 2 zutabe Excel-en (5 metodo)
Hurrengo mezua Nola atera testua Excel-en gelaxka batetik (5 modu)

Hugh West esperientzia handiko Excel prestatzaile eta analista da, industrian 10 urte baino gehiagoko esperientzia duena. Kontabilitate eta Finantzetan Lizentziatua eta Enpresen Administrazioko Masterra da. Hughek irakasteko grina du eta jarraitzeko eta ulertzeko erraza den irakaskuntza-ikuspegi berezia garatu du. Excel-en ezagutza adituak mundu osoko milaka ikasle eta profesionalei beren gaitasunak hobetzen eta beren karreran bikaintzen lagundu die. Bere blogaren bidez, Hughek bere ezagutzak munduarekin partekatzen ditu, doako Excel tutorialak eta lineako prestakuntza eskainiz, pertsona eta enpresei beren potentzial osoa lortzen laguntzeko.