Функція 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
Удосконалення навичок роботи з Office
Ознайомтеся з навчальними матеріалами
Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

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

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

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

×