بيان نوع VBA (مثال) | كيف يتم التصريح عن المتغيرات باستخدام نوع VBA؟

النوع عبارة عن بيان في VBA يستخدم لتحديد متغيرات مشابهة لوظيفة DIM ، ويستخدم على المستوى المحدد من قبل المستخدم حيث لدينا قيمة واحدة أو أكثر في متغير ، وهناك نوعان من المصطلحات لبيان النوع وهو عام أو خاص ولكن هذه اختيارية للاستخدام ، لكن اسم المتغير واسم العنصر مطلوبان.

ما هو بيان النوع في Excel VBA؟

يستخدم بيان نوع VBA لتحديد المتغيرات تحت اسم مجموعة واحدة مع أنواع بيانات مختلفة مخصصة لكل متغير. يساعدنا هذا في تجميع متغيرات متعددة معًا تحت كائن واحد لاستخدامها تحت اسم النوع المحدد.

من خلال التصريح عن عبارة النوع ، يمكننا تجنب استخدام وحدات Class في VBA. لا يحتاج إلى أي وحدات سلسلة لأنه يمكن تضمينها في الوحدات الموجودة بالفعل والتي يمكن أن توفر لنا مساحة.

في إحدى المقالات السابقة ، ناقشنا "VBA ENUM" لتجميع جميع المتغيرات معًا تحت اسم مجموعة واحدة.

على سبيل المثال ، إذا كان لديك اسم مجموعة يسمى "الهواتف المحمولة" ، فلدينا أعضاء في المجموعة مثل "Redmi و Oppo و Vivo و Samsung و LG وغيرها .." لذا يمكننا تجميع بيان Enum مع قيمهم الخاصة.

اينوم موبايل

ريدمي = 12000

أوبو = 18000

فيفو = 18000

سامسونج = 25000

LG = 15000

End Enum

مثل هذا ، قمنا بإنشاء تعدادات في تلك المقالة. مشكلة عبارة Enum حيث يمكنها الاحتفاظ بنوع بيانات طويل فقط. من أجل تجميع المتغيرات مع أنواع بيانات مختلفة ، يمكننا استخدام "بيان نوع VBA". في هذه المقالة ، سنوضح لك كيفية إنشاء عبارة النوع في VBA. واصل القراءة…

بناء الجملة

قبل أن تعلن عن المتغيرات باستخدام عبارة النوع ، ألق نظرة على بناء الجملة:

اكتب اسم المجموعة             [المتغير 1] كنوع بيانات متغير             [متغير 2] كنوع بيانات متغير             [متغير 3] كنوع بيانات             متغير [متغير 4] كنوع بيانات             متغير [متغير 5] كنوع بيانات متغير نهاية

يمكن الإعلان عن هذه الأنواع من البيانات داخل الوحدة النمطية وكذلك في الجزء العلوي من الوحدة مثل المتغيرات العالمية الخاصة بنا في VBA.

يمكن أن يحتوي نوع VBA على متغيرات الكائن ، ويمكنه الاحتفاظ بالمصفوفات. ومع ذلك ، لا يمكن أن تحتوي على إجراءات ووظائف.

اكتب مثال بيان في VBA

يمكنك تنزيل نموذج بيان نوع VBA هنا - قالب بيان نوع VBA

حسنًا ، دعنا نبدأ عملية التصريح عن المتغيرات باستخدام عبارة النوع. سنرى نفس المثال للإعلان عن العلامات التجارية للجوال مثل الطريقة التي استخدمناها في VBA Enum.

الخطوة 1: في الجزء العلوي من الوحدة ، ابدأ كلمة "النوع" وأدخل اسمًا إلى نوع المجموعة.

رمز:

 اكتب نوع نهاية MobileBrands 

الخطوة 2: في Mobile Brands ، ما هي الأشياء التي نراها عادةً. نرى الاسم أولاً ، لذا نعلن أن المتغير هو الاسم كسلسلة.

رمز:

 اكتب اسم MobileBrands كنوع نهاية سلسلة 

الخطوة 3: بعد الاسم ، نتحقق من تاريخ الإطلاق. قم بتعريف المتغير باسم LaunchDate كتاريخ.

رمز:

 اكتب اسم MobileBrands على أنه String LaunchDate كنوع تاريخ الانتهاء 

الخطوة 4: الشيء التالي هو التحقق من سعة التخزين. لإعلان المتغير التخزين كعدد صحيح.

رمز:

 اكتب اسم MobileBrands على أنه String LaunchDate As Date Storage كنوع نهاية صحيح 

الخطوة 5: الشيء التالي هو التحقق من سعة ذاكرة الوصول العشوائي.

رمز:

 اكتب اسم MobileBrands على أنه String LaunchDate As Date Storage as RAM as Integer End Type 

الخطوة 6: أخيرًا نتحقق من السعر.

رمز:

 اكتب اسم MobileBrands على أنه String LaunchDate As Date Storage as Integer RAM as Integer Price as long end type 

الآن في الإجراء الفرعي من خلال إعلان المتغير باسم النوع ، أي MobileBrands ، يمكننا الوصول إلى جميع أنواع البيانات المتغيرة هذه.

الخطوة 7: إنشاء إجراء فرعي.

رمز:

 النوع الفرعي Type_Example1 () End Sub 

الخطوة 8: أعلن الآن عن المتغير "Mobile" على أنه MobileBrnads.

رمز:

 Sub Type_Example1 () Dim Mobile As Mob End Sub 

الخطوة 9: الآن باستخدام المتغير "Mobile" يمكننا الوصول إلى جميع متغيرات "MobileBrands".

رمز:

الخطوة 10: الآن قم بتخزين كل قيمة كما يلي.

رمز:

 اكتب اسم MobileBrands على أنه String LaunchDate كتخزين للتاريخ كذاكرة RAM صحيحة كسعر صحيح كنوع نهاية طويلة Sub Type_Example1 () Dim Mobile As MobileBrands Mobile.Name = "Redmi" Mobile.LaunchDate = "10-Jan-2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile.LaunchDate & vbNewLine & _ Mobile.Storage & vbNewLine & Mobile.RAM & vbNewLine & Mobile.Price End Sub 

أخيرًا ، اعرض النتيجة في مربع رسالة VBA مثل المربع أدناه.

رمز:

 Sub Type_Example1 () Dim Mobile As MobileBrands Mobile.Name = "Redmi" Mobile.LaunchDate = "10-Jan-2019" Mobile.Storage = 62 Mobile.RAM = 6 Mobile.Price = 16500 MsgBox Mobile.Name & vbNewLine & Mobile. تاريخ الإطلاق & vbNewLine & _ Mobile.Storage & vbNewLine & Mobile.RAM & vbNewLine & Mobile.Price End Sub 

الآن قم بتشغيل الكود باستخدام مفتاح F5 أو يدويًا وشاهد النتيجة في مربع رسالة.

مثل هذا ، يمكننا استخدام عبارة "نوع VBA" لتحديد نوع بيانات جديد في الإجراء الفرعي.

أنواع VBA مقابل فئة VBA

غالبًا ما تتم مقارنة نوع VBA بوحدات فئة VBA. هناك اختلافات معينة بينهما. فيما يلي الاختلافات المشتركة.

  • الفرق 1: يمكن أن يحتوي نوع VBA فقط على المتغيرات العامة. يمكن أن تحتوي فئة VBA على المتغيرات العامة وكذلك الخاصة.
  • الفرق 2: لا يمكن أن يحتوي نوع VBA على الإجراءات والوظيفة. تحتوي فئة VBA على كلاهما مع الخصائص.
  • الفرق 3: يمكن الإعلان عن نوع VBA في أي من الوحدات والإجراءات. لا يمكن الإعلان عن فئة VBA إلا في وحدات فئة مخصصة.

$config[zx-auto] not found$config[zx-overlay] not found