كيف تقسم نطاقًا من الخلايا على عدد في 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

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