CVErr функциясы

Пайдаланушы белгілеген error number көрсетілетін бағыныңқы түр ҚатесініңVariant data type қайтарады.

Синтаксис

CVErr(қате нөмірі)

Міндетті қате нөмірініңargument кез келген жарамды сан болып табылады.

Түсіндірмелер

CVErr функциясын пайдаланушының жасаған procedure пайдаланушының белгілеген қателерін жасау үшін пайдаланыңыз. Мысалы, бірнеше дәлелді қабылдайтын және жолды қайтаратын функцияны жасасаңыз, енгізу дәлелдерінің жарамды екендігін тексеру үшін енгізу дәлелдерін бағалауға функцияңызды пайдалана аласыз. Енгізу дәлелдері жарамсыз болса, функцияңыздың қажетті нәтижелеріңізді қайтармайтыны сөзсіз. Бұл жағдайда, CVErr функциясы қажетті әрекетті орындауға шақыратын қате нөмірін қайтару мүмкіндігін береді.

Қатені толық өзгертуге рұқсат етілмейтініне назар аударыңыз. Мысалы, CVErr функциясының кері мәнін Нұсқа деп есептелмейтін variable тікелей тағайындай алмайсыз. Алайда, (CInt, CDbl және т.б. фунцияларды пайдалана отырып,) CVErr функциясы қайтарған мәннің толық өзгеруін жүргізіп, өзгертілген мәнді лайықты data type айнымалы мәніне тағайындай аласыз.

Мысал

Note: Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Төмендегі мысал CVErr функциясын Нұсқа түріvbҚатесі (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 Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×