الدالة CVErr

ملاحظة: نرغب في تزويدك بأحدث محتوى تعليمات لدينا بأسرع ما يمكن وبلغتك الخاصة. وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. كما نهدف إلى أن يكون هذا المحتوى مفيداً لك. هل يمكنك إخبارنا إذا كانت المعلومات مفيدة لك في أسفل هذه الصفحة؟ إليك المقالة بالغة الإنجليزية لسهولة الرجوع إليها.

ارجاع قيمه متغير من النوع الفرعي الخطا الذي يحتوي علي رقم الخطأ المحدده ب# واسطه المستخدم.

بناء الجملة

الداله CVErr ( errornumber )

مطلوب errornumberوسيطة عباره عن اي رقم الخطا صالح.

ملاحظات

استخدم الداله CVErr ل# انشاء اخطاء المعرفه من قبل المستخدم في الاجراءات التي تم انشاؤها من قبل المستخدم. علي سبيل المثال، اذا قمت ب# انشاء داله تقبل عده وسائط و# ترجع سلسله عاده، يمكن ان الداله ب# تقييم وسائط الادخال ل# التاكد من انها ضمن النطاق المقبول. اذا لم تكن كذلك، ف# من المحتمل الخاص بك لا سترجع الداله عما هو متوقع. في هذا الحدث، CVErr يسمح لك ب# ارجاع رقم خطا الذي يعلمك ب# الاجراء الذي يجب اتخاذه.

لاحظ انه غير مسموح به التحويل الضمني ل# رساله الخطا . علي سبيل المثال، لا يمكن تعيين قيمه الارجاع CVErr مباشره الي متغير غير متغير. و# مع ذلك، يمكنك تنفيذ تحويل صريح (ب# استخدام CIntو CDblو# ما الي ذلك) القيمه التي تم ارجاعها عن طريق CVErr و# تعيين التي الي متغير من المناسبه نوع البيانات.

مثال

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

يستخدم هذا المثال الداله CVErr ل# ارجاع متغير الخاصه به VarTypeفبيرور (10). الدالات المعرفه من قبل المستخدم CalculateDouble ب# ارجاع خطا اذا لم تكن الوسيطه تمريرها اليه رقم. يمكنك استخدام الداله CVErr ل# ارجاع اخطاء المعرفه من قبل المستخدم من الاجراءات المعرفه من قبل المستخدم او تاجيل التعامل مع خطا وقت التشغيل. استخدم الداله IsError ل# التحقق من صحه يمثل القيمه خطا.

' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

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

×