۳ روش کاربردی برای شناسایی اعداد زوج و فرد در اکسل
تابع MOD یکی از توابع موجود در نرم افزار EXCEL می باشد که در جای خود می تواند یکی از توابع بسیار مهم و کاربردی برای ما باشد .
ما قبلا در خصوص این تابع در اکسل و نحوه کارکرد آن مطلب جداگانه ای را منتشر کردیم .
ضمن اینکه شما را برای مطالعه مطلب مربوطه به لینک یر ارجاع می دهم فقط اشاره ای کوتاه به عملکرد این تابع داشته باشم که این تابع دو عدد را از ما دریافت کرده با تقسیم عدد اول بر عدد دوم باقی مانده حاصل از این تقسیم را به ما برمی گرداند .
مطلب مرتبط : آموزش تابع MOD در اکسل به همراه یک مثال کاربردی
حالا می خواهیم از عملکرد این تابع در طی یک مثال عملی و کاملا کاربردی استفاده کنیم .
فرض کنید که یک محدوده حاوی اعداد متعدد داریم و می خواهیم اعداد را به تفکیک زوج و فرد بودن از هم متمایز کنیم .
برای این کار می توانیم از قابلیت Format Conditional در اکسل استفاده کنیم .
به کمک این قابلیت می توانیم کاری کنیم که مثلا سلول هایی که حاوی اعداد زوج هستند بطور خودکار برای ما به رنگ زرد درآیند و سلول های حاوی اعدادی که فرد هستند برای ما به رنگ سبز درآیند .
خوب برای این کار اول باید تشخیص بدهیم که عدد موجود در داخل یک سلول عدد فرد است یا زوج .
برای این کار از تابع Mod استفاده می کنیم .
به این ترتیب که می دانیم که هر عددی که در یک سلول قرار دارد را اگر بر عدد ۲ تقسیم کنیم و باقی مانده حاصل از این تقسیم صفر بود بنابراین می توانیم نتیجه بگیریم که عدد مربوطه زوج است .
اما اگر باقی مانده حاصل از این تقسیم عددی غیر از صفر بود می توانیم نتیجه بگیریم که عدد مربوطه فرد است . .
مراحل تعیین زوج و فرد بودن مقادیر در یک محدوده
برای انجام این کار مراحل زیر را دنبال نمایید .
جدول حاوی اعداد زیر را در نظر بگیرید .
می خواهیم رنگ زمینه سلول های که حاوی اعداد زوج هستند را به رنگ زرد و سلول های دارای اعداد فرد را به رنگ آزرد دربیاوریم . برای این منظور از سربرگ Home گزینه conditional Formating را انتخاب نمایید .
در لیست کشویی که برای شما باز می شود گزینه New Rule را انتخاب نمایید .
در پنجره ای که برای شما باز می شود آخرین گزینه که در تصویر زیر با عدد ۱ مشخص شده است را انتخاب نمایید .
در کادر شماره ۲ تابع MOD را به قرار زیر وارد نمایید .
mod(A1;2)=0=
این فرمول تعیین می کند که آیا عدد موجود در سلول زوج است یا خیر .
برای تعیین رنگ مربوط به اعداد زوج بر روی دکمه Format کلیک نمایید .
در پنجره مشابه تصویر زیر سربرگ Fill را باز نموده و رنگ زرد را انتخاب و Ok کنید .
با تائید پنجره های باز در مراحل قبل مشاهده خواهید کرد که رنگ سلول های حاوی اعداد زوج به رنگ زرد در آمده اند .
برای تغییر رنگ سلول های حاوی اعداد فرد نیز دقیقا همان مراحل مربوط به اعداد زوج را دنبال نمایید با این تفاوت که در کادر شماره مربوط به پنجره conditional Formatting استفاده نمایید .
mod(a1;2)=1=
این فرمول تعیین می نماید که آیا یک عدد فرد است یا خیر .
و در قسمت تعیین رنگ زمینه برای سلول های فرد نیز رنگ سبز را انتخاب نمایید .
نتیجه نهایی مشابه تصویر زیر خواهد بود .
ما در اینجا دو کار را با هم انجام دادیم :
اول با استفاده از تابع MOD تعیین کردیم که کدام عدد فرد است و کدام عدد زوج .
دوم اینکه با استفاده از قابلیت Conditional Formatting تعیین کردیم که هر کدام از سلول ها به تفکیک اینکه زوج یا فرد است به چه رنگی درآیند .
ما برای این آموزش یک کلیپ هم آماده کرده ایم که کل فرآیندی را که در بالا توصیف کردیم را در مدت زمان یک دقیقه آموزش می دهیم .
در اولین بروز رسانی در مورد این مطلب می خواهیم روش جدیدی را برای شناسایی مقادیر و اعداد زوج و فرد در اکسل با هم مورد بررسی قرار دهیم .
در روش قبل ما از تابع Mod استفاده کرده و مقادیر زوج و فرد را به کمک آن پیدا کردیم .
حالا می خواهیم همین کار را با استفاده از برنامه نویسی و کد نویسی VBA انجام دهیم .
پس با من همراه باشید تا این روش جدید را هم با هم یاد بگیریم .
شناسایی مقادیر زوج و فرد به کمک کدهای وی بی ای
قبل از هر چیز نگاهی به محدوده اعداد خود در جدول بالا بکنیم .
فرض کنید که د اعداد ما در محدوده سلول های A1 تا A10 قرار دارند .
حالا باید همین محدوده را توسط کد نویسی به برنامه خود معرفی کنیم .
برای این که بتوانیم مقادیر و اعداد را از لحاظ زوج و فرد بررسی کنیم باید مراحل زیر را دنبال کنیم .
در قدم اول یک ماژول را باز کرده در داخل آن یک روال از نوع Sub تعریف می کنیم و کدهای خود را در آن درج می کنیم .
1 2 3 4 5 6 7 8 9 10 | ()sub mynumber Dim myrange As Range ("Set myrange = Worksheets("sheet1").Range("a1:e10 Dim mycell As Range End Sub |
در اینجا با استفاده از متد Range و دستور Set محدوده مورد نظر را انتخاب می کنبم .
حالا باید کاری کنیم که برنامه بصورت خودکار تک تک سلول ها را چک کند تا متوجه شود که آیا عدد وارد شده زوج است یا فرد .
برای این کار از حلقه For Each استفاده می کنیم .
حالا به کدهای تکمیل شده زیر نگاه کنید .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ()Sub mynumber Dim myrange As Range ("Set myrange = Worksheets("sheet1").Range("a1:e10 Dim mycell As Range For Each mycell In myrange If WorksheetFunction.IsEven(mycell) = True Then mycell.Interior.Color = vbYellow End If Next End Sub |
در این کدها اصل کار در خط ۱۲ انجام می شود.
در این خط با استفاده از تابع IsEven تشخیص می دهیم که عدد موجود در سلول زوج است یا خیر .
در خط بعدی می گوییم که اگر عدد مربوطه زوج بود رنگ پس زمینه سلول به رنگ زرد در می آید
در ادامه باید تعیین کنیم که رنگ پس زمینه سلول های حاوی اعداد فرد به چه نحو باشد .
بنابراین کدهای خود را تکمیل تر می کنیم .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ()Sub mynumber Dim myrange As Range ("Set myrange = Worksheets("sheet1").Range("a1:e10 Dim mycell As Range For Each mycell In myrange If WorksheetFunction.IsEven(mycell) = True Then mycell.Interior.Color = vbYellow Else mycell.Interior.Color = vbGreen End If Next End Sub |
در اینجا با استفاده از دستور Else تعیین می کنیم که هر سلولی را که شامل اعداد زوج نبود قاعدتا حاوی اعداد فرد است .
پس رنگ این سلول ها را برای ما به رنگ سبز در آورد.
حالا کافی است کدهای خود را اجرا کنیم تا نتیجه را مشاهده کنیم .
پس در اینجا ما توانستیم با استفاده از کد نویسی وی بی ای تمامی کارهای مورد نظر در خصوص یافتن مقادیر زوج و فرد را در اکسل به پایان ببریم .
برای مشاهده دهها کلیپ آموزشی که همگی در قالب زمانی یک دقیقه ای و در زمینه کار با نرم افزار اکسل تهیه شده اند می توانید به پیج ما در اینستاگرام مراجعه کنید.
برای این کار کافی است بر روی تصویر زیر کلیک کنید .