අන්තර්ගත වගුව
VBA Mod යනු ශ්රිතයක් නොවන අතර MOD යනු Excel වැඩ පත්රිකාවක ශ්රිතයකි. VBA Mod යනු අංක දෙකක් බෙදා ඉතිරි ලබා දෙන ක්රියාකරුවෙකි. Mod ක්රියාකරු යනු ගණිත ක්රියා වලදී භාවිතා වන MODULO හි කෙටි ආකාරයකි. Mod operators round up the floating-point .
මෙම ලිපියෙන්, මම පෙන්වන්නම් ඔබ Excel VBA Mod ක්රියාකරු භාවිතා කිරීම පිළිබඳ විවිධ උදාහරණ.
පුහුණු වීමට බාගන්න
VBA Mod Operator හි උදාහරණ. xlsm
VBA Mod කාර්යයේ මූලික කරුණු: සාරාංශය & Syntax
සාරාංශය
VBA Mod ක්රියාකරු අංක දෙකක් බෙදා ඉතිරි ලබා දෙයි. එකක් භේදයක් අනෙක් ලෙස හඳුන්වන්නේ සංඛ්යාව ය. Mod ක්රියාකරු අංකය divisor මගින් බෙදයි.
Syntax
Number1 Mod Number2 (Divisor)
තර්ක
18>ප්රතිලාභ අගය
VBA Mod ක්රියාකරු ඉතිරියක් ලබා දෙයි .
අනුවාදය
VBA Mod ක්රියාකරු Excel 2000 සහ ඊට පසුව ලබා ගත හැක.<20
මම භාවිතා කරන්නේ Excel Microsoft 365 වෙත1 කොටසේ පැහැදිලි කර ඇත.
➤ මම බොත්තම ඉරට්ටේ හෝ ඔත්තේ ලෙස නම් කළෙමි.
ඉන් පසු, බොත්තම මත ක්ලික් කර <1 ක්රියාත්මක කරන්න>VBA කේතය.
එබැවින්, ඉරට්ටේ සහ කුමන අගය ඔත්තේ ද යන්න ඔබට දැනගත හැක.
මෙහි, 1 යනු ඔත්තේ අංකයයි.
මෙහි, 2 යනු ඉරට්ටේ අංකය.
වැඩිදුර කියවන්න: VBA නම් – එවිට – Excel හි වෙනත් ප්රකාශය (උදාහරණ 4)
9. ඉතිරිය ලබා ගැනීමට VBA Mod හි Cell Range භාවිතා කිරීම
ඔබට ඉතිරි ලබා ගැනීම සඳහා සෛල පරාසය භාවිත කළ හැක. VBA Mod .
VBA සංස්කාරකය විවෘත කිරීමට, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, පහත කේතය ටයිප් කරන්න මොඩියුලය .
4523
මෙහි, Get_Reminder_UsingVBA උප ක්රියා පටිපාටිය තුළ, මම n විචල්යය ප්රකාශ කළෙමි. නිඛිල ලෙස.
ඉන්පසු, මම සෛල යොමුව හරහා ප්රකාශ කළ අගය තබාගත් සඳහා ලූපයක් භාවිතා කළෙමි. 4 සිට 9 දක්වා වූ අගයන් සඳහා ලූපය ක්රියා කරයි.
ඉන්පසු ඉතිරි<2 පෙන්වීමට MsgBox භාවිත කළේය>.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
බොත්තම ඇතුළු කිරීමට, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න .
➤ මම බොත්තම ගතික සෛල යොමුව ලෙස නම් කළෙමි.
ඉන් පසු, VBA<2 ක්රියාත්මක කිරීමට බොත්තම මත ක්ලික් කරන්න> කේතය.
එබැවින්, ඔබට භාවිතා කරන ලද සියලුම අගයන් සඳහා ඉතිරි ලැබෙනු ඇත.එකකින්.
පළමු එක සංඛ්යාව 29 එහිදී භේදකය 3 වේ.
දෙවන එක අංකය -47 භේදකය 5 .
ලූපය 9 පේළියට ළඟා වන තෙක් ක්රියා කරයි. පස්වන එක අංකය 59 භේදකය 6 වේ.
අදාළ අන්තර්ගතය: Excel හි VBA සසම්භාවී ක්රියාකාරිත්වය භාවිතා කරන්නේ කෙසේද (උදාහරණ 5)
Excel MOD අතර වෙනස & VBA Mod
බොහෝ අවස්ථා සඳහා ප්රතිලාභ අගයන් MOD ක්රියාකාරීත්වය සහ VBA Mod ක්රියාකරු සඳහා සමාන වුවද සමහර අවස්ථා සඳහා ප්රතිඵලය එකිනෙකාගෙන් වෙනස් වේ. මම ඔබට ඒවා අතර වෙනස පෙන්වමි
තර්ක | අවශ්යයි/ විකල්ප | පැහැදිලි කිරීම |
---|---|---|
අංක1 | අවශ්යයි | එය යනු සංඛ්යාත්මක ප්රකාශනයකි |
අංක2 | අවශ්යයි | එය සංඛ්යාත්මක ප්රකාශනය |
MOD ශ්රිතය නිඛිල සහ දශම සංඛ්යා යන දෙකම ලබා දෙයි. | Mod ක්රියාකරු නිඛිල සංඛ්යා පමණක් ලබා දෙයි. | |
සෘණ අංකයක් MOD හි භාවිතා කරන විට එය <එකක් ලබා නොදේ 1>ඍණ ලකුණ . | එය සෘණ සංඛ්යා සඳහා සහය දක්වන අතර පසුව සෘණ ලකුණ ලබා දෙයි. |
🔺 ක්රියාකරු දශම/පාවෙන ලකුණු වට කරයි.
අභ්යාස අංශය
මෙම පැහැදිලි කරන ලද උදාහරණ ප්රගුණ කිරීම සඳහා මම වැඩපොතෙහි පුහුණු පත්රිකාවක් සපයා ඇත.
නිගමනය
මෙම ලිපියෙන් මම Excel VBA Mod ක්රියාකරුට උදාහරණ 9ක් පෙන්වා ඇත. නිතර නිතර දෝෂ පෙන්වීමට හේතු ආවරණය කිරීමට ද මම උත්සාහ කළෙමි. ක්රියාකරු භාවිතා කරන විට ඔබ මතක තබා ගත යුතු කරුණු සමඟ. ඕනෑම ආකාරයක විමසුම් සහ යෝජනා සඳහා පහත අදහස් දැක්වීමට නිදහස් වන්න.
මෙම උදාහරණ ක්රියාත්මක කරන්න.9 Excel හි VBA Mod Function භාවිතා කිරීමේ උදාහරණ
1. VBA Mod භාවිතයෙන් ඉතිරිය ලබා ගැනීම
ඔබට අවශ්ය නම්, ඔබට ලබා ගත හැක ඉතිරි VBA Mod ක්රියාකරු භාවිතයෙන්.
ඔබට ක්රියා පටිපාටිය පැහැදිලි කිරීමට මට ඉඩ දෙන්න,
ආරම්භ කිරීමට, සංවර්ධකයා විවෘත කරන්න tab >> Visual Basic තෝරන්න.
➤ දැන්, Microsoft Visual Basic සඳහා අලුත් කවුළුවක් දිස්වනු ඇත.
ඊළඟට, ඇතුළු කරන්න >> මොඩියුලය තෝරන්න
දැන්, මොඩියුලය තුළ පහත කේතය ටයිප් කරන්න.
4466
3>
මෙහි, Get_Reminder උප ක්රියාපටිපාටියේදී, මම n Integer ලෙස විචල්යය ප්රකාශ කර <1 හි ආපසු ලබා දුන් අගය තබා ගැනීමට එය භාවිතා කළෙමි>Mod operator.
ඉන්පසු ඉතිරි පෙන්වීමට MsgBox භාවිතා කළේය.
දැන්, සුරකින්න කේතය සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
නැවතත්, සංවර්ධක tab >> ඇතුළු කරන්න >> Button Form Controls
දැන්, Drag Button වෙත තෝරන්න ඔබට සිරස්තලය ලබා දීමට අවශ්ය තැන එය තබන්න.
ඊළඟට, ඔබට බොත්තමට නමක් දිය හැක.
➤ මම එය සිහිගැන්වීමක් ලබා ගන්න ලෙස නම් කළෙමි.
0>⏩ දැන්, මූසිකය මත දකුණු ක්ලික් කරන්න Assign Macro හි සන්දර්භය මෙනුවක් දිස්වනු ඇත.
එතනින් Assign Macro තෝරන්න.
⏩ Dialog box of Assign Macro දිස්වේවි. .
ඉන්පසු, මැක්රෝ නාමය සහ මැක්රෝ ඉන් තෝරන්න.
⏩ මම මැක්රෝ නම න් ගෙට්_රිමයින්ඩර් තෝරාගෙන <1 තෝරා ගත්තෙමි>VBA Mod.xlsm Macros in වෙතින්.
අවසානයේ, OK ක්ලික් කරන්න.
ඉන්පසුව, Get_Reminder නම් බොත්තම මත ක්ලික් කරන්න.
එබැවින්, එය ඉතිරි සමඟ msg box පෙන්වයි.
<0ඔබට ඉතිරි ලබා ගැනීමට සියලු අංක සඳහා එය කළ හැක.
වැඩිදුර කියවන්න: Excel හි VBA ආකෘති ක්රියාකාරිත්වය (උදාහරණ සමඟ භාවිත 8)
2. ඉතිරිය ලබා ගැනීමට VBA Mod හි Cell Reference භාවිතා කිරීම
Excel පත්රයෙන් Cell Reference භාවිතා කිරීමෙන්, ඔබට VBA Mod වෙතින් ඉතිරි ලබා ගත හැක.
විවෘත කිරීමට VBA සංස්කාරකය, 1 කොටසේ පැහැදිලි කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, මොඩියුලය තුළ පහත කේතය ටයිප් කරන්න.
4564
3>
මෙහි, Reminder_Using_CellReference හි, මම n Integer ලෙස විචල්යය ප්රකාශ කර Mod <හි ආපසු අගය තබා ගැනීමට එය භාවිතා කළෙමි. 2>ක්රියාකරු.
ඊළඟට , සෛල යොමුව B4 number1 ලෙස සහ C4 number2 (divisor) ලෙස
ඉන්පසු <1 භාවිතා කරන ලදී>MsgBox ඉතිරි පෙන්වීමට.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
ඇතුළත් කිරීමට බොත්තම , 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
➤ මම බොත්තම සෛල යොමු ලෙස නම් කළෙමි.
ඊට පසුව, මත ක්ලික් කරන්න VBA ධාවනය කිරීමට බොත්තමකේතය.
එබැවින්, භාවිත කළ සෛල යොමුව සඳහා ඔබට ඉතිරි ලැබෙනු ඇත.
අදාළ අන්තර්ගතය: කෙසේද VBA ශ්රිතයේ අගයක් ආපසු ලබා දෙන්න (අරා සහ අරා නොවන අගයන් දෙකම)
3. සෘණ අංකයකින් ඉතිරිය ලබා ගැනීමට VBA Mod භාවිතා කිරීම
ඉතිරි ගණනය කිරීමේදී VBA Mod සෘණ සංඛ්යා සඳහාද සහය දක්වයි.
VBA <2 විවෘත කිරීමට>සංස්කාරකය, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, මොඩියුලය තුළ පහත කේතය ටයිප් කරන්න.
1857
මෙහි , Reminder_From_NegativeNumber, හි මම n Integer ලෙස විචල්යය ප්රකාශ කර Mod ක්රියාකරුගේ ආපසු අගය තබා ගැනීමට එය භාවිතා කළෙමි.
ඊළඟට, සෛල යොමුව B5 අංක1 ලෙස සහ C5 අංක2 (භාජනය)
ලෙස භාවිත කරන ලදී. ඉන්පසු ඉතිරි පෙන්වීමට MsgBox භාවිත කළේය.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
> බොත්තම ඇතුළු කිරීමට, 1 කොටසේ පැහැදිලි කර ඇති පියවර අනුගමනය කරන්න.
➤ මම th නම් කළා e බොත්තම සෘණ අංකයෙන් මතක් කිරීම .
ඉන් පසු, VBA කේතය ක්රියාත්මක කිරීමට බොත්තම මත ක්ලික් කරන්න.
එබැවින්, ඔබට සෘණ අංකය සඳහා ඉතිරි ලැබෙනු ඇත.
තවත් කියවන්න: VBA IsNumeric Function භාවිතා කරන්නේ කෙසේද (උදාහරණ 9)
4.
Cell හි ඉතිරිය ලබා ගැනීමට VBA Mod භාවිතා කිරීම ඉතුරු කොටස පෙන්වීම වෙනුවට හරහා msg box ඔබට VBA MOD ක්රියාකාරීත්වය භාවිතයෙන් එය කොටුවක තැබිය හැක.
VBA විවෘත කිරීමට සංස්කාරකය, 1 කොටසේ පැහැදිලි කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, මොඩියුලය තුළ පහත කේතය ටයිප් කරන්න.
7844
මෙහි, s ub-procedure Reminder_in_Cell , මම ActiveCell හි පිහිටීම ලබා ගැනීමට ActiveCell.FormulaR1C1 ආකෘතිය භාවිතා කළෙමි.
ඉන්පසු, ඉතිරි ලබා ගැනීමට MOD ශ්රිතය භාවිතා කළේය.
එමෙන්ම, තෝරන්න ක්රමය භාවිතා කළේය.
දැන්. , කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
බොත්තම සහ පවරන්න VBA කේතය ඇතුළු කිරීමට 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
➤ මම බොත්තම Cell එකේ Reminder ලෙස නම් කළා.
ඊළඟට, D4 කොටුව තෝරන්න.
ඉන්පසු, VBA කේතය ක්රියාත්මක කිරීමට බොත්තම මත ක්ලික් කරන්න.
ප්රතිඵලයක් ලෙස, ඔබට ලැබෙනු ඇත. තෝරාගත් කොටුවේ ඉතිරි .
මෙම ක්රියාවලිය අනුගමනය කිරීමෙන්, ඔබට ඉතිරි කොටස සඳහා ඉතිරි ලැබෙනු ඇත අංක.
තවත් කියවන්න: Excel VBA හි MsgBox කාර්යය භාවිතා කරන්නේ කෙසේද (සම්පූර්ණ මාර්ගෝපදේශයක්)
5. Integer Divisor සමඟ VBA Mod භාවිතා කිරීම සහ amp; Float Number
ඔබගේ භාජකය නිඛිල වර්ගය නම්, නමුත් ඔබේ අංකය float හි ඇත ටයිප් කරන්න එවිට ඔබට VBA Mod ක්රියාකරු භාවිතා කළ හැක.
VBA සංස්කාරකය විවෘත කිරීමට, කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න1.
ඉන්පසු, මොඩියුලය හි පහත කේතය ටයිප් කරන්න.
9588
මෙහි, R eminder_From_Decimal_Number උපසිරැසියේ -procedure, මම n Integer ලෙස විචල්යය ප්රකාශ කර Mod ක්රියාකරු
ආපසු ලබා දුන් අගය තබා ගැනීමට එය භාවිතා කලෙමි. මීළඟට, සෛල යොමුව B5 අංක1 ලෙස සහ C5 අංක2 (භාජනය)
ඉන්පසු MsgBox ඉතිරි පෙන්වීමට.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
ඇතුළු කිරීමට බොත්තම , 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
➤ මම බොත්තම දශම අංකයෙන් මතක් කිරීම ලෙස නම් කර ඇත.
ඊට පසුව, ක්ලික් කරන්න VBA කේතය ධාවනය කිරීමට බොත්තම .
එබැවින්, ඔබට දශම අංකය සඳහා ඉතිරි ලැබෙනු ඇත.
නමුත් VBA වට දශම කිරීමේ ගැටලුවක් ඇත. මෙහිදී, ප්රතිඵලය 2.25 විය යුතු නමුත් VBA Mod එය 2 වට කර ඇත.
යම් දශමයක්/ ඇත්නම් මතක තබා ගන්න. VBA Mod හි පාවෙන ලක්ෂ්යය 0.5 ට වඩා වැඩි වේ එවිට එය ඊළඟ නිඛිල අගයට වට කර වේ.
නම් එය VBA Mod හි 0.5 ට වඩා අඩුය, එවිට එය පවතින පූර්ණ සංඛ්යා අගයට වට කර වේ.
කියවන්න. තවත්: Excel හි VBA Int Function භාවිතා කරන්නේ කෙසේද ( උදාහරණ 3)
සමාන කියවීම්:
- Excel VBA හි IsNull කාර්යය භාවිතා කරන්නේ කෙසේද (5උදාහරණ)
- Excel හි VBA Str Function භාවිතා කරන්න (උදාහරණ 4)
- VBA Switch Function භාවිතා කරන්නේ කෙසේද (සුදුසු උදාහරණ 6ක්)
- Excel හි VBA Len ක්රියාකාරිත්වය භාවිතා කරන්න (උදාහරණ 4)
- Excel Sheet හි අනුපිටපත් ඉවත් කරන්නේ කෙසේද (ක්රම 7)
6. භාජක සහ amp; සංඛ්යාව දෙකම දශම වේ
ඔබගේ භේදකය සහ සංඛ්යාව දෙකම දශම/float වර්ගයේ නම්, ඔබට ද භාවිතා කළ හැක VBA Mod ක්රියාකරු.
VBA සංස්කාරකය විවෘත කිරීමට, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, පහත කේතය ටයිප් කරන්න මොඩියුලය .
3622
මෙහි, උප ක්රියාපටිපාටියේ දශම_දෙකම_බෙදුම්_අංකය, මම n විචල්යය ප්රකාශ කළෙමි. නිඛිල ලෙස සහ Mod ක්රියාකරුගේ ආපසු අගය තබා ගැනීමට එය භාවිත කළේය.
ඊළඟට, සෛල යොමුව B5 ලෙස භාවිත කළේය. number1 සහ C5 number2 (divisor)
ඉන්පසු ඉතිරි පෙන්වීමට MsgBox භාවිතා කළේය.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
බොත්තම ඇතුළු කිරීමට, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
➤ මම බොත්තම Get Reminder From When Divisor & සංඛ්යා දශම .
ඉන් පසු, VBA කේතය ක්රියාත්මක කිරීමට බොත්තම මත ක්ලික් කරන්න.
එබැවින්, ඔබට ඉතිරි දශම භාජකය සහ සංඛ්යා යන දෙකටම.
නමුත් ගැටලුවක් තිබේ VBA දශමකය වට කරයි. මෙහිදී, ප්රතිඵලය 1.75 විය යුතු නමුත් VBA Mod එය 2 වෙත වට කර ඇත.
අදාළ අන්තර්ගතය: Excel හි VBA EXP ක්රියාකාරිත්වය (උදාහරණ 5)
7. දශම සංඛ්යාව 0.5 ට වඩා වැඩි කිරීමට VBA Mod
මෙන්න, මම VBA Mod හි round up ක්රියා කරන ආකාරය ඔබට පෙන්වන්න ඉතිරි Excel MOD ක්රියාකාරීත්වය භාවිතා කරයි.
D4 කොටුවේ, පහත සූත්රය ටයිප් කරන්න,
=MOD(B6, C6)
මෙහි, මම B6 අංකය C6 ලෙස භාජකය ලෙස භාවිතා කළෙමි.
ඉන්පසු, ඉතිරි ලබා ගැනීමට ENTER ඔබන්න එවිට ඔබට ඉතිරි එය 7.7 වනු ඇත.
දැන්, අපි VBA Mod හරහා ගණනය කරමු, VBA සංස්කාරකය විවෘත කිරීමට 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, මොඩියුලය තුළ පහත කේතය ටයිප් කරන්න.
7696
මෙහි, උප-ක්රියාපටිපාටියේ දශම_දෙකම_බෙදුම්_අංකය, මම ප්රකාශ කළෙමි. විචල්යය e n නිඛිල ලෙස සහ Mod ක්රියාකරුගේ ආපසු ලැබුණු අගය තබා ගැනීමට එය භාවිතා කළේය.
ඊළඟට, සෛල යොමුව භාවිත කළේය. B6 number1 ලෙස සහ C6 number2 (divisor) ලෙස
ඉන්පසු MsgBox පෙන්වීමට ඉතිරි .
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
බොත්තම ඇතුළු කිරීමට, අනුගමනය කරන්න එමපියවර 1 කොටසේ විස්තර කර ඇත.
➤ මම බොත්තම රවුන්ඩ්ස්අප් දශම අංකය ලෙස නම් කළෙමි.
ඉන් පසු, <ක්රියාත්මක කිරීමට බොත්තම මත ක්ලික් කරන්න 1>VBA කේතය.
එබැවින්, භාවිත කළ සෛල යොමුව සඳහා ඔබට ඉතිරි ලැබෙනු ඇත.
ප්රවේශමෙන් බලන්න. ඉතිරි හිදී VBA Mod ආපසු ලැබිණි. එම අගයන් සඳහා MOD ක්රියාකාරීත්වය 7.7 එන නමුත් VBA Mod ක්රියාකරු 0 ලබා දුන්නේය. VBA අගයන් වට කර ඇති පරිදි.
වැඩිදුර කියවන්න: Excel හි VBA වට ශ්රිතය භාවිතා කරන්නේ කෙසේද (ඉක්මන් භාවිත 6ක්)
8. ඉරට්ටේ හෝ ඔත්තේ සංඛ්යාව තීරණය කරන්න
VBA Mod එමෙන්ම ඉරට්ටේ හෝ ඔත්තේ අංකය තීරණය කරයි දී ඇති පරාසයක සිට.
VBA සංස්කාරකය විවෘත කිරීමට, 1 කොටසේ විස්තර කර ඇති පියවර අනුගමනය කරන්න.
ඉන්පසු, පහත කේතය මොඩියුලයේ ටයිප් කරන්න .
5605
මෙහි, උප ක්රියාපටිපාටිය Determine_Even_Or_Odd, මම n විචල්යය නිඛිල ලෙස ප්රකාශ කළෙමි. .
ඉන්පසු, මම සෛල යොමුව හරහා ප්රකාශ කළ අගය තබා ගත් සඳහා ලූපයක් භාවිතා කළෙමි.
ඊළඟට, මම IF භාවිතා කළෙමි. ශ්රිතය මම n Mod 2 = 0 ලෙස නිර්ණායක සකසන අගය සත්ය නම් එය ඉරට්ටේ ප්රකාශයක් නොඑසේ නම් ඔත්තේ .<3
ඉන්පසු ප්රකාශය පෙන්වීමට MsgBox භාවිතා කරන ලදී.
දැන්, කේතය සුරකින්න සහ වැඩ පත්රිකාව වෙත ආපසු යන්න.
බොත්තම ඇතුළු කිරීමට, පියවර අනුගමනය කරන්න