VBA RND செயல்பாட்டைப் பயன்படுத்தி சீரற்ற எண்களை உருவாக்கவும்
எக்செல் விபிஏ சீரற்ற எண்கள்
க்கு vba இல் சீரற்ற எண்களை உருவாக்குங்கள் எங்களிடம் உள்ளடிக்கிய செயல்பாடு உள்ளது ஆர்.என்.டி.. சீரற்ற எண்களை உருவாக்க இது ஒரு வாதத்தை எடுக்கும், இது ஒரு விருப்ப அளவுருவாகும். இது 0 க்கும் அதிகமான மற்றும் 1 ஐ விட சிறியதாக இருக்கும் சீரற்ற எண்களை உருவாக்கும்.
இது எக்செல் செயல்பாடு “RAND” போலவே செயல்படுகிறது. பணித்தாள் செயல்பாட்டில் “RAND” இல் நான் சொன்னது போல், VBA யிலும் நாம் 0 ஐ விட அதிகமாக ஆனால் 1 க்கும் குறைவான சீரற்ற எண்களை உருவாக்க முடியும்.
இப்போது “RND” செயல்பாட்டின் தொடரியல் பாருங்கள்.
[எண்]: நாம் வாதத்தை மூன்று வழிகளில் அனுப்பலாம்.
- நாம் எண்ணை <0 என அனுப்பினால், அது ஒவ்வொரு முறையும் ஒரே சீரற்ற எண்ணை உருவாக்குகிறது.
- நாம் எண்ணை 0 ஆக அனுப்பினால், அது கொடுத்த மிக சமீபத்திய எண்ணை அது மீண்டும் செய்யும்.
- நாம் எண்> 0 ஐக் கடந்துவிட்டால், அது உங்களுக்கு வெவ்வேறு சீரற்ற எண்களைத் தருகிறது, அதாவது வரிசையில் அடுத்த சீரற்ற எண்.
VBA குறியீட்டைப் பயன்படுத்தி சீரற்ற எண்களை உருவாக்குவது எப்படி?
இந்த விபிஏ ரேண்டம் எண்கள் எக்செல் வார்ப்புருவை இங்கே பதிவிறக்கம் செய்யலாம் - விபிஏ ரேண்டம் எண்கள் எக்செல் வார்ப்புருஎடுத்துக்காட்டு # 1
இப்போது “RND” செயல்பாட்டைப் பயன்படுத்துவதற்கான எளிய உதாரணத்தைக் காண்போம். VBA குறியீட்டை உங்கள் சொந்தமாக எழுத பின்வரும் படிகளைப் பின்பற்றவும்.
படி 1: மாறி என அறிவிக்கவும் VBA இல் “முழு எண்”
குறியீடு:
துணை Rnd_Example1 () மங்கலான கே ஆக முழு எண் முடிவு துணை
படி 2: இப்போது “k” என்ற மாறிக்கு “ஆர்.என்.டி.”செயல்பாடு.
குறியீடு:
துணை Rnd_Example1 () மங்கலான K ஆக முழு எண் K = Rnd () முடிவு துணை
படி 3: இல் “k” மாறி வழங்கிய மதிப்பைக் காட்டு செய்தி பெட்டி.
குறியீடு:
துணை Rnd_Example1 () மங்கலான K ஆக முழு எண் K = Rnd () MsgBox K End Sub
இப்போது எக்செல் மேக்ரோவை இயக்கி, அதன் விளைவு என்ன என்று பாருங்கள்.
என்ன நடந்தது என்று பாருங்கள்.
இது முடிவை 1 ஆகக் காட்டுகிறது, அங்கு “RND” செயல்பாடு பூஜ்ஜியத்தை விட பெரியது ஆனால் 1 க்கும் குறைவான எண்களை மட்டுமே தரும்.
இங்கே தவறான விஷயம் என்ன என்பதை நீங்கள் சிந்திக்க வேண்டும்.
இங்கே தவறான விஷயம் என்னவென்றால், “k” என்ற மாறிக்கு நாம் ஒதுக்கிய தரவு வகை.
நீங்கள் மாறியை திரும்பிப் பார்த்தால், நாங்கள் தரவு வகையை முழு எண் என ஒதுக்கியுள்ளோம் என்று அறிவித்துள்ளோம். நாம் மாறியை முழு எண் என ஒதுக்கியுள்ளதால், அது -32768 முதல் 32767 வரையிலான முழு எண்களை மட்டுமே காட்ட முடியும்.
RND தசம எண்ணைத் தரும் போதெல்லாம் VBA தசம எண்ணை அருகிலுள்ள முழு எண்ணாக மாற்றுகிறது, அதாவது 1.
எனவே, சூத்திரம் சரியாக செயல்பட மாறியை “இரட்டை”.
"இரட்டை" என்பது VBA இல் உள்ள தரவு வகை, இது தசம மதிப்புகளை வைத்திருக்க முடியும்.
குறியீடு:
துணை Rnd_Example1 () மங்கலான K என இரட்டை K = Rnd () MsgBox K End Sub
இப்போது குறியீடு மற்றும் முடிவு என்ன என்று பாருங்கள்.
சரி என்பதைக் கிளிக் செய்து, இன்னும் ஒரு முறை இயக்கி, அதன் விளைவு என்ன என்பதைப் பாருங்கள்.
இந்த நேரத்தில் எங்களுக்கு வேறு முடிவு கிடைத்தது. “RND” என்பது இயற்கையில் ஒரு கொந்தளிப்பான செயல்பாடு என்பதால், நீங்கள் குறியீட்டை இயக்கும் ஒவ்வொரு முறையும் இது வெவ்வேறு முடிவுகளை மீண்டும் உருவாக்குகிறது.
எடுத்துக்காட்டு # 2 - ஒவ்வொரு முறையும் ஒரே சீரற்ற எண்ணைப் பெறுங்கள்
முந்தைய உதாரணத்தை நாம் பார்த்தது போல், “RND” செயல்பாடு ஒவ்வொரு முறையும் நாம் குறியீட்டை இயக்கும்போது முடிவை மீண்டும் உருவாக்குகிறது. ஒரே சீரற்ற எண்ணைப் பெற, மீண்டும் மீண்டும், நாம் வாதத்தை பூஜ்ஜியமாக அனுப்ப வேண்டும்.
குறியீடு:
துணை Rnd_Example2 () மங்கலான K என இரட்டை K = Rnd (0) MsgBox K End Sub
நாம் குறியீட்டை இயக்கும்போது இது மீண்டும் மீண்டும் அதே எண்ணை உருவாக்கும்.
எடுத்துக்காட்டு # 3 - முழு சீரற்ற எண்ணை உருவாக்கவும்
பிற VBA செயல்பாடு அல்லது பிற உள்ளீட்டு எண்களைப் பயன்படுத்தி முழு எண்களையும் உருவாக்கலாம். உதாரணமாக கீழே உள்ள குறியீட்டைப் பாருங்கள்.
குறியீடு:
துணை Rnd_Example3 () மங்கலான K என இரட்டை K = 1 + Rnd * 100 MsgBox K End Sub
ஒவ்வொரு முறையும் நாம் குறியீட்டை இயக்கும்போது இந்த குறியீடு தசம புள்ளிகளுடன் சீரற்ற முழு எண்களை உருவாக்கும்.
நீங்கள் தசம புள்ளிகள் இல்லாமல் முழு எண்களையும் பார்க்கிறீர்கள் என்றால், நாங்கள் கீழே உள்ள குறியீட்டைப் பயன்படுத்தலாம்.
குறியீடு:
துணை Rnd_Example3 () மங்கலான K என இரட்டை K = CInt (1 + Rnd * 100) MsgBox K End Sub
இது 1 முதல் 100 வரை முழு எண்களையும் உருவாக்கும்.
