كيف يمكنك تحويل الأرقام الموجبة إلى سالبة في Excel؟

كيف يمكنك تحويل جميع الأرقام أو القيم الموجبة إلى سالبة بسرعة في Excel؟ إليك الطرق التالية التي ستساعدك على إنجاز هذه المهمة بسهولة وسرعة.

تغيير الأرقام الموجبة إلى سالبة باستخدام دالة لصق خاص

تغيير الأرقام الموجبة إلى سالبة أو العكس باستخدام Kutools لـ Excel

تغيير الأرقام الموجبة إلى سالبة باستخدام كود VBA

تغيير الأرقام الموجبة إلى سالبة باستخدام دالة لصق خاص

يمكنك تحويل الأرقام الموجبة إلى سالبة بسهولة باستخدام دالةلصق خاصفي Excel. اتبع الخطوات التالية:

1. اضغط على الرقم-1 في خلية فارغة وانسخه.

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

3. ثم اختر خيارالكلمن قائمةلصق، وحددضربمن قسمالعملية.

4. ثم انقر علىموافق، وسيتم تحويل جميع الأرقام الموجبة إلى سالبة.

5. وأخيرًا، يمكنك حذف الرقم -1 متى ما احتجتَ إلى ذلك.

تغيير الأرقام الموجبة إلى سالبة أو العكس باستخدام Kutools لـ Excel

يمكنك أيضًا استخدام أداةKutools لـ Excelالخاصة بـتغيير علامة الرقملتغيير جميع الأرقام الموجبة إلى سالبة بسرعة.

إذا كنت قد قمت بتثبيتKutools لـ Excel، فيمكنك تغيير الأرقام الموجبة إلى سالبة كما يلي:

1. حدد النطاق الذي ترغب في تغييره.

2. انقر علىKutools > المحتوى > تغيير علامة الرقم، انظر لقطة الشاشة:

3. في مربع حوارتغيير علامة الرقم، اختر الخيارتغيير جميع الأرقام الموجبة إلى سالبة.

4. ثم انقر علىموافقأوتطبيق. وسيتم تحويل جميع الأرقام الموجبة إلى أرقام سالبة.

تغيير الأرقام الموجبة إلى سالبة باستخدام كود VBA

باستخدام كود VBA، يمكنك أيضًا تحويل الأرقام الموجبة إلى سالبة، ولكن يتطلب ذلك معرفة كيفية استخدام VBA. يُرجى اتباع الخطوات التالية:

1. حدد النطاق الذي ترغب في تغييره.

2. انقر علىالمطور > Visual Basic، وسيظهر نافذة جديدة باسممايكروسوفت Visual Basic للتطبيقات. بعد ذلك، انقر علىإدراج > وحدة نمطية، ثم انسخ والصق الأكواد التالية في الوحدة النمطية:

Sub ChangeToNegative()
'Updateby Extendoffice
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    xValue = rng.Value
    If xValue > 0 Then
        rng.Value = xValue * -1
    End If
Next
End Sub

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

4. انقر علىموافق، ثم سيتم تحويل القيم الموجبة في النطاق المحدد إلى سالبة دفعة واحدة.

عرض توضيحي: تغيير الأرقام الموجبة إلى سالبة أو العكس باستخدام Kutools لـ Excel

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