Ако все още не сте запознати с обработката на грешки, горещо ви препоръчваме първо да прочетете този пример. Когато възникне грешка в Excel VBA възниква, свойствата на Err обект са пълни с информация.
Ситуация:
Програмата по -долу изчислява квадратния корен от числа.
1. Поставете команден бутон на работния си лист и добавете следните кодови редове:
Dim rng As Range, клетка As Range
Задайте rng = Избор
За всяка клетка В rng
При грешка GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Следващата клетка
Изход от Sub
Невалидна стойност:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Възобновяване Напред
Резултат, когато изберете Range ("B2: B6") и щракнете върху командния бутон на листа:
Обяснение: когато възникне грешка, свойството number на обекта Err се запълва с уникален номер на грешка на текущата грешка, а свойството Description се попълва с описанието на грешката на текущата грешка.
2. Тези описания може да не са много полезни за потребителите на вашата програма. Можете да направите съобщенията за грешка по -удобни за потребителя, като промените последната част на макроса, както следва:
Невалидна стойност:
Изберете Case Err.Number
Случаят е = 5
MsgBox "Не може да се изчисли квадратен корен от отрицателно число в клетката" & cell.Address
Случай Is = 13
MsgBox "Не може да се изчисли квадратен корен от текст в клетката" & cell.Address
Край Изберете
Възобновяване Напред
Съвет: преминете през нашата програма Select Case, за да научите повече за структурата Select Case.
Резултат:
