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