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

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

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 Sub ConvertStringToDouble()

    Dim i As Integer

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

End Sub

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

وإلا، سيتم تحويل السلسلة إلى قيمة فارغة.

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

مثال: تحويل سلسلة إلى مزدوجة في VBA

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

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

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

 Sub ConvertStringToDouble()

    Dim i As Integer

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

End Sub

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

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

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

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

مصادر إضافية

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

كيفية تحويل السلسلة إلى int في VBA
كيفية تحويل سلسلة إلى طويلة في VBA