كيف تتحقّق مما إذا كان الحرف الأول في خلية معيّنة حرفًا كبيرًا (أحرف كبيرة) في إكسل؟
قد يبدو تحويل جميع الأحرف إلى أحرف كبيرة في خلية بإكسل أمرًا سهلاً، لكن هل تعلم كيف تتحقّق مما إذا كان الحرف الأول فقط كبيرًا في خلية معيّنة؟ يعرض لك هذا المقال كود VBA الذي يساعدك على تحقيق ذلك بسهولة.
التحقّق مما إذا كان الحرف الأول في خلية معيّنة كبيرًا باستخدام كود VBA
التحقّق مما إذا كان الحرف الأول في خلية معيّنة كبيرًا باستخدام كود VBA
يرجى اتباع الخطوات التالية لتطبيق كود VBA للتحقّق مما إذا كان الحرف الأول في خلية ما كبيرًا أم لا في إكسل.
1. اضغط معًا على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module، ثم انسخ والصق كود VBA التالي في نافذة الكود.
كود VBA: التحقق مما إذا كان الحرف الأول كبيرًا في خلية
Sub UpperCaseCheck()
Dim xRg As Range
Dim xAsc As Integer
Set xRg = Range("A1")
xAsc = Asc(Mid(xRg.Value, 1, 1))
If xAsc > 64 And xAsc < 91 Then
MsgBox "First alpha character is capital"
Else
MsgBox "First alpha character is not capital"
End If
End Subملاحظة: في الكود، تمثّل الخلية A1 الخلية التي سيتم التحقق منها لمعرفة ما إذا كان حرفها الأول كبيرًا. يُرجى تعديلها حسب الحاجة.
3. اضغط على مفتاحF5 لتشغيل الكود. بعد ذلك، ستظهر نافذة حوارية منMicrosoft Excel لإخبارك ما إذا كان الحرف الأول في تلك الخلية المعيّنة كبيرًا أم لا، كما هو موضح في لقطات الشاشة أدناه.
مقالات ذات صلة:
- كيف يمكنك التحقق مما إذا كانت قيمة خلية ما تقع بين قيمتين في إكسل؟
- كيف يمكنك التحقق مما إذا كانت الخلية تبدأ أو تنتهي بحرف معيّن في إكسل؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل