الدالة VarType

إرجاع عدد صحيح يشير إلى نوع فرعي ل متغير.

بناء الجملة

VarType ( varname )

إن اسم وسيطة المطلوب هو متغير يحتوي على أي متغير باستثناء متغير من نوع معرف من قبل المستخدم.

إرجاع القيم

ثابت

القيمة

الوصف

vbEmpty

0

فارغ (غير مهيأ)

vbNull

1

Null (بدون بيانات صالحة)

vbInteger

2

العدد الصحيح

vbLong

3

عدد صحيح طويل

vbSingle

4

رقم النقطة العائمة ذات الدقة الواحدة

vbDouble

5

رقم النقطة العائمة بدقة مزدوجة

vbCurrency

6

قيمة العملة

vbDate

7

قيمة التاريخ

vbString

8

String

vbObject

9

عنصر

vbError

10

قيمة خطأ

vbBoolean

11

قيمة منطقية

vbVariant

12

متغير (يستخدم فقط مع صفائف المتغيرات)

vbDataObject

13

كائن الوصول إلى البيانات

vbDecimal

14

قيمة عشرية

vbByte

17

قيمة باليت

vbUserDefinedType

36

المتغيرات التي تحتوي على أنواع معرفة من قبل المستخدم

vbArray

8192

صفيف


ملاحظة: يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. يمكن استخدام الأسماء في أي مكان في التعليمات البرمجية الخاصة بك مكان القيم الفعلية.

ملاحظات

لا ترجع الدالة VarType أبدا قيمة vbArray بمفردها. وتضاف دائما إلى بعض القيم الأخرى للإشارة إلى صفيف من نوع معين. يتم إرجاع vbVariant الثابت فقط بالتزامن مع vbArray للإشارة إلى أن الوسيطة إلى الدالة VarType هي صفيف من النوع Variant. على سبيل المثال، يتم حساب القيمة التي يتم إرجاعها لصفيف من عدد صحيح على أنها vbInteger + vbArray، أو 8194. إذا كان هناك كائن لديه خاصية ، فإن VarType(كائن) يرجع نوع الخاصية الافتراضية للكائن.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة VarType لتحديد النوع الفرعي لمتغير.

Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.

هل تحتاج إلى مزيد من المساعدة؟

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×