ايجاد خطا در vba

[Amir Ghasemiyan]

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

براي اينكار از تابع 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 ايجاد خواهد شد