ВБА - Макро за проверу података

Покушавам да направим неку врсту макроа да урадим неке провере да бих се уверио да је све исправно попуњено. Ево примера табеле ...

АБЦДЕ

1Кит Итем Итем2 Итем3 Ресултс

2ААА АБЦ БЦД ЦДЕ

3ААА АБЦ БЦД ЦДЕ ГООД

4БББ БЦД ЦДЕ ДЕФ

АББ БЦД ЦДЕ БАД

6БББ АБЦ БЦД ЦДЕ ГООД

7ЦЦЦ БЦД ЦДЕ ДЕФ

8ЦЦЦ АБЦ БЦД ЦДЕ БАД

9ЦЦЦ ЦДЕ ЦДЕ ДЕФ БАД

10ЦЦЦ АБЦ БЦД ЦДЕ

Морам написати макро који ће учинити сљедеће.

Ако је ћелија А1 = А2 онда проверите да ли је Б1 = Б2 & Ц1 = Ц2 & Д1 = Д2.

Ако се сви поклапају онда пост "ГООД" то Е1, иначе пост "БАД то Е1

Али ако А1 А2 онда оставите Е1 празно и идите до А2 вс А3

У примеру изнад А2 = А3 и Б2 = Б3 и Ц2 = Ц3 и Д2 = Д3, тако да Е3 = ДОБРО

У примеру изнад А4 = А5 и Б4 Б5 и Ц4 Ц5 и Д4 Д5, тако да Е5 = БАД

Решење

Ево кода:


Суб финдРесулт ()
Дим Кит, Итем, Итем2, Итем3, Ресултс Ас Ранге
Дим итемЦоунт Ас Лонг
итемЦоунт = Ранге ("А1"). ЦуррентРегион.Ровс.Цоунт
Сет Кит = Распон ("А: А")
Постави ставку = Распон ("Б: Б")
Постави Итем2 = Распон ("Ц: Ц")
Постави Итем3 = Распон ("Д: Д")
Постави резултате = Распон ("Е: Е")
За и = 3 у итемЦоунт
Селецт Цасе Кит (и, 1) = Комплет (и - 1, 1)
Цасе Труе
Иф Итем (и, 1) = Итем (и - 1, 1) и Итем2 (и, 1) = Итем2 (и - 1, 1) _
И Итем3 (и, 1) = Итем3 (и - 1, 1) Тада
Резултати (и, 1) = "ДОБРО"
Енд Иф
Иф (Итем (и, 1) = Итем (и - 1, 1) и Итем2 (и, 1) = Итем2 (и - 1, 1) _
И Итем3 (и, 1) = Итем3 (и - 1, 1)) = Фалсе тада
Резултати (и, 1) = "БАД"
Енд Иф
Случај Фалсе
Резултати (и, 1) = ""
Енд Селецт
Затим сам
Енд Суб