Note: The other languages of the website are Google-translated. Back to English

كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟

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

قسّم نطاقًا من الخلايا على رقم باستخدام وظيفة "لصق خاص"


السهم الأزرق الحق فقاعة قسّم نطاقًا من الخلايا على رقم باستخدام وظيفة "لصق خاص"

يمكن أن يساعدك رمز VBA التالي على إدخال الأرقام والنقطة (.) وعلامة سلبية فقط في مربع نص ، يرجى القيام بذلك على النحو التالي:

1. قم بإنشاء مربع نص من خلال النقر المطور > إدراج > مربع نص (عنصر تحكم ActiveX)، ثم ارسم مربع نص حسب حاجتك ، انظر الصورة:

مربع نص المستند أرقام فقط 1

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

مربع نص المستند أرقام فقط 2

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

مربع نص المستند أرقام فقط 3


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

كيفية تطبيق التدقيق الإملائي في مربع النص؟

كيفية تغيير لون مربع النص بناءً على القيمة في Excel؟

كيفية إدراج الصورة في مربع النص؟

كيفية تعيين قيمة افتراضية في مربع نص؟


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت بشكل مثالي! أفضل حل لهذه المشكلة! شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك أيضًا مشاركة كيفية وضع الحد الأقصى للقيمة في الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مارك
عُذْرًا ، لَا أَفْهَمِكَ ، هَلْ تَقْصَدُ حَدِّدَ الْقِيمَةِ فِي الكود؟
هل ستعطي مشكلتك بمزيد من التفصيل؟
شكرا!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL