كيف يمكن تقريب نطاق الأرقام إلى أقرب عدد زوجي في Excel؟
ما المقصود بتقريب العدد إلى أقرب عدد زوجي في Excel؟ يُعرف هذا النوع من التقريب أيضًا باسم «التقريب المصرفي»، وهو يشبه التقريب العادي إلى حدٍ كبير، باستثناء الحالة التي يكون فيها الرقم المراد تقريبه ينتهي بالرقم 5. ففي هذه الحالة، إذا كان الرقم السابق لـ 5 فرديًا، تُقرَّب القيمة لأعلى، أما إذا كان زوجيًا، فتُقرَّب لأسفل.
على سبيل المثال،عند تقريب 23.345 إلى أقرب عدد زوجي على مستوى النسبة المئوية، يصبح الناتج 23.34. وعند تقريب 12.335 إلى أقرب عدد زوجي على مستوى النسبة المئوية، يصبح الناتج 12.34.
في هذه المقالة، سأشرح لك كيفية تنفيذ التقريب المصرفي في Excel بسهولة ودقة.
تقريب الأرقام إلى أقرب عدد زوجي باستخدام دالة معرّفة من قبل المستخدم
تقريب الأرقام إلى أقرب عدد زوجي باستخدام كود VBA
تقريب الأرقام إلى أقرب عدد زوجي باستخدام Kutools لـ Excel
تقريب الأرقام إلى أقرب عدد زوجي باستخدام دالة معرّفة من قبل المستخدم
يمكنك استخدام الدالة المعرَّفة التالية لتقريب الأرقام إلى أقرب عدد زوجي في Excel. يُرجى اتباع الخطوات التالية:
1. حدد الأرقام التي ترغب في تقريبها إلى أقرب عدد زوجي.
2. ثم اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.
3. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق ماكرو التالي في نافذة الوحدة النمطية.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. احفظ الكود، ثم أدخل الصيغة= bankersround(a1,2) في الخلية الفارغة المجاورة. راجع لقطة الشاشة:
5. ثم اضغط على مفتاحEnter. بعد ذلك، حدد الخلية B1، ثم اسحب مقبض التعبئة عبر النطاق الذي تريد تطبيق هذه الصيغة عليه. راجع لقطة الشاشة:
تقريب الأرقام إلى أقرب عدد زوجي باستخدام كود VBA
إذا كنت تفضل عدم استخدام الدالة المعرَّفة، فإن كود VBA التالي سيساعدك أيضًا. اتبع الخطوات التالية:
1. حدد النطاق الذي ترغب في تقريبه إلى أقرب عدد زوجي.
2. ثم اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلكنافذة Microsoft Visual Basic for Applications.
3. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub4. ثم اضغط على مفتاحF5 لتشغيل هذا الكود. في مربع الحوار الظاهر، أدخل عدد المنازل العشرية التي تريد التقريب إليها. راجع لقطة الشاشة:
5. ثم انقر فوقموافق، وسيتم تقريب جميع الأرقام المحددة إلى أقرب عدد زوجي. راجع لقطات الشاشة:
 |  |  |
تقريب الأرقام إلى أقرب عدد زوجي باستخدام Kutools لـ Excel
إذا شعرت أن الدالة المُعرَّفة أو كود VBA معقَّدان للغاية، فلديّ لك طريقة أسهل لحل هذه المهمة! باستخدامالتقريب بدون استخدام الصيغةمنKutools لـ Excel، يمكنك تقريب نطاق من الأرقام إلى أقرب عدد زوجي بسرعة.
Kutools لـ Excelيضمّ أكثر من 300 أداة مفيدة لبرنامج Excel. جرّبه مجانًا دون أي قيود لمدة 30 يومًا! احصل عليه الآن.
بعد تثبيت Kutools لـ Excel، يمكنك اتباع الخطوات التالية:
1. حدد النطاق الذي ترغب في تقريبه إلى أقرب عدد زوجي.
2. انقر فوقKutools > تقريب.
3. في مربع حوارالتقريب بدون استخدام الصيغة، أدخل عدد الأماكن العشرية المطلوب، ثم اخترتقريب إلى عدد زوجيضمنالخيار، ويمكنك معاينة النتيجة منلوحة المعاينة. راجع لقطة الشاشة:
4. ثم انقر فوقموافقأوتطبيق، وسيتم تقريب جميع الأرقام إلى أقرب عدد زوجي بمنزلتين عشريتين.
انقر فوق «تقريب إلى عدد زوجي» لمعرفة المزيد عن هذه الميزة.
مقال ذو صلة:
تقريب / تقريب لأعلى / تقريب لأسفل نطاق من أرقام الخلايا في Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل