كيفية تحويل السلاسل إلى أحرف كبيرة باستخدام vba

يمكنك استخدام الدالة UCase في VBA لتحويل السلاسل إلى أحرف كبيرة.

يمكنك استخدام بناء الجملة التالي لتحويل نطاق من الخلايا التي تحتوي على سلاسل إلى أحرف كبيرة:

 Sub ConvertToUpperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = UCase(Range(" A " & i))
    Next i
    
End Sub

سيقوم هذا المثال تحديدًا بتحويل كل سلسلة في النطاق A2:A10 إلى أحرف كبيرة وعرض النتائج في النطاق B2:B10 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: تحويل السلاسل إلى أحرف كبيرة باستخدام VBA

لنفترض أن لدينا العمود التالي من السلاسل في Excel:

لنفترض أننا نريد تحويل كل سلسلة في العمود A إلى أحرف كبيرة وعرض النتائج في العمود B:

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub ConvertToUpperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = UCase(Range(" A " & i))
    Next i
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض العمود B كل سلسلة في العمود A بأحرف كبيرة.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة UCase في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية مقارنة السلاسل في VBA
كيفية إزالة المسافات من سلسلة في VBA
كيفية استبدال الأحرف في سلسلة في VBA