VBA - Makro untuk memeriksa data
Saya mencoba membuat semacam makro untuk melakukan beberapa pemeriksaan untuk memastikan semuanya diisi dengan benar. Berikut adalah contoh spreadsheet ...
ABCDE1Kit 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.