VBA - Az adatok ellenőrzésére szolgáló makró

Megpróbálok valamilyen makrót létrehozni, hogy bizonyos ellenőrzéseket végezzünk, hogy megbizonyosodjunk arról, hogy minden helyesen van-e feltöltve. Itt van egy példa a táblázatkezelőre ...

ABCDE

1Kit tételelem2 tétel3 Eredmények

2AAA ABC BCD CDE

3AAA ABC BCD CDE JÓ

4BBB BCD CDE DEF

5BBB ABC BCD CDE BAD

6BBB ABC BCD CDE JÓ

7CCC BCD CDE DEF

8CCC ABC BCD CDE BAD

9CCC CDE CDE DEF BAD

10CCC ABC BCD CDE

Írnom kell egy makrót, amely a következőket teszi.

 Ha az A1 = A2, akkor ellenőrizze, hogy B1 = B2 és C1 = C2 & D1 = D2.
Ha minden meccs után "JÓ" -t küld az E1-nek, mégsem tegye "BAD-t az E1-be
Ha azonban A1 A2 hagyja üresen az E1-et, és lépjen le A2-re az A3-ra
A fenti példában A2 = A3 és B2 = B3 és C2 = C3 és D2 = D3, így E3 = JÓ
A fenti példában A4 = A5 és B4 B5 és C4 C5 és D4 D5, így E5 = BAD

Megoldás

Itt van a kód:


Sub findResult ()
Dim Kit, Elem, 2. tétel, 3. tétel, eredménytartomány
Dim tételCount As Long
itemCount = Tartomány ("A1"). CurrentRegion.Rows.Count
Set Kit = Tartomány ("A: A")
Elem = tartomány beállítása ("B: B")
2. elem beállítása = tartomány ("C: C")
3. elem beállítása = tartomány ("D: D")
Eredmények beállítása = tartomány ("E: E")
Az i = 3 elemhezCount
Válassza ki az (i, 1) esettanulmányt = készlet (i - 1, 1)
Case True
Ha az elem (i, 1) = elem (i - 1, 1) és a 2. tétel (i, 1) = 2. tétel (i - 1, 1) _
És a 3. tétel (i, 1) = 3. tétel (i - 1, 1)
Eredmények (i, 1) = "JÓ"
Vége Ha
Ha (Elem (i, 1) = Tétel (i - 1, 1) és 2. tétel (i, 1) = 2. tétel (i - 1, 1) _
És a 3. tétel (i, 1) = 3. tétel (i - 1, 1)) = Hamis
Eredmények (i, 1) = "BAD"
Vége Ha
Hamis eset
Eredmények (i, 1) = ""
Vége kiválasztása
Következő i
Vége vége