وظيفة VBA CDBL | كيفية تحويل القيمة إلى نوع بيانات مزدوج؟
وظيفة Excel VBA CDBL
VBA CDBL هي وظيفة تحويل نوع بيانات يحمل في ثناياه عوامل واستخدام هذه الوظيفة هو أنها تحول نوع البيانات لقيمة أي متغير معين إلى نوع بيانات مزدوج ، وهذه الوظيفة تأخذ فقط وسيطة واحدة وهي قيمة المتغير نفسه.
في VBA ، تشير كلمة "CDBL" إلى "تحويل إلى مزدوج". تقوم هذه الوظيفة بتحويل الرقم المحدد إلى نوع بيانات مزدوج. ألق نظرة على صيغة دالة CDBL.
- التعبير هو القيمة التي نحاول تحويلها إلى نوع بيانات مزدوج.
يمكن تحويل أي رقم عائم يتم تخزينه كنوع بيانات مزدوج عن طريق تطبيق وظيفة CDBL.
أشر للتذكر هنا: يمكن تحويل القيم الرقمية فقط إلى نوع بيانات مزدوج. لا يمكن تحويل أي شيء بخلاف القيمة العددية إلى نوع مزدوج ، لذا ينتهي الأمر بإظهار "خطأ عدم تطابق النوع في VBA" كما هو موضح أدناه.
هل سبق لك استخدام نوع بيانات مزدوج في ترميز VBA؟
إذا لم يكن الأمر كذلك ، فإن الأمر يستحق إلقاء نظرة عليه الآن. مزدوج هو نوع البيانات المستخدم لتخزين الموضع العشري للرقم. يمكن أن يكون لدينا ما يصل إلى 13 رقمًا عشريًا عائمًا.
للحصول على مثال ، انظر إلى رمز VBA أدناه.
في ما سبق ، قمت بتعريف نوع المتغير (k) على أنه عدد صحيح. خافت ك كعدد صحيح
بعد ذلك ، قمت بتعيين القيمة كـ k = 25.4561248694615
عندما أقوم بتشغيل الكود ، سنحصل على النتيجة على النحو التالي.
حصلنا على النتيجة 25. نظرًا لأننا حددنا المتغير على أنه عدد صحيح ، يتم تقريبه إلى أقرب قيمة صحيحة.
لإظهار النتيجة كما هي ، نحتاج إلى تغيير نوع المتغير من عدد صحيح إلى مزدوج.
يجب أن يعطينا هذا الرقم الدقيق كما حددناه للمتغير.
حسنًا ، مع وضع ذلك في الاعتبار ، يمكننا أيضًا تحويل جميع أرقام الكسور المخزنة كنوع بيانات غير مزدوج.
أمثلة لاستخدام وظيفة VBA CDBL
يمكنك تنزيل قالب وظيفة VBA CDBL هذا هنا - قالب وظيفة VBA CDBLمثال 1
لبدء الإجراءات دعنا ننظر إلى الكود أدناه.
رمز:
Sub Double_Example1 () Dim k As String k = 48.14869569 MsgBox k End Sub
الآن سأقوم بتشغيل الكود وأرى ما سيحدث.
على الرغم من أن نوع متغير VBA هو "String" إلا أنه لا يزال يعرض القيم العشرية. هذا لأن String يمكن أن تكون من أي نوع من أنواع البيانات ، لذا تظهر الأرقام العشرية أو العائمة كما هي.
الآن سوف أقوم بتغيير نوع البيانات من سلسلة إلى عدد صحيح.
رمز:
Sub Double_Example1 () Dim k كعدد صحيح k = 48.14869569 MsgBox k End Sub
الآن سأقوم بتشغيل الكود وأرى ما سيحدث.
هذا هو المكان الذي تلعب فيه وظيفة CDBL دورًا حيويًا لتحويل نوع البيانات الصحيح إلى مضاعف. لذا فإن الكود أدناه هو نفسه بالنسبة لك.
رمز:
Sub Double_Example1 () Dim IntegerNumber as String Dim DoubleNumber as Double IntegerNumber = 48.14869569 DoubleNumber = CDbl (IntegerNumber) MsgBox DoubleNumber End Sub
سيؤدي هذا إلى تحويل قيمة نوع بيانات السلسلة إلى مزدوج.
المثال رقم 2
الآن دعنا نحول الرقم 854.6947 المخزن كمتغير لنوع بيانات مزدوج.
رمز:
Sub Double_Example2 () VaraintNumber Dim DoubleNumber as Double VaraintNumber = 854.6947 DoubleNumber = CDbl (VaraintNumber) MsgBox DoubleNumber End Sub
المتغير الأول الذي صرّحته بأنه "متغير". فارينت خافت
ملاحظة: عندما لا يتم التصريح عن نوع المتغير فإنه يصبح نوع بيانات عالمي متغير.
بعد ذلك ، أعلنت عن متغير واحد آخر ، مثل Dim DoubleNumber As Double
بالنسبة للمتغير الأول VaraintNumber ، قمنا بتعيين القيمة 854.6947.
الآن باستخدام المتغير الثاني ، قمنا بتطبيق دالة CDBL لتحويل قيمة المتغير إلى نوع بيانات مزدوج.
DoubleNumber = CDbl (VaraintNumber)
الجزء الأخير هو إظهار النتيجة في مربع الرسالة. MsgBox DoubleNumber
الآن سأقوم بتشغيل الكود لرؤية النتيجة.
أشياء للذكرى
- يمكن أن يقبل نوع البيانات المزدوج أرقامًا رقمية فقط.
- إذا تم توفير قيمة نصية ، فسيؤدي ذلك إلى حدوث خطأ في عدم تطابق النوع.
- يمكن لنوع البيانات المزدوج عرض 13 رقمًا فقط من الأرقام العائمة.
