آموزشی ايجاد خطا در 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 ايجاد خواهد شد