Excel-ൽ VBA ഉപയോഗിക്കുന്ന ഡ്യൂപ്ലിക്കേറ്റുകളില്ലാതെ റാൻഡം നമ്പർ ജനറേറ്ററിന്റെ 4 ഉദാഹരണങ്ങൾ ഈ ലേഖനം ചിത്രീകരിക്കുന്നു. ഞങ്ങളുടെ കോഡ് കോൺഫിഗർ ചെയ്യുന്നതിന് ഞങ്ങൾ ഇവിടെ Excel-ന്റെ ബിൽറ്റ്-ഇൻ Rnd ഫംഗ്ഷൻ ഉപയോഗിക്കും. അദ്വിതീയ റാൻഡം നമ്പറുകൾ സൃഷ്ടിക്കുന്നതിനുള്ള സാങ്കേതിക വിദ്യകൾ പഠിക്കാൻ നമുക്ക് ഉദാഹരണങ്ങളിലേക്ക് കടക്കാം.

പ്രാക്ടീസ് വർക്ക്ബുക്ക് ഡൗൺലോഡ് ചെയ്യുക

നിങ്ങൾ ഈ ലേഖനം വായിക്കുമ്പോൾ വ്യായാമത്തിനായി ഈ പരിശീലന വർക്ക്ബുക്ക് ഡൗൺലോഡ് ചെയ്യുക.

ടാസ്‌ക് : 0 നും 1 നും ഇടയിൽ 10 റാൻഡം നമ്പറുകൾ സൃഷ്‌ടിക്കുക സെല്ലുകളിൽ A1:A10.

കോഡ് : വിഷ്വൽ ബേസിക് എഡിറ്ററിൽ ഇനിപ്പറയുന്ന കോഡ് തിരുകുക F5 അമർത്തുക ഇത് നടത്താൻ .

8223

ഔട്ട്‌പുട്ട് : മുകളിലെ സ്‌ക്രീൻഷോട്ട് 10 തനതായ ക്രമരഹിത സംഖ്യകൾ<2 കാണിക്കുന്നു> 0, 1 എന്നിവയുടെ ശ്രേണിയിൽ.

കോഡ് വിശദീകരണം:

ഈ കോഡിൽ ഞങ്ങൾ Rnd ഫംഗ്‌ഷൻ <2 ഉപയോഗിച്ചു സെൽ ശ്രേണി A1:A10 -ൽ റാൻഡം നമ്പറുകൾ ചേർക്കുക. ഒരു പുതിയ നമ്പർ ചേർക്കുന്നതിന് മുമ്പ്, നമ്പറിന് നോക്കാൻ Do while Loop ഞങ്ങൾ ഉപയോഗിച്ചു. 1>മുൻപ് നിർവ്വചിച്ച സെൽ ശ്രേണി (A1:A10) അത് ഇതിനകം നിലവിലുണ്ടോ അല്ലെങ്കിൽ ഇല്ല . ഓരോ തവണയും സെൽ ശ്രേണിയിലെ നമ്പറിന്റെ അസ്തിത്വം പരിശോധിക്കാൻ, COUNTIF ഫംഗ്‌ഷൻ ഉപയോഗിച്ച് ഞങ്ങൾ കോഡ് കോൺഫിഗർ ചെയ്‌തു, ഈ ഫംഗ്‌ഷൻ ഇതിനകം നിലവിലുള്ള അക്കങ്ങളുടെ ലിസ്റ്റിലെ ഒരു പുതിയ റാൻഡം നമ്പർ ഇത് ചേർക്കുന്നതിന് മുമ്പ് അത് പരിശോധിക്കുന്നു.

കൂടുതൽ വായിക്കുക : റാൻഡം നമ്പർ ജനറേറ്റ് ചെയ്യാനുള്ള Excel ഫോർമുല (5 ഉദാഹരണങ്ങൾ)

2. ഡ്യൂപ്ലിക്കേറ്റുകളില്ലാതെ നിർവചിക്കപ്പെട്ട ലോവർബൗണ്ടിനും അപ്പർബൗണ്ടിനുമുള്ള റാൻഡം നമ്പർ ജനറേറ്റർ

റാൻഡം നമ്പറുകൾ നിർവചിച്ച ശ്രേണിയിൽ സൃഷ്‌ടിക്കുന്നതിന്, ഞങ്ങൾക്ക് ഇത് ആവശ്യമാണ് ഞങ്ങളുടെ VBA കോഡിൽ ലോവർബൗണ്ട് ഉം മുകളിലേക്കുള്ള ഉം സജ്ജമാക്കുക. വിവരങ്ങൾക്ക്, ലോവർബൗണ്ട് എന്നത് ഏറ്റവും താഴ്ന്ന സംഖ്യ ഉം മുകളിലേക്കുള്ള സംഖ്യയുമാണ്റാൻഡം നമ്പർ ജനറേറ്ററിനായുള്ള പരിധിയിലെ ഏറ്റവും ഉയർന്ന സംഖ്യ ആണ് . ഞങ്ങളുടെ കോഡിൽ ഇനിപ്പറയുന്ന സൂത്രവാക്യം ഉപയോഗിക്കാം.

(അപ്പർബൗണ്ട് - ലോവർബൗണ്ട് + 1) * Rnd + ലോവർബൗണ്ട്

2.1 റാൻഡം നമ്പർ ജനറേറ്റർ- ദശാംശം

ടാസ്‌ക് : ൽ 10 നും 20 നും ഇടയിൽ 10 ക്രമരഹിത സംഖ്യകൾ സൃഷ്‌ടിക്കുക>സെല്ലുകൾ A1:A10.

കോഡ് : വിഷ്വൽ ബേസിക് എഡിറ്ററിൽ ഇനിപ്പറയുന്ന കോഡ് തിരുകുക F5 അമർത്തുക ഇത് നടത്താൻ .

8745

ഔട്ട്‌പുട്ട് : മുകളിലെ സ്‌ക്രീൻഷോട്ട് 10 അദ്വിതീയ റാൻഡം നമ്പറുകൾ<2 കാണിക്കുന്നു> 1, 10 എന്നിവയുടെ ശ്രേണിയിൽ.

2.2 റാൻഡം നമ്പർ ജനറേറ്റർ- പൂർണ്ണസംഖ്യ

ഈ ചിത്രീകരണത്തിൽ, ഞങ്ങൾ <1 ഉപയോഗിക്കും> VBA Int ഫംഗ്‌ഷൻ നീക്കം ചെയ്യാൻ ഫ്രാക്ഷണൽ ഭാഗം റാൻഡം നമ്പറുകളിൽ നിന്ന് .

ടാസ്ക് : A1:B10 സെല്ലുകളിൽ 1 നും 20 നും ഇടയിൽ 20 റാൻഡം പൂർണ്ണസംഖ്യകൾ സൃഷ്ടിക്കുക.

കോഡ് : വിഷ്വൽ ബേസിക് എഡിറ്ററിൽ ഇനിപ്പറയുന്ന കോഡ് തിരുകുക F5 അമർത്തുക ഇത് നടത്താൻ .

6719

ഔട്ട്‌പുട്ട് : മുകളിലെ സ്‌ക്രീൻഷോട്ട് 20 അദ്വിതീയ റാൻഡം പൂർണ്ണസംഖ്യകൾ കാണിക്കുന്നു 1, 20 ശ്രേണിയിൽ.

കൂടുതൽ വായിക്കുക: ആവർത്തനങ്ങളില്ലാതെ Excel-ലെ റാൻഡം നമ്പർ ജനറേറ്റർ (9 രീതികൾ)

സമാനമായ വായനകൾ

• ഡാറ്റ അനാലിസിസ് ടൂൾ ഉള്ള റാൻഡം നമ്പർ ജനറേറ്ററും Excel-ലെ പ്രവർത്തനങ്ങളും
• എങ്ങനെ Excel-ൽ ക്രമരഹിതമായ ഡാറ്റ സൃഷ്ടിക്കുക (9എളുപ്പവഴികൾ)
• Excel-ലെ റാൻഡം 5 അക്ക നമ്പർ ജനറേറ്റർ (7 ഉദാഹരണങ്ങൾ)
• എക്‌സലിൽ റാൻഡം 4 അക്ക നമ്പർ ജനറേറ്റർ (8 ഉദാഹരണങ്ങൾ)
• Excel-ലെ ലിസ്റ്റിൽ നിന്ന് റാൻഡം നമ്പർ സൃഷ്‌ടിക്കുക (4 വഴികൾ)

3. Excel VBA-യിലെ തനതായ റാൻഡം നമ്പർ ജനറേറ്ററിനായി ദശാംശ സ്ഥാനങ്ങൾ വ്യക്തമാക്കുക

നമ്മുടെ കോഡിലെ റൗണ്ട് ഫംഗ്‌ഷൻ നിർദ്ദിഷ്‌ടിക്കാൻ ഉപയോഗിക്കാം ക്രമരഹിതമായി സൃഷ്‌ടിച്ച അദ്വിതീയ സംഖ്യകളിൽ ദശാംശസ്ഥാനങ്ങളുടെ എണ്ണം . ഫംഗ്‌ഷന്റെ വാക്യഘടന -

റൗണ്ട്(എക്‌സ്‌പ്രഷൻ, [സംഖ്യ ഡെസിമൽപ്ലേസുകൾ])

നമുക്ക് വ്യക്തമാക്കേണ്ടതുണ്ട് രണ്ടാമത്തെ ആർഗ്യുമെന്റ് ഞങ്ങളുടെ ആവശ്യമനുസരിച്ച് .

ടാസ്‌ക് : 2 ദശാംശസ്ഥാനങ്ങളുള്ള 20 ക്രമരഹിത സംഖ്യകൾ നിടയിൽ <1 സൃഷ്‌ടിക്കുക സെല്ലുകളിൽ A1:B10-ൽ>1 ഉം 20 ഉം.

കോഡ് : വിഷ്വൽ ബേസിക് എഡിറ്ററിൽ ഇനിപ്പറയുന്ന കോഡ് തിരുകുക F5 അമർത്തുക ഇത് നടത്താൻ .

6573

ഔട്ട്‌പുട്ട് : മുകളിലെ സ്‌ക്രീൻഷോട്ട് 20 അദ്വിതീയ റാൻഡം പൂർണ്ണസംഖ്യകൾ കാണിക്കുന്നു 2 ദശാംശസ്ഥാനങ്ങൾ 1, 20 ശ്രേണിയിൽ.

കൂടുതൽ വായിക്കുക: എക്സെലിൽ ദശാംശങ്ങൾ ഉപയോഗിച്ച് ക്രമരഹിത സംഖ്യ സൃഷ്ടിക്കുക (3 രീതികൾ)

4. എക്‌സൽ വിബിഎയിൽ ഡ്യൂപ്ലിക്കേറ്റുകളില്ലാതെ റാൻഡം നമ്പർ ജനറേറ്ററിനായി ഒരു ഉപയോക്തൃഫോം വികസിപ്പിക്കുക

ഈ ചിത്രീകരണത്തിൽ, ഉപയോക്തൃഫോം എങ്ങനെ ഉപയോഗിക്കാമെന്ന് ഞങ്ങൾ കാണിക്കും> Excel VBA റാൻഡം നമ്പറുകൾ സൃഷ്ടിക്കാൻ ഡ്യൂപ്ലിക്കേറ്റുകളില്ലാതെ .

ടാസ്ക്: ജനറേറ്റ് ചെയ്യുക ഇൻപുട്ട് മൂല്യങ്ങൾ (i) ലോവർബൗണ്ട് (ii) ഉപയോഗിച്ച് ഉപയോക്തൃഫോം ഉപയോഗിച്ച് സെൽ ശ്രേണിയിലെ A1:B10 20 റാൻഡം നമ്പറുകൾ മുകളിലേക്കുള്ള (iii) ദശാംശസ്ഥാനങ്ങളുടെ എണ്ണം.

ഒരു ഉപയോക്തൃഫോം സൃഷ്‌ടിക്കുക:

ഉപയോക്തൃഫോം ഞങ്ങളുടെ ആവശ്യമായ ഇൻപുട്ട് ഫീൽഡുകൾക്കൊപ്പം സൃഷ്‌ടിക്കാൻ ചുവടെയുള്ള ഘട്ടങ്ങൾ പാലിക്കുക .

• Excel റിബൺ -ൽ നിന്ന് ഡെവലപ്പർ ടാബിലേക്ക് പോകുക.
• വിഷ്വൽ ക്ലിക്ക് ചെയ്യുക അടിസ്ഥാന ഓപ്ഷൻ.

• വിഷ്വൽ ബേസിക് ഫോർ ആപ്ലിക്കേഷനുകൾ വിൻഡോയിൽ, ഇൻസേർട്ട് ഡ്രോപ്പ്ഡൗൺ <2 ക്ലിക്ക് ചെയ്യുക> തിരഞ്ഞെടുക്കാൻ UserForm ഓപ്ഷൻ.

• UserForm ചേർക്കുക ഒരു ലേബൽ .
• ലേബലിന് ലോവർബൗണ്ട് ആയി അടിക്കുറിപ്പ് നൽകുക.

<3

• രണ്ട് കൂടുതൽ ലേബലുകൾ പേരുള്ള അപ്പർബണ്ട് , ദശാംശസ്ഥാനങ്ങൾ എന്നിവ ചേർക്കുക.

• ഇപ്പോൾ മൂന്ന് ടെക്‌സ്‌റ്റ് ബോക്‌സുകൾ UserForm -ൽ ചേർക്കുക.

• ഈ ഘട്ടത്തിൽ, a CommandButton ചേർത്ത് അതിന് Generate എന്ന് പേരിടുക.

• ഇപ്പോൾ, കമാൻഡ് ബട്ടണിൽ ഡബിൾ ക്ലിക്ക് ചെയ്‌ത് കോഡ് എഡിറ്ററിൽ ഇനിപ്പറയുന്ന കോഡ് ഇടുക.

7562

• കോഡ് റൺ ചെയ്യാൻ F5 അമർത്തുക>കൂടാതെ UserForm പ്രത്യക്ഷപ്പെട്ടു .
• ലോവർബൗണ്ട് , അപ്പർബൗണ്ട്, , നമ്പർ <എന്നിവ ഇടുക. ഉപയോക്തൃ ഫോമിൽ -ൽ ദശാംശസ്ഥാനങ്ങൾ കൂടാതെ ജനറേറ്റ് അമർത്തുകബട്ടൺ .

ഔട്ട്‌പുട്ട് : സെല്ലുകളിൽ A1:B10 , 20 റാൻഡം ഉണ്ട് അക്കങ്ങൾ 2 ദശാംശസ്ഥാനങ്ങൾ 1 മുതൽ 30 വരെയുള്ള ശ്രേണിയിൽ.

കൂടുതൽ വായിക്കുക: എക്‌സലിൽ ഡ്യൂപ്ലിക്കേറ്റുകളില്ലാതെ റാൻഡം നമ്പറുകൾ എങ്ങനെ ജനറേറ്റ് ചെയ്യാം (7 വഴികൾ)

ഓർമ്മിക്കേണ്ട കാര്യങ്ങൾ

• നമുക്കും ഉപയോഗിക്കാം ഇന്റർ ഫംഗ്‌ഷൻ ന് പകരം അദ്വിതീയ സംഖ്യകൾ സൃഷ്‌ടിക്കാൻ ഫംഗ്‌ഷൻ പരിഹരിക്കുക. Int ഫംഗ്‌ഷൻ പോലെ ഒരു സംഖ്യയുടെ ഫ്രാക്ഷണൽ ഭാഗം ഫംഗ്ഷൻ നീക്കം ചെയ്യുന്നു.

ഉപസംഹാരം

ഇപ്പോൾ, അനുയോജ്യമായ ഉദാഹരണങ്ങളുടെ സഹായത്തോടെ Excel-ൽ VBA ഉപയോഗിച്ച് അദ്വിതീയ റാൻഡം നമ്പറുകൾ എങ്ങനെ സൃഷ്ടിക്കാമെന്ന് ഞങ്ങൾക്കറിയാം. പ്രവർത്തനം കൂടുതൽ ആത്മവിശ്വാസത്തോടെ ഉപയോഗിക്കാൻ ഇത് നിങ്ങളെ സഹായിക്കുമെന്ന് പ്രതീക്ഷിക്കുന്നു. എന്തെങ്കിലും ചോദ്യങ്ങളോ നിർദ്ദേശങ്ങളോ ഉണ്ടെങ്കിൽ അവ ചുവടെയുള്ള കമന്റ് ബോക്സിൽ ഇടാൻ മറക്കരുത്.