كيف تسمح بإدخال الأرقام السالبة فقط في Excel؟
في Excel، كيف تسمح بإدخال الأرقام السالبة فقط؟ يعرض لك هذا المقال بعض الحيل المفيدة والسريعة لإنجاز هذه المهمة بسلاسة.
السماح بالأرقام السالبة فقط في Excel باستخدام التحقق من صحة البيانات
السماح بالأرقام السالبة فقط في Excel باستخدام كود VBA
السماح بالأرقام السالبة فقط في Excel باستخدام التحقق من صحة البيانات
بشكلٍ عام، يمكن أن تساعدك دالةالتحقق من صحة البيانات، يُرجى اتباع الخطوات التالية:
1. حدد الخلايا أو العمود الذي تريد السماح بإدخال الأرقام السالبة فيه فقط، ثم انقر فوقبيانات > التحقق من صحة البيانات > التحقق من صحة البيانات. انظر لقطة الشاشة:
2. في مربع حوارالتحقق من صحة البيانات، ضمن علامة التبويبالإعدادات، قم بتنفيذ الخيارات التالية:
(1.) في قسمالسماح بـ، اخترعشريمن قائمة الإسقاط؛
(2.) في قسمالبيانات، يُرجى اختيار خيارأقل من أو يساوي؛
(3.) أخيرًا، أدخل الرقم0 في مربع النصالحد الأقصى.
3. بعد ذلك، انقر فوقموافق. الآن، يُسمح بإدخال الأرقام السالبة والصفر فقط، وعند إدخال أي رقم موجب، ستظهر رسالة تحذير. انظر لقطة الشاشة:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
السماح بالأرقام السالبة فقط في Excel باستخدام كود VBA
هناك أيضًا كود VBA يمكنه مساعدتك، فمع الكود التالي، عند إدخال رقم موجب، سيتم تحويله تلقائيًا إلى رقم سالب، يُرجى اتباع الخطوات التالية:
1. انقر بزر الماوس الأيمن على لسان تبويب الورقة التي تريد السماح فيها بالأرقام السالبة فقط، ثم اخترعرض الكودمن القائمة السياقية. بعد ذلك، في نافذةMicrosoft Visual Basic for Applications المنبثقة، انسخ والصق الكود التالي فيالوحدة البرمجية (Module)الفارغة:
كود VBA: السماح بالأرقام السالبة فقط في ورقة العمل:
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 لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل