අන්තර්ගත වගුව
මෙම ලිපියෙන් Excel හි VBA භාවිතා කරමින් අනුපිටපත් නොමැතිව සසම්භාවී අංක උත්පාදක සඳහා උදාහරණ 4ක් දක්වා ඇත. මෙන්න අපි අපගේ කේතය වින්‍යාස කිරීමට Excel හි ඇති Rnd ශ්‍රිතය භාවිතා කරමු. අනන්‍ය අහඹු සංඛ්‍යා ජනනය කිරීමේ ශිල්පීය ක්‍රම ඉගෙන ගැනීමට උදාහරණ වෙත කිමිදෙමු.
ප්‍රායෝගික වැඩපොත බාගන්න
ඔබ මෙම ලිපිය කියවන අතරතුර ව්‍යායාම කිරීමට මෙම පුහුණු වැඩපොත බාගන්න.
අනුපිටපත් නොමැති සසම්භාවී අංක උත්පාදක යන්ත්‍රය 0> දෘශ්‍ය මූලික සංස්කාරකයේ කේතය ලියන්නඅනුපිටපත් නොමැතිව අහඹු සංඛ්‍යා උත්පාදනය කිරීමට , අපට විවෘත සහ VBA ලිවීම අවශ්‍ය වේ. කේතය දෘශ්‍ය මූලික සංස්කාරකයේ.
දෘශ්‍ය මූලික සංස්කාරකය විවෘත කිරීමට පියවර අනුගමනය කර එහි කේතයක් ලියන්න.- වෙත යන්න. Excel Ribbon වෙතින් සංවර්ධක tab.
- Visual Basic විකල්පය ක්ලික් කරන්න.
- යෙදුම් සඳහා දෘශ්‍ය මූලික කවුළුවෙහි, තේරීමට නව මොඩියුලය ඇතුළු පතන ක්ලික් කරන්න විකල්පය.
දැන් ඔබේ කේතය දෘශ්‍ය කේත සංස්කාරකය ඇතුලට දමා F5 ඔබන්න ධාවනය කිරීමට එය.
1. අනුපිටපත් නොමැතිව අහඹු අංකයක් ජනනය කිරීමට VBA Rnd ශ්‍රිතය භාවිතය
Rnd ශ්‍රිතය Excel VBA සිට <1 දක්වා භාවිතා වේ>සසම්භාවී සංඛ්‍යා
එනම් 0 අතර ඇති කරන්න සහ 1 හැර.කාර්යය : 0 සහ 1 අතර අහඹු අංක 10 ක් ජනනය කරන්න සෛල A1:A10 තුළ .
කේතය : දෘශ්‍ය මූලික සංස්කාරකය තුළ පහත කේතය ඇතුළු කර F5 ඔබන්න ට ධාවනය කිරීමට එය.
6679
ප්‍රතිදානය : ඉහත තිර රුව අද්විතීය අහඹු සංඛ්‍යා 10<2 පෙන්වයි> පරාසය තුළ 0 සහ 1.
කේත පැහැදිලි කිරීම:
මෙම කේතයෙහි, අපි Rnd ශ්‍රිතය <2 භාවිතා කළෙමු> සසම්භාවී අංක ඇතුළත් කිරීමට සෛල පරාසය A1:A10 . a නව අංකය ඇතුළු කිරීමට පෙර, අපි අංකය සඳහා බැලීමට Do while Loop භාවිත කළා 1>පෙර අර්ථ දක්වා ඇති සෛල පරාසය (A1:A10) එය දැනටමත් නැතහොත් නැත . සෛල පරාසයේ සෑම අවස්ථාවකම අංකය හි පැවැත්ම පරීක්ෂා කිරීමට, අපි කේතය COUNTIF ශ්‍රිතය සමඟින් වින්‍යාස කළෙමු, මෙම ශ්‍රිතය ඇතුළත් කිරීමට පෙර දැනටමත් පවතින අංක හි නව අහඹු අංකයක් පරීක්ෂා කරයි.
තවත් කියවන්න. : සසම්භාවී අංකය ජනනය කිරීමට Excel සූත්‍රය (උදාහරණ 5)
2. අනුපිටපත් නොමැතිව නිර්වචනය කරන ලද පහළ සහ ඉහළ යන සඳහා අහඹු අංක උත්පාදක
සසම්භාවී සංඛ්‍යා නිර්වචනය කළ පරාසයක් තුළ ජනනය කිරීමට, අපට අවශ්‍ය වේ අපගේ VBA කේතයේ පහළ සහ ඉහළට සකසන්න. තොරතුරු සඳහා, පහළ සීමාව යනු පහළම අංකය සහ ඉහළ සීමාවයිඅහඹු සංඛ්‍යා උත්පාදක යන්ත්‍රය සඳහා පරාසයේ ඉහළම වේ. අපට පහත දැක්වෙන සූත්‍රය අපගේ කේතයේ භාවිත කළ හැක.
(ඉහළට - පහළට + 1) * Rnd + පහළට
2.1 සසම්භාවී සංඛ්‍යා උත්පාදක- දශම
කාර්යය : 10 සහ 20 අතර අහඹු සංඛ්‍යා 10ක් උත්පාදනය කරන්න> සෛල A1:A10.
කේතය : දෘශ්‍ය මූලික සංස්කාරකය තුළ පහත කේතය ඇතුළු කර F5 ඔබන්න ට ධාවනය කිරීමට එය.
2462
ප්‍රතිදානය : ඉහත තිර රුව අද්විතීය අහඹු සංඛ්‍යා 10<2 පෙන්වයි> 1 සහ 10 හි පරාසය තුළ.
2.2 සසම්භාවී සංඛ්‍යා උත්පාදක- පූර්ණ සංඛ්‍යාව
මෙම නිදර්ශනයේදී, අපි <1 භාවිතා කරන්නෙමු> VBA Int ශ්‍රිතය
ඉවත් කිරීමට භාගික කොටස අහඹු සංඛ්‍යාවෙතින්.කාර්යය : A1:B10 සෛල තුළ 1 සහ 20 අතර අහඹු පූර්ණ සංඛ්‍යා 20 ක් ජනනය කරන්න.
කේතය : දෘශ්‍ය මූලික සංස්කාරකය තුළ පහත කේතය ඇතුළු කර F5 ඔබන්න ට ධාවනය කිරීමට එය.
6021
ප්‍රතිදානය : ඉහත තිර රුව අද්විතීය සසම්භාවී පූර්ණ සංඛ්‍යා 20 1 සහ 20 පරාසයේ.
තව කියවන්න: එක්සෙල් හි සසම්භාවී අංක උත්පාදක යන්ත්‍රය පුනරාවර්තන නොමැතිව (ක්‍රම 9) 3>
සමාන කියවීම්
- Data Analysis Tool සහ Excel හි ක්‍රියාකාරීත්වය සහිත සසම්භාවී අංක උත්පාදක
- කෙසේද එක්සෙල් හි අහඹු දත්ත උත්පාදනය කරන්න (9පහසු ක්‍රම)
- Excel හි අහඹු 5 ඉලක්කම් සංඛ්‍යා උත්පාදක (උදාහරණ 7)
- Excel හි සසම්භාවී 4 ඉලක්කම් සංඛ්‍යා උත්පාදක (උදාහරණ 8)
- Excel හි ලැයිස්තුවෙන් අහඹු අංකයක් ජනනය කරන්න (මාර්ග 4)
3. Excel VBA හි Unique Random Number Generator සඳහා දශම ස්ථාන සඳහන් කරන්න
අපගේ කේතයේ රවුම් ශ්‍රිතය නිශ්චිතව ද අහඹු ලෙස ජනනය කරන ලද අද්විතීය සංඛ්‍යා හි දශම ස්ථාන සංඛ්‍යාව . ශ්‍රිතයේ වාක්‍ය ඛණ්ඩය -
රවුම්(ප්‍රකාශනය, [සංඛ්‍යා දශමස්ථාන])
අපට නිශ්චිතව ද දෙවන තර්කය අපගේ අවශ්‍යතාවයට අනුව .
කාර්යය : දශම ස්ථාන 2ක් සහිත අහඹු සංඛ්‍යා 20ක් <1 අතර ජනනය කරන්න>1 සහ 20 සෛල A1:B10.
කේතය : දෘශ්‍ය මූලික සංස්කාරකය තුළ පහත කේතය ඇතුළු කර F5 ඔබන්න ට ධාවනය කිරීමට එය.
2673
ප්‍රතිදානය : ඉහත තිර රුව මඟින් අද්විතීය සසම්භාවී පූර්ණ සංඛ්‍යා 20 ක් පෙන්වයි 2 දශම ස්ථාන 1 සහ 20 පරාසයේ.
වැඩිදුර කියවන්න: දශමයන් සමඟ Excel හි අහඹු අංකය ජනනය කරන්න (ක්‍රම 3)
4. Excel VBA හි අනුපිටපත් නොමැතිව සසම්භාවී අංක උත්පාදක සඳහා පරිශීලක පෝරමයක් සංවර්ධනය කරන්න
මෙම නිදර්ශනයේදී, අපි පරිශීලක පෝරමය භාවිතා කරන ආකාරය පෙන්වමු>Excel VBA සසම්භාවී අංක ජනනය කිරීමට අනුපිටපත් නොමැතිව .
කාර්යය: ජනනයඅහඹු සංඛ්‍යා 20ක් කොටු පරාසයේ A1:B10 පරිශීලක පෝරමය භාවිතයෙන් ආදාන අගයන් (i) පහළට (ii) ඉහළට (iii) දශමස්ථාන ගණන.
පරිශීලක පෝරමයක් සාදන්න:
පරිශීලක පෝරමය අපගේ අවශ්‍ය ආදාන ක්ෂේත්‍ර සමඟින් නිර්මාණය කිරීමට පහත පියවර අනුගමනය කරන්න .
- Excel Ribbon වෙතින් Developer tab වෙත යන්න.
- Visual ක්ලික් කරන්න මූලික විකල්පය.
- Visual Basic For Applications කවුළුව තුළ, ඇතුළු පතන <2 ක්ලික් කරන්න> තේරීම සඳහා පරිශීලක පෝරමය විකල්පය.
- පරිශීලක පෝරමය එක් කරන්න ලේබලය .
- ලේබලය ලෙස පහළට ලෙස සිරස්තල .
- තවත් ලේබල් නම Upperbund සහ DecimalPlaces .
එක් කරන්න. 24>
- දැන් TextBoxes තුනක් UserForm තුළ එක් කරන්න.
- මෙම අදියරේදී, a CommandButton එකතු කර එය Generate ලෙස නම් කරන්න.
- දැන්, ඩබල් ක්ලික් කරන්න CommandButton සහ පහත කේතය කේත සංස්කාරකයට දමන්න.
9027
- කේතය ධාවනය කිරීමට F5 ඔබන්න>සහ පරිශීලක පෝරමය පෙනී ඇත .
- පහළට , ඉහළට, සහ අංකය <දමන්න. පරිශීලක පෝරමයෙහි දශම ස්ථාන 2> සහ Generate ඔබන්නබොත්තම .
ප්‍රතිදානය : සෛල A1:B10 තුළ අහඹු ලෙස 20 ඇත අංක 2 දශම ස්ථාන 1 සිට 30 දක්වා පරාසයක.
තවත් කියවන්න: Excel හි අනුපිටපත් නොමැතිව අහඹු අංක උත්පාදනය කරන්නේ කෙසේද (මාර්ග 7)
මතක තබා ගත යුතු කරුණු
- අපිට ද භාවිතා කළ හැක Int ශ්‍රිතය වෙනුවට අද්විතීය පූර්ණ සංඛ්‍යා ජනනය කිරීමට ශ්‍රිතය සවි කරන්න. Int ශ්‍රිතය මෙන් සංඛ්‍යාවක භාගික කොටස ඉවත් කරයි.
නිගමනය
දැන්, සුදුසු උදාහරණ ආධාරයෙන් Excel හි VBA භාවිතයෙන් අනන්‍ය අහඹු සංඛ්‍යා උත්පාදනය කරන්නේ කෙසේදැයි අපි දනිමු. ක්‍රියාකාරීත්වය වඩාත් විශ්වාසයෙන් භාවිතා කිරීමට එය ඔබට උපකාරී වනු ඇතැයි බලාපොරොත්තු වෙමු. ඕනෑම ප්‍රශ්නයක් හෝ යෝජනා ඒවා පහත අදහස් පෙට්ටියේ තැබීමට අමතක නොකරන්න.
