ايجاد خطا در vba

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Amir Ghasemiyan

    • 2013/09/20
    • 4599
    • 100.00

    آموزشی ايجاد خطا در vba

    سلام دوستان
    در اين آموزش تابعي رو به شما معرفي ميكنم كه با اون ميتونين خروجي تابع رو بصورت خطا برگردونيد.
    مثلا ميخواهيد در صورتي كه مقدار ورودي يك تابع منفي باشد نتيجه را بصورت خطا برگرداند و يا اينكه درون تابعي نياز داريد از يك تابع ديگر استفاده كنيد و در تابع دوم اگر خطا ايجاد شد عمليات خاصي انجام دهد.

    براي اينكار از تابع CVErr استفاده خواهيم كرد. اين تابع ميتواند هر نوع خطايي كه در اكسل شناخته شده است را به عنوان خروجي برگرداند.

    کد:
    CVErr(Expression)
    Expression ميتواند مقادير زير باشد:

    مقدار شماره خطا مقدار خطاي سلول
    xlErrDiv0 2007 #DIV/0!
    xlErrNA 2042 #N/A
    xlErrName 2029 #NAME?
    xlErrNull 2000 #NULL!
    xlErrNum 2036 #NUM!
    xlErrRef 2023 #REF!
    xlErrValue 2015 #VALUE!


    به مثال زير توجه كنيد:
    کد:
    Sub EI_ErrorTest()
    a = -6
    If IsError(ErrorCreator(a)) Then MsgBox "Your input is wrong"
    End Sub
    
    
    Function ErrorCreator(a)
    If a < 0 Then ErrorCreator = CVErr(xlErrNA)
    End Function
    در اين مثال اگر مقدار a منفي باشد در تابع ErrorCreator خطاي NA ايجاد خواهد شد
    Last edited by Amir Ghasemiyan; 2017/12/30, 09:44.
چند لحظه..