وظيفة VBA VARTYPE | كيفية البحث عن نوع بيانات المتغير؟

وظيفة Excel VBA VarType

VBA VARTYPE تعني "نوع المتغير". تساعدنا هذه الوظيفة في تحديد نوع البيانات المخصص للمتغير المحدد أو بكلمة بسيطة يمكننا القول إنها تجد نوع القيمة المخزنة أو المخصصة للمتغير.

بناء الجملة

VarName: نحتاج فقط إلى توفير اسم المتغير للعثور على البيانات المخزنة في اسم المتغير المزود.

لذلك ، يأخذ اسم المتغير على أنه بناء الجملة أو وسيطة وفي المخرجات ، يُرجع نوع البيانات المعين للمتغير أو نوع البيانات المخزنة في المتغير.

لذلك ، إذا كنت قد تساءلت يومًا عن كيفية العثور على نوع البيانات المتغير أو نوع البيانات المخصصة للمتغير ، فلدينا هنا وظيفة VBA "VarType".

أمثلة

يمكنك تنزيل قالب Excel VBA VARTYPE هذا هنا - قالب Excel VBA VARTYPE

مثال 1

في VBA أثناء كتابة الكود ، عادةً ما نعلن عن متغير ونخصص نوع بيانات له. للحصول على مثال ، انظر إلى رمز VBA أدناه.

رمز:

 VarType_Example () خافت MyVar كسلسلة MyVar = "مرحبًا" End Sub 

في المثال أعلاه ، أعلنا أن المتغير هو "String" وبالنسبة لهذه السلسلة ، قمنا بتعيين القيمة كـ "Hello".

هذه حالة مباشرة ولكن من الممكن أيضًا الإعلان عن المتغيرات دون تعيين المتغيرات لها ، لذلك في مثل هذه الحالات ، تساعدنا وظيفة VarType.

رمز:

 VarType_Example () خافت MyVar MyVar = "مرحبًا" End Sub 

في الكود أعلاه ، لم نقم بتعيين أي نوع بيانات ولكن على الفور قمنا بتعيين القيمة كـ "مرحبًا" ، لذلك باستخدام وظيفة VarType ، يمكننا العثور على نوع بيانات المتغير.

افتح MSGBOX في ترميز VBA في الكود أعلاه.

ثم افتح وظيفة VarType.

أدخل الآن اسم المتغير كوسيطة لوظيفة VARTYPE.

رمز:

 VarType_Example () خافت MyVar MyVar = "مرحبًا" MsgBox VarType (MyVar) End Sub 

الآن قم بتشغيل الكود وشاهد ما حصلنا عليه في مربع الرسالة.

لقد حصلنا على النتيجة 8 لأن VBA لديها أكواد معينة لكل نوع من أنواع البيانات المتغيرة ، لذلك يوجد أدناه قائمة مفصلة لك.

قيمة مستمر وصف
0 vb فارغ لم تتم تهيئة المتغير بعد
1 vbNull تم تعيين بيانات غير صالحة
2 vbInteger قيمة المتغير هي نوع بيانات "عدد صحيح"
3 vbLong قيمة المتغير هي نوع بيانات "طويل"
4 vbSingle قيمة المتغير هي نوع بيانات "مفرد"
5 vb مزدوج قيمة المتغير هي نوع بيانات "مزدوج"
6 vbCurrency القيمة المتغيرة هي نوع البيانات "العملة"
7 التاريخ قيمة المتغير هي نوع البيانات "التاريخ"
8 vbString قيمة المتغير هي نوع البيانات "سلسلة"
9 vbObject قيمة المتغير هي نوع بيانات "كائن"
10 vbError قيمة المتغير هي قيمة الخطأ
11 فبوليان قيمة المتغير هي نوع البيانات "منطقية"
12 vb متغير قيمة المتغير هي نوع بيانات "متغير" (تُستخدم فقط مع مصفوفات من المتغيرات)
13 vbDataObject قيمة المتغير هي "كائن الوصول إلى البيانات"
14 vbDecimal قيمة المتغير هي نوع بيانات "عشري"
17 vbByte قيمة المتغير هي نوع البيانات "بايت"
20 vbLongLong قيمة المتغير هي نوع بيانات "LONG LONG" (صالح على الأنظمة الأساسية 64 بت فقط)
36 vbUserDefinedType قيمة المتغير هي نوع البيانات "من تحديد المستخدم"
8192 vbArray القيمة المتغيرة هي Array

حسنًا ، أعاد الكود الآن ضبط نوع البيانات المتغير ليصبح 8 أي اسم متغير "MyVar" يحتوي على نوع بيانات "سلسلة".

المثال رقم 2

الآن ، انظر إلى الكود أدناه.

رمز:

 VarType_Example2 () مجموعة خافت MyVar MyVar = ThisWorkbook MsgBox VarType (MyVar) End Sub 

لنقم بتشغيل هذا الكود ونرى ما هي النتيجة.

والنتيجة هي 9 أي متغير يحتوي على نوع بيانات "كائن". نعم ، هذا صحيح لأنه بالنسبة للمتغير "MyVar" قمنا بتعيين مرجع المصنف لـ "هذا المصنف".

المثال رقم 3

الآن ، انظر إلى الكود أدناه.

رمز:

 VarType_Example3 فرعي () Dim MyVar MyVar = 32500 MsgBox VarType (MyVar) End Sub 

سيعيد هذا النتيجة إلى 2.

لأن الرقم 32500 المخصص للمتغير هو قيمة "عدد صحيح".

الآن سأغير القيمة إلى 40000 وأرى النتيجة.

رمز:

 VarType_Example4 فرعي () Dim MyVar MyVar = 40000 MsgBox VarType (MyVar) End Sub 

سيعطي هذا النتيجة 3.

لأن قيمة عدد صحيح تنتهي عند 32767 ، لذا فإن أي شيء أعلاه سيتم التعامل معه كنوع بيانات VBA LONG.

الآن سوف أرفق الرقم بين علامتي اقتباس.

رمز:

 VarType_Example5 () خافت MyVar MyVar = "40000" MsgBox VarType (MyVar) End Sub 

قم بتشغيل الكود وانظر النتيجة.

حصلنا على النتيجة كنوع بيانات 8 ie String.

هذا لأن أي شيء يتم توفيره داخل الأقواس سيتم التعامل معه على أنه متغير سلسلة.

أشياء للذكرى

  • يرمز VARTYPE إلى "النوع المتغير".
  • يتم تمثيل نوع البيانات بأرقام فريدة ، لذا يرجى الرجوع إلى الجدول لفهم الرقم الذي يمثل نوع البيانات المتغير.

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