كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟
في Excel ، يمكننا تطبيق وظيفة التحقق من صحة البيانات للسماح بإدخال الأرقام فقط في الخلايا ، لكن في بعض الأحيان ، أريد فقط كتابة الأرقام في مربع نص وكذلك في الخلايا. كيفية قبول الأرقام فقط في مربع نص في إكسيل؟
قسّم نطاقًا من الخلايا على رقم باستخدام وظيفة "لصق خاص"
قسّم نطاقًا من الخلايا على رقم باستخدام وظيفة "لصق خاص"
يمكن أن يساعدك رمز VBA التالي على إدخال الأرقام والنقطة (.) وعلامة سلبية فقط في مربع نص ، يرجى القيام بذلك على النحو التالي:
1. قم بإنشاء مربع نص من خلال النقر المطور > إدراج > مربع نص (عنصر تحكم ActiveX)، ثم ارسم مربع نص حسب حاجتك ، انظر الصورة:
2. ثم انقر بزر الماوس الأيمن فوق مربع النص وحدد عرض الرمز من قائمة السياق لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات window ، ثم استبدل الكود الأصلي برمز VBA التالي في الوحدة النمطية الفارغة:
رمز فبا: السماح بإدخال الأرقام فقط في مربع النص:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. ثم احفظ وأغلق نافذة الكود ، واخرج من ملف وضع التصميم، الآن ، يمكن إدخال الأرقام ورمز الفترة والعلامة السلبية فقط في مربع النص ، انظر لقطة الشاشة:
مقالات ذات صلة:
كيفية تطبيق التدقيق الإملائي في مربع النص؟
كيفية تغيير لون مربع النص بناءً على القيمة في Excel؟
كيفية إدراج الصورة في مربع النص؟
كيفية تعيين قيمة افتراضية في مربع نص؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!