انتقل إلى المحتوى الرئيسي

كيفية السماح فقط بالأرقام السالبة في Excel؟

في Excel ، كيفية السماح بإدخال الأرقام السالبة فقط؟ ستقدم لك هذه المقالة بعض الحيل المفيدة والسريعة لحل هذه المهمة.

السماح فقط بالأرقام السالبة في Excel مع التحقق من صحة البيانات

السماح فقط بالأرقام السالبة في Excel برمز VBA


السهم الأزرق الحق فقاعة السماح فقط بالأرقام السالبة في Excel مع التحقق من صحة البيانات

عادة، و التحقق من صحة البيانات يمكن أن تساعدك الوظيفة ، يرجى القيام بما يلي:

1. حدد الخلايا أو العمود الذي تريد السماح بإدخال الأرقام السالبة فقط ، ثم انقر فوق البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، انظر لقطة الشاشة:

doc يسمح فقط بالسالب 1

2. في التحقق من صحة البيانات مربع الحوار ، تحت الإعدادات علامة التبويب ، قم بتنفيذ الخيارات التالية:

(1.) في السماح القسم، اختر عشري من القائمة المنسدلة ؛

(2.) في البيانات القسم ، الرجاء الاختيار اقل او يساوي الخيار.

(3.) أخيرًا ، أدخل الرقم 0 في أقصى مربع الكتابة.

doc يسمح فقط بالسالب 2

3. ثم اضغط OK، والآن ، يُسمح فقط بإدخال الأرقام السالبة و 0 ، وإذا تم إدخال رقم موجب ، فسيتم عرض رسالة تحذير ، انظر لقطة الشاشة:

doc يسمح فقط بالسالب 3


السهم الأزرق الحق فقاعة السماح فقط بالأرقام السالبة في Excel برمز VBA

فيما يلي رمز VBA يمكن أن يساعدك أيضًا ، باستخدام الكود التالي ، عند إدخال رقم موجب ، سيتم تحويله إلى رقم سلبي تلقائيًا ، يرجى القيام بما يلي:

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد السماح بالأرقام السالبة فقط ، واختر عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة:

كود فبا: السماح فقط بالأرقام السالبة في ورقة العمل:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

doc يسمح فقط بالسالب 4

ملاحظات: في الكود أعلاه ، A1: A1000 هي الخلايا التي تريد إدخال الأرقام السالبة فقط.

2. ثم احفظ هذا الرمز وأغلقه ، وارجع إلى ورقة العمل ، والآن ، عند إدخال بعض الأرقام الموجبة في الخلايا التي حددتها في الرمز ، سيتم تحويل الأرقام الموجبة إلى أرقام سلبية تلقائيًا.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations