Excel VBA: Cynhyrchydd Rhif Ar Hap gyda Dim Dyblygiadau (4 Enghraifft)

Hugh West

16-10-2023 Macros & Excel VBA
  • Rhannu Hwn
Hugh West

Mae'r erthygl hon yn dangos 4 enghraifft o generadur rhif ar hap heb unrhyw ddyblygiadau gan ddefnyddio VBA yn Excel. Yma byddwn yn defnyddio swyddogaeth Rnd adeiledig Excel i ffurfweddu ein cod. Gadewch i ni blymio i mewn i'r enghreifftiau i ddysgu'r technegau i gynhyrchu haprifau unigryw.

Lawrlwythwch Gweithlyfr Ymarfer

Lawrlwythwch y llyfr gwaith ymarfer hwn i wneud ymarfer corff tra byddwch chi'n darllen yr erthygl hon.

Cynhyrchydd Rhif Ar Hap gyda Dim Dyblygiadau.xlsm

4 Enghreifftiau o Gynhyrchydd Rhif Ar Hap gyda Dim Dyblygiadau yn Excel VBA

Ysgrifennu Cod yn y Golygydd Sylfaenol Gweledol

I gynhyrchu haprifau heb unrhyw ddyblygiadau , mae angen i ni agor ac ysgrifennu VBA cod yn y golygydd sylfaenol gweledol. Dilynwch y camau i agor y golygydd sylfaenol gweledol ac ysgrifennu cod yno.

  • Ewch i'r >Datblygwr tab o'r Rhuban Excel .
  • Cliciwch yr opsiwn Visual Basic.

  • Yn y ffenestr Visual Basic For Applications , cliciwch y gwymplen Mewnosod i dewis y Modiwl Newydd opsiwn.

Nawr rhowch eich cod y tu mewn i'r golygydd cod gweledol a pwyswch F5 i redeg it.

1. Defnyddio Swyddogaeth Rnd VBA i Gynhyrchu Rhif Hap gyda Dim Dyblygiadau

Defnyddir y ffwythiant Rnd yn Excel VBA i cynhyrchu haprifau sydd rhwng 0 a 1 yn gyfyngedig.

Tasg : Cynhyrchu 10 haprif rhwng 0 a 1 mewn celloedd A1:A10.

Cod : Mewnosod y cod canlynol yn y golygydd sylfaenol gweledol a phwyswch F5 i redeg it. 

4883

Allbwn : Mae'r ciplun uchod yn dangos 10 haprif unigryw yn yr ystod o 0 ac 1.

Côd Eglurhad:

Yn y cod hwn, defnyddiwyd y ffwythiant Rnd i mewnosod haprifau yn yr ystod gell A1:A10 . Cyn mewnosod a rhif newydd , fe ddefnyddion ni Don Tra Loop i edrych am y rhif yn y amrediad celloedd wedi'u diffinio ymlaen llaw (A1:A10) a yw eisoes yn bodoli neu ddim . I wirio bodolaeth y rhif yn yr ystod gell bob tro, rydym wedi ffurfweddu'r cod gyda'r swyddogaeth COUNTIF , Y swyddogaeth hon yn gwirio a rhif hap newydd yn y rhestr o rhifau sy'n bodoli eisoes cyn ei fewnosod.

Darllen Mwy : Fformiwla Excel i Gynhyrchu Rhif Hap (5 enghraifft)

2. Cynhyrchydd Rhifau Ar Hap ar gyfer Tua Isaf Diffiniedig a Thua Uchaf gyda Dim Dyblygiadau

I gynhyrchu haprifau o fewn ystod ddiffiniedig , mae angen i ni gosodwch y tuag isaf a tua'r uchaf yn ein cod VBA. Er gwybodaeth, y tuag isaf yw'r rhif isaf a'r tua'r uchaf yw'r rhif uchaf yn yr ystod ar gyfer y generadur haprifau. Gallwn ddefnyddio'r fformiwla ganlynol yn ein cod.

(uwchben – tua'r is + 1) * Rnd + ar fin is

2.1 Ar hap Cynhyrchydd Rhifau - Degol

Tasg : Cynhyrchu 10 haprif rhwng 10 a 20 yn celloedd A1:A10.

Cod : Mewnosod y cod canlynol yn y golygydd sylfaenol gweledol a phwyswch F5 i redeg it. 

1662

Allbwn : Mae'r ciplun uchod yn dangos 10 haprif unigryw yn yr ystod o 1 a 10.

2.2 Cynhyrchydd Rhif Hap- Cyfanrif

Yn y llun hwn, byddwn yn defnyddio'r Swyddogaeth Int VBA i tynnu y rhan ffracsiynol o'r rhifau hap .

Tasg : Cynhyrchu 20 rhif cyfanrif hap rhwng 1 a 20 mewn celloedd A1:B10.

Cod : Mewnosod y cod canlynol yn y golygydd sylfaenol gweledol a phwyswch F5 i redeg it. 

7641

Allbwn : Mae'r ciplun uchod yn dangos 20 rhif cyfanrif hap unigryw yn yr ystod o 1 ac 20.

Darllen Mwy: Cynhyrchydd Rhif Ar Hap yn Excel heb Ailadrodd (9 Dull)

Darlleniadau Tebyg

  • Cynhyrchydd Rhifau Ar Hap gydag Offeryn Dadansoddi Data a Swyddogaethau yn Excel
  • Sut i Cynhyrchu Data ar Hap yn Excel (9Dulliau Hawdd)
  • Cynhyrchydd Rhif Digid 5 Ar Hap yn Excel (7 Enghreifftiau)
  • Cynhyrchydd Rhif Digid Ar Hap 4 yn Excel (8 Enghraifft)
  • Cynhyrchu Rhif Ar Hap o'r Rhestr yn Excel (4 Ffordd)

3. Nodwch Leoedd Degol ar gyfer Cynhyrchydd Rhif Hap Unigryw yn Excel VBA

Gallwn ddefnyddio'r swyddogaeth Rownd yn ein cod i nodi y rhif o lleoedd degol yn y rhifau unigryw a gynhyrchir ar hap . Cystrawen y ffwythiant yw-

Rownd(mynegiant, [numdecimalplaces])

Mae angen nodi y 2il arg yn unol â'n gofyniad .

Tasg : Cynhyrchu 20 haprif gyda 2 le degol rhwng 1 a 20 mewn celloedd A1:B10.

Cod : Mewnosod y cod canlynol yn y golygydd sylfaenol gweledol a phwyswch F5 i redeg it. 

7704

Allbwn : Mae'r ciplun uchod yn dangos 20 rhif cyfanrif hap unigryw gyda 2 le degol yn yr ystod o 1 ac 20.

Darllen Mwy: Cynhyrchu Haprif yn Excel gyda Degolynau (3 Dull)

4. Datblygu Ffurflen Ddefnyddiwr ar gyfer Cynhyrchydd Rhif Ar Hap gyda Dim Dyblygiadau yn Excel VBA

Yn y llun hwn, byddwn yn dangos sut i ddefnyddio Ffurflen Ddefnyddiwr mewn Rhagori VBA i cynhyrchu haprifau gyda dim dyblygiadau .

Tasg: Cynhyrchu20 rhif ar hap mewn amrediad cell A1:B10 gan ddefnyddio Ffurflen Ddefnyddiwr gyda'r gwerthoedd mewnbwn (i) tuag isaf (ii) uwchben (iii) nifer y lleoedd degol.

Creu Ffurflen Defnyddiwr:

Dilynwch y camau isod i greu Ffurflen Ddefnyddiwr gyda'n meysydd mewnbwn a ddymunir .

  • Ewch i'r tab Datblygwr o'r Rhuban Excel .
  • Cliciwch y Gweledol Opsiwn sylfaenol.

  • Yn y ffenestr Visual Basic For Applications , cliciwch y gwymplen Mewnosod i dewis yr opsiwn Ffurflen Ddefnyddiwr .

>

  • Yn y Ffurflen Defnyddiwr ychwanegu a label .
  • Capiwch y label fel Bound Isaf yn yr eiddo.

  • Ychwanegu dau arall label o'r enw Upperbund a DegiadolLleoedd .

24>

  • Nawr ychwanegwch tri Blwch Testun yn y Ffurflen Defnyddiwr .

    9>Ar y cam hwn, ychwanegwch a Botwm Gorchymyn a'i enwi Cynhyrchu .

  • Nawr, cliciwch ddwywaith y Botwm Gorchymyn a rhowch y cod canlynol yn y golygydd cod . 
2005

  • Pwyswch F5 i redeg y cod ac mae'r Ffurflen Ddefnyddiwr wedi ymddangos .
  • Rhowch y tuag isaf , uwchben, a'r rhif o lleoedd degol yn y Ffurflen Ddefnyddiwr a gwasgwch y GenerateBotwm .

Allbwn : Mewn celloedd A1:B10 , mae 20 ar hap rhifau gyda 2 le degol yn yr ystod o 1 i 30.

> Darllen Mwy: Sut i Gynhyrchu Rhifau Ar Hap Heb Dyblygiadau yn Excel (7 Ffordd)

Pethau i’w Cofio

  • Gallem hefyd ddefnyddio’r Trwsio ffwythiant yn lle'r ffwythiant Int i cynhyrchu rhifau cyfanrif unigryw . Mae'r ffwythiant yn tynnu y rhan ffracsiynol o rif yn union fel y ffwythiant Int .

>Casgliad

Nawr, rydym yn gwybod sut i gynhyrchu rhifau hap unigryw gan ddefnyddio VBA yn Excel gyda chymorth enghreifftiau addas. Gobeithio y byddai'n eich helpu i ddefnyddio'r swyddogaeth yn fwy hyderus. Unrhyw gwestiynau neu awgrymiadau peidiwch ag anghofio eu rhoi yn y blwch sylwadau isod.

Post blaenorol Sut i Rewi 2 Golofn yn Excel (5 Dull)
Post nesaf Sut i Dynnu Testun o Gell yn Excel (5 ffordd)

Mae Hugh West yn hyfforddwr a dadansoddwr Excel hynod brofiadol gyda dros 10 mlynedd o brofiad yn y diwydiant. Mae ganddo radd Baglor mewn Cyfrifeg a Chyllid a gradd Meistr mewn Gweinyddu Busnes. Mae gan Hugh angerdd am addysgu ac mae wedi datblygu dull addysgu unigryw sy’n hawdd ei ddilyn a’i ddeall. Mae ei wybodaeth arbenigol o Excel wedi helpu miloedd o fyfyrwyr a gweithwyr proffesiynol ledled y byd i wella eu sgiliau a rhagori yn eu gyrfaoedd. Trwy ei flog, mae Hugh yn rhannu ei wybodaeth gyda’r byd, gan gynnig tiwtorialau Excel am ddim a hyfforddiant ar-lein i helpu unigolion a busnesau i gyrraedd eu llawn botensial.