كيفية تحويل سلسلة إلى عدد صحيح في vba (مع أمثلة)

يمكنك استخدام الدالة CInt في VBA لتحويل سلسلة نصية إلى عدد صحيح.

فيما يلي طريقتان شائعتان لاستخدام هذه الميزة عمليًا:

الطريقة الأولى: تحويل السلسلة إلى عدد صحيح في VBA

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

سيقوم هذا الماكرو المحدد بتحويل كل سلسلة في النطاق A2:A11 إلى عدد صحيح ويعرض الأعداد الصحيحة في النطاق B2:B11 .

الطريقة الثانية: تحويل السلسلة إلى عدد صحيح في VBA (فقط إذا كانت السلسلة رقمًا)

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

سيقوم هذا الماكرو المحدد بتحويل كل سلسلة في النطاق A2:A11 إلى عدد صحيح فقط إذا كانت السلسلة رقمًا. وإلا، سيتم تحويل السلسلة إلى قيمة فارغة.

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: تحويل السلسلة إلى عدد صحيح في VBA

لنفترض أن لدينا عمود القيم التالي في Excel، المنسق حاليًا كسلاسل نصية:

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

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

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        Range(" B " & i) = CInt(Range(" A " & i))
    Next i

End Sub

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

لاحظ أن كل سلسلة نصية في العمود A تم تحويلها إلى عدد صحيح ويتم عرضها في العمود B.

المثال 2: تحويل سلسلة إلى عدد صحيح في VBA (فقط إذا كانت السلسلة رقمًا)

لنفترض أن لدينا عمود القيم التالي في Excel، المنسق حاليًا كسلاسل نصية:

لنفترض أننا نريد تحويل كل سلسلة إلى عدد صحيح فقط إذا كانت السلسلة رقمًا ونعرض الأعداد الصحيحة في العمود B.

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

 Sub ConvertStringToInteger()

    Dim i As Integer

    For i = 2 To 11
        If IsNumeric(Range(" A " & i)) Then
            Range(" B " & i) = CInt(Range(" A " & i))
        Else
            Range(" B " & i) = 0
        End If
    Next i

End Sub

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

لاحظ أنه يتم تحويل السلاسل النصية الموجودة في العمود A والتي تكون أرقامًا فقط إلى أعداد صحيحة في العمود B.

وبخلاف ذلك، يتم ببساطة تحويل السلاسل النصية إلى قيمة فارغة.

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

مصادر إضافية

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

فبا: كيفية إزالة المسافات من سلسلة
فبا: كيفية حساب تكرارات الأحرف في سلسلة
VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى