كيفية تقسيم نطاق من الخلايا على رقم في Excel؟

في بعض الأحيان، قد تحتاج إلى تعديل نطاق من الخلايا بسرعة في Excel. على سبيل المثال، إذا كان لديك قائمة بأسعار المنتجات وتريد تقسيم جميع الأسعار على 2، كيف يمكنك القيام بذلك بكفاءة؟ يوفر هذا البرنامج التعليمي طرقًا خطوة بخطوة لتقسيم نطاق من الخلايا على رقم. دعنا نستعرض كل طريقة بالتفصيل.

تقسيم نطاق من الخلايا على رقم باستخدام وظيفة اللصق الخاص

تقسيم نطاق من الخلايا بسرعة على رقم باستخدام Kutools لـ Excel

تقسيم نطاق من الخلايا على رقم باستخدام كود VBA

تقسيم نطاق من الخلايا على رقم باستخدام وظيفة اللصق الخاص

على سبيل المثال، سأقوم بتقسيم جميع الخلايا على الرقم 15 باستخدام وظيفة "اللصق الخاص" في Excel، ويمكنك إنجاز هذه المهمة باستخدام الخطوات التالية:

1. أدخل الرقم المقسوم عليه مثل 15 في خلية فارغة وقم بنسخه.

2. حدد النطاق الذي تريد تقسيم جميع الأرقام فيه على 15 وانقر بزر الماوس الأيمن، واختر "اللصق الخاص" من القائمة.

3. في مربع الحوار "اللصق الخاص"، انقر على خيار "الكل" في قسم "اللصق".

4. احذف الرقم 15 الذي أدخلته مسبقًا.

الآن تم تقسيم نطاق الخلايا على الرقم 15. شاهد لقطة الشاشة:

تقسيم نطاق من الخلايا بسرعة على رقم باستخدام Kutools لـ Excel

إذا كانت طريقة اللصق الخاص صعبة بعض الشيء بالنسبة لك، هل هناك طريقة أسهل وأسرع للتعامل مع هذه المهمة؟ نعم، ميزة "الحساب" في Kutools لـ Excel يمكن أن تساعدك في تقسيم نطاق من الخلايا على رقم خلال ثوانٍ!

1. حدد النطاق الذي يحتوي على الأرقام التي تريد تقسيمها على رقم معين. ثم انقر فوق "Kutools" > "المزيد" > "الحساب"، شاهد لقطة الشاشة:

3. في مربع الحوار "أدوات الحساب"، حدد "القسمة" في مربع "العملية"، وأدخل الرقم المقسوم عليه مثل "15" في مربع "العمليات". ويمكنك رؤية النتائج من لوحة "المعاينة". وأخيرًا انقر على زر "موافق" أو "تطبيق". شاهد لقطة الشاشة:

تقسيم نطاق من الخلايا على رقم باستخدام كود VBA

باستخدام كود VBA، يمكنك أيضًا تقسيم نطاق من الخلايا على رقم تلقائيًا.

1. حدد النطاق الذي تريد تقسيمه على رقم.

2. انقر فوق "المطور" > "Visual Basic"، ستظهر نافذة جديدة "Microsoft Visual Basic for applications"، انقر فوق "إدراج" > "وحدة"، ثم أدخل الكود التالي في الوحدة:

VBA: تقسيم نطاق من الخلايا على رقم

Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
    Rng.Value = Rng.Value / xNum
Next
End Sub

3. ثم انقر  لتشغيل الكود. في مربع حوار ينبثق، يرجى تحديد النطاق بالأرقام التي تريد تقسيمها على رقم معين، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

4. في مربع الحوار الثاني الذي يظهر، أدخل الرقم المقسوم عليه، ثم انقر فوق زر موافق. شاهد لقطة الشاشة:

الآن تم تقسيم جميع الأرقام في النطاق المحدد على الرقم 15.

عرض توضيحي: تقسيم نطاق من الخلايا بسرعة على رقم باستخدام Kutools لـ Excel

مقالات ذات صلة