VBA - andmete kontrollimiseks vajalik makro

Püüan luua mingi makro, et teha mõned kontrollid, et veenduda, et kõik on asustatud õigesti. Siin on näide arvutustabelist ...

ABCDE

1Kit kirje punkt2 kirje3 tulemused

2AAA ABC BCD CDE

3AAA ABC BCD CDE HEA

4BBB BCD CDE DEF

5BBB ABC BCD CDE BAD

6BBB ABC BCD CDE HEA

7CCC BCD CDE DEF

8CCC ABC BCD CDE BAD

9CCC CDE CDE DEF BAD

10CCC ABC BCD CDE

Ma pean kirjutama makro, mis teeb järgmist.

 Kui rakk A1 = A2, siis kontrollige, kas B1 = B2 & C1 = C2 & D1 = D2.
Kui kõik sobivad siis postitage "HEA" E1-le, muidu postitage "BAD to E1"
Aga kui A1 A2 jätab siis E1 tühjaks ja astuge A2-le A3-le
Ülaltoodud näites A2 = A3 ja B2 = B3 & C2 = C3 & D2 = D3, nii et E3 = hea
Ülaltoodud näites A4 = A5 ja B4 B5 & C4 C5 & D4 D5, nii et E5 = BAD

Lahendus

Siin on kood:


Alamkontroll ()
Dim Kit, kirje, punkt 2, punkt 3, tulemused vahemikus
Dim kirjeCount As Long
itemCount = Range ("A1"). CurrentRegion.Rows.Count
Set Kit = Range ("A: A")
Määra üksus = vahemik ("B: B")
Määra üksus2 = vahemik ("C: C")
Määra üksus3 = vahemik ("D: D")
Määra tulemused = vahemik ("E: E")
I = 3 kirje kohtaCount
Vali juhtumikomplekt (i, 1) = komplekt (i - 1, 1)
Case True
Kui kirje (i, 1) = kirje (i - 1, 1) ja kirje2 (i, 1) = kirje2 (i - 1, 1) _
Ja kirje3 (i, 1) = kirje3 (i - 1, 1)
Tulemused (i, 1) = "GOOD"
Lõpeta kui
Kui (kirje (i, 1) = kirje (i - 1, 1) ja kirje2 (i, 1) = kirje2 (i - 1, 1) _
Ja kirje3 (i, 1) = kirje3 (i - 1, 1)) = vale
Tulemused (i, 1) = "BAD"
Lõpeta kui
Juhtum vale
Tulemused (i, 1) = ""
Lõpeta valik
Järgmine i
Lõpeta alam