Ако још нисте упознати са руковањем грешкама, препоручујемо вам да прво прочитате овај пример. Када дође до грешке у Екцел ВБА јавља, својства Објекат грешке су испуњени информацијама.
Ситуација:
Програм испод израчунава квадратни корен бројева.
1. Поставите командно дугме на радни лист и додајте следеће редове кода:
Дим рнг Ас Ранге, целл Ас Ранге
Сет рнг = Селецтион
За сваку ћелију У рнг
Грешка при преласку на Неважећу вредност:
целл.Валуе = Скр (целл.Валуе)
Следећа ћелија
Екит Суб
Погрешна вредност:
МсгБок Ерр.Нумбер & "" & Ерр.Десцриптион & "ат целл" & целл.Аддресс
Настави даље
Резултат је када изаберете Опсег ("Б2: Б6") и притиснете командно дугме на листу:
Објашњење: када дође до грешке, својство нумбер објекта Ерр је испуњено јединственим бројем грешке тренутне грешке, а својство Десцриптион је испуњено описом грешке тренутне грешке.
2. Ови описи можда неће бити од велике помоћи корисницима вашег програма. Поруке о грешци можете учинити прилагођенијима корисницима тако што ћете последњи део макроа изменити на следећи начин:
Погрешна вредност:
Одаберите Еррор Нумбер
Случај Ис = 5
МсгБок "Не може се израчунати квадратни корен негативног броја у ћелији" & целл.Аддресс
Случај Ис = 13
МсгБок "Не може се израчунати квадратни корен текста у ћелији" & целл.Аддресс
Крај Изаберите
Настави даље
Савет: прођите кроз наш програм Селецт Цасе да бисте сазнали више о структури Селецт Цасе.
Резултат:
