Vòng lặp for trong excel

Trong bài này chúng ta sẽ tò mò về những vòng lặp trong VBA như: vòng lặp For, vòng lặp bởi While, vòng lặp vì chưng Until, vòng lặp For Each. Kèm từ đó là gần như ví dụ đơn giản nhất.

Vòng lặp là trong số những kỹ thuật trẻ trung và tràn đầy năng lượng nhất của những ngôn ngữ lập trình. Vòng lặp vào Excel VBA chất nhận được bạn lặp sang 1 dải ô chưa đến một vài mẫu code.

Bạn đang xem: Vòng lặp for trong excel

1. Vòng lặp For vào VBA

Vòng lặp For 1-1 giản

Vòng lặp For được dùng trong trường đúng theo biết trước tổng tần số lặp.

Bước nhảy ở vòng lặp for là 1 đơn vị.

Bài viết này được đăng tại

Đoạn code này vẫn gán quý giá 100 cho các ô từ A1 đến A6. Kêt trái chạy chương trình này sẽ như sau:

Mình sẽ lý giải một chút nhé.

For i = 1 khổng lồ 6 có nghĩa là lặp 6 lần (1,2,3,4,5,6)Cells(i, 1).Value = 100 vẫn gán quý hiếm 100 cho ô trong đợt lặp đó.Lần 1: i = 1 đề xuất Cells(1, 1).Value = 100Lần 2: i = 2 đề xuất Cells(2, 1).Value = 100Lần 3: i = 3 đề xuất Cells(3, 1).Value = 100Lần 4: i = 4 yêu cầu Cells(4, 1).Value = 100Lần 5: i = 5 đề nghị Cells(5, 1).Value = 100Next i là cú pháp bắt buộc. Biến chuyển i đó là biến tinh chỉnh vòng lặp.

Vòng lặp For lồng nhau

Bạn có thể sử dụng vòng lặp For lồng nhau để lặp sang 1 dãy gồm nhiều ô và nhiều cột.

Ví dụ: Gán quý hiếm 100 cho các ô từ A1 cho B6.

Dim i As Integer, j As IntegerFor i = 1 khổng lồ 6 For j = 1 lớn 2 Cells(i, j).Value = 100 Next jNext i
Vòng lặp phía bên ngoài sẽ lặp 6 lần, và mỗi lần lặp nó vẫn lặp gấp đôi ở vòng lặp bé bên trong.

Kết quả thật sau:

For Loop Step

Step thiết yếu lá giá chỉ trị bước nhảy của vòng lặp.

Sub ForEach_CountTo10_Even() Dim n As Integer For n = 2 khổng lồ 10 Step 2 MsgBox n Next n end Sub
Mặc định của Step là bằng 1 phải những vòng lặp các bạn truyền step thì sẽ là vòng lặp bao gồm bước dancing tăng 1 đối kháng vị.Nếu bạn muốn thực hiện vòng lặp sút thì hãy thiết lập step là số âm.Ví dụ 1: Lặp từu 10 cho 1.

Sub ForEach_Countdown_Inverse() Dim n As Integer For n = 10 to lớn 1 Step -1 MsgBox n Next n MsgBox "Lift Off" kết thúc Sub
Ví dụ 2: thực hiện vòng lặp lồng nhau để in ra bảng cửu chương nhân.

Sub Nested_ForEach_MultiplicationTable() Dim row As Integer, col As Integer For row = 1 khổng lồ 9 For col = 1 lớn 9 Cells(row + 1, col + 1).Value = row * col Next col Next row kết thúc Sub
Kết quả sẽ có được dạng như sau:

Exit For

Đây là lệnh dùng để dừng vòng lặp For ngay lập tức. Khi chạm mặt lệnh này thì dù đk dúng xuất xắc sai nó cũng sẽ xong vòng lặp, kể cả những đoạn code còn chưa chạy ở phía bên dưới cũng không thực thi.

Ví dụ tiếp sau đây sẽ lặp những ô A1 cho A1000, nếu gặp mặt ô nào có giá trị "error" thì xuất thông tin và xong vòng lặp.

Sub ExitFor_Loop() Dim i As Integer For i = 1 lớn 1000 If Range("A" & i).Value = "error" Then Range("A" & i).Select MsgBox "Error Found" Exit For end If Next i over Sub

Continue For

Đây là lệnh bỏ qua mất lần lặp bây giờ và khiêu vũ tới lần lặp kế tiếp. Khi gặp lệnh này thì trình biên dịch sẽ bỏ lỡ những đoạn code bên dưới của lần lặp hiện tại tại, tiếp nối kiểm tra điều kiện lặp với lặp đến lần lặp kế tiếp.

Cách cần sử dụng nó nhưu lệnh Exit For.

Xem thêm: Điều Kiện Làm Thẻ Đen Vietcombank, Thẻ Đen Vietcombank Là Gì

2. Vòng lặp For Each trong VBA

Vòng lặp For Each đang lặp qua từng phần tử của một list (collection), thường sẽ là:

Các ô trong ExcelCác biểu trang bị trong SheetCác SheetCác ô trong một vùng chọn...

Cú pháp của nó như sau:

For Each Object in Collection Next