Функція CVErr

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Повертає варіант підтип помилки з на номер помилки указаний користувачем.

Синтаксис

CVErr ( errornumber )

Потрібен errornumberаргумент – це будь-який дійсний помилки номер.

Примітки

Функція CVErr для створення настроюваних помилок процедури, створені користувачем. Наприклад, якщо ви створюєте функція, яка приймає кілька аргументів і у звичайному режимі повертає рядок, ви можете мати до функції, обчислити вводу аргументів, щоб переконатися, що вони допустимим. Якщо вони відсутні, цілком імовірно, ваш функція не повертає те, що ви очікуєте. У цьому випадку CVErr дає змогу повернути помилки число, яке інформує про дію, яку слід виконати.

Зверніть увагу, що неявне перетворення помилки заборонено. Наприклад, не можна безпосередньо призначити значення CVErrзмінна , що не до типу Variant. Проте, можна виконувати явне перетворення (за допомогою CInt, CDblі так далі) значення яке повертається, CVErr та призначити змінної відповідні тип даних.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

У цьому прикладі використовується функція CVErr повернутися до типу Variant , VarType – це vbError (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

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×