كيف تجبر إدخال النص بأحرف كبيرة في مربع نص؟

في Excel ، يمكننا تحويل الأحرف الصغيرة بسرعة إلى أحرف كبيرة في نص الخلية باستخدام وظيفة UPPER ، ولكن هل سبق لك أن حاولت إجبار النص المدخل على أن يكون أحرفًا كبيرة في مربع نص؟ في هذه المقالة ، سأقدم رمزًا بسيطًا لإنهاء هذه المهمة.

فرض الأحرف الكبيرة لإدخال النص في مربع نص برمز VBA

---

فرض الأحرف الكبيرة لإدخال النص في مربع نص برمز VBA

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

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

2. بعد إدخال مربع النص ، انقر بزر الماوس الأيمن فوقه واختر عرض الرمز من قائمة السياق لفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات window ، ثم استبدل الكود الأصلي برمز VBA التالي في الوحدة النمطية الفارغة:

رمز فبا: فرض النص على أحرف كبيرة في مربع النص:

Private Sub TextBox1_Change()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

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