كيفية السماح فقط بالأرقام السالبة في Excel؟
في Excel ، كيفية السماح بإدخال الأرقام السالبة فقط؟ ستقدم لك هذه المقالة بعض الحيل المفيدة والسريعة لحل هذه المهمة.
السماح فقط بالأرقام السالبة في Excel مع التحقق من صحة البيانات
السماح فقط بالأرقام السالبة في Excel برمز VBA
السماح فقط بالأرقام السالبة في Excel مع التحقق من صحة البيانات
عادة، و التحقق من صحة البيانات يمكن أن تساعدك الوظيفة ، يرجى القيام بما يلي:
1. حدد الخلايا أو العمود الذي تريد السماح بإدخال الأرقام السالبة فقط ، ثم انقر فوق البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، انظر لقطة الشاشة:
2. في التحقق من صحة البيانات مربع الحوار ، تحت الإعدادات علامة التبويب ، قم بتنفيذ الخيارات التالية:
(1.) في السماح القسم، اختر عشري من القائمة المنسدلة ؛
(2.) في البيانات القسم ، الرجاء الاختيار اقل او يساوي الخيار.
(3.) أخيرًا ، أدخل الرقم 0 في أقصى مربع الكتابة.
3. ثم اضغط OK، والآن ، يُسمح فقط بإدخال الأرقام السالبة و 0 ، وإذا تم إدخال رقم موجب ، فسيتم عرض رسالة تحذير ، انظر لقطة الشاشة:
افتح Excel Magic باستخدام Kutools AI
- التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
- ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
- تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
- ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.
السماح فقط بالأرقام السالبة في 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
ملاحظات: في الكود أعلاه ، A1: A1000 هي الخلايا التي تريد إدخال الأرقام السالبة فقط.
2. ثم احفظ هذا الرمز وأغلقه ، وارجع إلى ورقة العمل ، والآن ، عند إدخال بعض الأرقام الموجبة في الخلايا التي حددتها في الرمز ، سيتم تحويل الأرقام الموجبة إلى أرقام سلبية تلقائيًا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!