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

كيف يمكنك بسرعة تغيير جميع الأرقام أو القيم الموجبة إلى سالبة في 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، سيتم عرض نافذة جديدة Microsoft 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

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