Преглед садржаја
Проверите да ли лист постоји
Направили смо функцију која ће тестирати постоји ли лист или распон (на одређеном листу). Тест распона је користан ако желите да проверите да ли одређени именовани опсег постоји на листу.
| 123456789101112 | 'Тестирајте да ли распон постоји на листу.'Оставите распон празним да бисте тестирали постоји ли лист'Улази:'ВхатСхеет - Назив низа листа (ек "Схеет1")'ВхатРанге (Опционално, Подразумевано = "А1") - Назив низа опсега (нпр. "А1")Функција РангеЕкистс (ВхатСхеет Ас Стринг, Опционално БиВал ВхатРанге Ас Стринг = "А1") Као логичкоДим тест Ас РангеНа Грешка Настави даљеПостави тест = АцтивеВоркбоок.Схеетс (ВхатСхеет) .Ранге (ВхатРанге)РангеЕкистс = Ерр.Нумбер = 0Он Еррор ГоТо 0Завршна функција |
Поставите функцију у ВБА кодни модул и можете јој приступити помоћу потпроцедура попут ових:
Проверите да ли лист постоји
| 123 | Суб Тест_СхеетЕкистс ()МсгБок РангеЕкистс ("подешавање")Енд Суб |
Проверите да ли распон постоји на листу
| 123 | Под Тест_РангеЕкистс ()МсгБок РангеЕкистс ("сетуп", "рнгИнпут")Енд Суб |
Подешавање функције РангеЕкистс
Проверите да ли лист постоји у другој радној свесци
Горња функција је погледала АцтивеВоркбоок (тренутно активну радну свеску). Уместо тога, можете подесити функцију да погледате одређену радну свеску овако:
| 12345678910111213 | 'Тестирајте да ли распон постоји на листу.'Оставите распон празним да бисте тестирали постоји ли лист'Улази:'ВхатБоок - *Објекат радне свеске *'ВхатСхеет - Назив низа листа (ек "Схеет1")'ВхатРанге (Опционално, Подразумевано = "А1") - Назив низа опсега (нпр. "А1")Опсег функцијаПостоји (ВхатБоок као радна свеска, ВхатСхеет као низ, опционално БиВал ВхатРанге Ас Стринг = "А1") Као логичкоДим тест Ас РангеНа Грешка Настави даљеПостави тест = ВхатБоок.Схеетс (ВхатСхеет) .Ранге (ВхатРанге)РангеЕкистс = Ерр.Нумбер = 0Он Еррор ГоТо 0Завршна функција |
Имплементација:
| 1234567 | Под Тест_ВБСхеет_Екистс ()Дим вб Као радна свескаПодесите вб = АцтивеВоркбоокМсгБок РангеЕкистс (вб, "Схеет1")Енд Суб |
