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

تكون السلسلة صحيحة بحالة الأحرف إذا كان الحرف الأول من كل كلمة في السلسلة كبيرًا وجميع الأحرف الأخرى لكل كلمة صغيرة.

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

 Sub ConvertToProperCase()
    
    Dim i As Integer

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

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

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

مثال: تحويل السلاسل إلى حالة مناسبة باستخدام VBA

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

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

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

 Sub ConvertToProperCase()
    
    Dim i As Integer

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

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

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

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

مصادر إضافية

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

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