Trong VBA, bạn có thể lặp qua một phạm vi ô, áp dụng các hành động cho từng ô trong phạm vi.
Nếu bạn muốn kiểm tra điều kiện cho từng ô trong một dải bằng cách sử dụng VBA, cách tốt nhất là lặp qua dải, kiểm tra từng ô. Dưới đây là hai ví dụ mã để minh họa cách lặp qua một phạm vi. Bạn có thể thay thế giá trị phạm vi cho bất kỳ phạm vi nào bạn cần lặp qua.
Vòng lặp qua phạm vi ô
Ví dụ này sẽ lặp qua một loạt các ô. Câu lệnh if kiểm tra điều kiện nếu ô chứa văn bản “FindMe” và hiển thị hộp thông báo với vị trí của văn bản nếu được tìm thấy.
| 1234567891011 | Public Sub LoopCells ()Dim c As RangeĐối với mỗi c Trong phạm vi ("A1: A10")Nếu c.Value = "FindMe" ThìMsgBox "FindMe tìm thấy tại" & c.AddressKết thúc nếuTiếp theo cKết thúc Sub |
Lặp qua toàn bộ cột
Ví dụ này lặp lại toàn bộ phạm vi cột A.
| 1234567891011 | Public Sub LoopColumn ()Dim c As RangeĐối với mỗi c Trong phạm vi ("A: A")Nếu c.Value = "FindMe" ThìMsgBox "Tìm thấy FindMe tại" & c.AddressKết thúc nếuTiếp theo cKết thúc Sub |
Vòng qua Toàn bộ Hàng
Ví dụ tiếp theo lặp qua hàng 1 coi toàn bộ hàng là một phạm vi.
| 1234567891011 | Public Sub LoopRow ()Dim c As RangeĐối với mỗi c Trong phạm vi ("1: 1")Nếu c.Value = "FindMe" ThìMsgBox "Tìm thấy FindMe tại" & c.AddressKết thúc nếuTiếp theo cKết thúc Sub |
