VBA - Makro untuk memeriksa data

Saya mencoba membuat semacam makro untuk melakukan beberapa pemeriksaan untuk memastikan semuanya diisi dengan benar. Berikut adalah contoh spreadsheet ...

 ABCDE

1Kit Item Item2 Item3 Hasil

2AAA ABC BCD CDE

3AAA ABC BCD CDE BAIK

4BBB BCD DEF CDE

5BBB ABC BCD CDE BAD

6BBB ABC BCD CDE BAIK

7CCC BCD CDE DEF

8CCC ABC BCD CDE BAD

CDE DEE BAD 9EAD BAD

CDE BCD ABC 10CCC

Saya perlu menulis makro yang akan melakukan hal berikut.

 Jika sel A1 = A2 maka periksa apakah B1 = B2 & C1 = C2 & D1 = D2.

Jika semua cocok, maka kirim "BAIK" ke E1, atau kirim "BAD ke E1

Tetapi jika A1 A2 kemudian biarkan E1 kosong dan turun ke A2 vs A3

Dalam contoh di atas A2 = A3 dan B2 = B3 & C2 = C3 & D2 = D3, jadi E3 = BAIK

Dalam contoh di atas A4 = A5 dan B4 B5 & C4 C5 & D4 D5, jadi E5 = BAD

Larutan

Ini kodenya:

Sub findResult ()

Redup Kit, Item, Item2, Item3, Hasil Sebagai Rentang

Dim itemCount As Long

itemCount = Rentang ("A1"). CurrentRegion.Rows.Count

Set Kit = Rentang ("A: A")

Setel Item = Rentang ("B: B")

Setel Item2 = Rentang ("C: C")

Setel Item3 = Rentang ("D: D")

Tetapkan Hasil = Rentang ("E: E")

Untuk i = 3 Ke itemCount

Select Case Kit (i, 1) = Kit (i - 1, 1)

Kasus Benar

Jika Item (i, 1) = Item (i - 1, 1) Dan Item2 (i, 1) = Item2 (i - 1, 1) _

Dan Item3 (i, 1) = Item3 (i - 1, 1) Lalu

Hasil (i, 1) = "BAIK"

Berakhir jika

If (Item (i, 1) = Item (i - 1, 1) Dan Item2 (i, 1) = Item2 (i - 1, 1) _

Dan Item3 (i, 1) = Item3 (i - 1, 1)) = Salah Lalu

Hasil (i, 1) = "BURUK"

Berakhir jika

Kasus Salah

Hasil (i, 1) = ""

End Select

Selanjutnya saya

End Sub

Terima kasih kepada Mehedad untuk tip ini.

Artikel Sebelumnya Artikel Berikutnya

Tips