Excel VBA: Giải thích quy trình vòng lặp.

Vòng lặp VBA Excel

Vòng lặp là một trong những công cụ lập trình cơ bản và mạnh mẽ nhất trong VBA và được sử dụng trên hầu hết các ngôn ngữ lập trình. Các vòng lặp được sử dụng để lặp lại một khối mã nhiều lần theo yêu cầu, cho đến khi một điều kiện nhất định vẫn đúng hoặc đạt đến một điểm (hoặc giá trị) cụ thể, sau đó phần mã tiếp theo được thực thi. Một vòng lặp cho phép bạn viết một vài dòng mã đơn giản và đạt được đầu ra quan trọng hơn nhiều, chỉ bằng cách lặp lại.

• Đối với vòng lặp
  • Dành cho ... Tuyên bố tiếp theo
  • Đối với mỗi ... Tuyên bố tiếp theo
• Làm vòng lặp trong khi
  • Làm trong khi ... Báo cáo vòng lặp
  • Làm ... Vòng lặp trong khi Báo cáo
• Làm cho đến khi Loop
  • Làm cho đến khi ... Báo cáo vòng lặp
  • Làm ... Vòng lặp cho đến khi Báo cáo

Có ba loại Vòng lặp VBA cơ bản (được chia thành 6 vòng như dưới đây):

Đối với vòng lặp

Dành cho ... Tuyên bố tiếp theo

lặp lại một khối mã một số lần cụ thể.

ví dụ sau sẽ hiển thị MsgBox trong 5 lần và hiển thị số.

 Sub F_Next_loop () Dim i As Integer For i = 1 đến 5 MsgBox i Tiếp theo tôi kết thúc Sub 

Đối với mỗi ... Tuyên bố tiếp theo

Vòng lặp For For ... Vòng lặp tiếp theo lặp lại một khối mã cho từng đối tượng trong một nhóm. Nó lặp lại việc thực thi một khối mã, cho mỗi phần tử của một bộ sưu tập. Vòng lặp dừng khi tất cả các phần tử trong bộ sưu tập đã được trình bày và thực thi di chuyển đến phần mã ngay sau câu lệnh tiếp theo.

 Sub F_each_loop () Dim Cell As Range cho mỗi ô trong ActiveSheet.Range ("A1: A10") Cell.Interior.Color = RGB (160, 251, 142) Next Cell End Sub 

 Câu lệnh Thoát cho sẽ ngay lập tức dừng thực thi vòng lặp hiện có và thực thi phần mã ngay sau câu lệnh tiếp theo, 

Làm vòng lặp trong khi

lặp lại một khối mã vô thời hạn trong khi điều kiện đã chỉ định tiếp tục được đáp ứng và được đánh giá thành True và dừng khi điều kiện chuyển thành Sai. Điều kiện có thể được kiểm tra khi bắt đầu hoặc ở cuối Vòng lặp.

Làm trong khi ... Báo cáo vòng lặp

kiểm tra điều kiện khi bắt đầu,

 Sub do_While () Dim i As Integer i = 1 Do While Cells (i, 1) .Value "" MsgBox ii = i + 1 Loop MsgBox i End Sub 

Làm ... Vòng lặp trong khi Báo cáo

kiểm tra điều kiện ở cuối Vòng lặp

 Sub do_While () Dim i As Integer i = 1 Do MsgBox ii = i + 1 Loop While Cells (i, 1) .Value "" MsgBox i End Sub 

 Câu lệnh Thoát Do sẽ ngay lập tức dừng thực thi vòng lặp hiện có và thực thi phần mã ngay sau câu lệnh Tiếp theo, 

Làm cho đến khi Loop

lặp lại một khối mã vô thời hạn cho đến khi điều kiện được đáp ứng và đánh giá thành True. Điều kiện có thể được kiểm tra khi bắt đầu hoặc ở cuối Vòng lặp

Làm cho đến khi ... Báo cáo vòng lặp

kiểm tra điều kiện khi bắt đầu,

 Sub do_Until () Dim i As Integer i = 1 Do Until Not IsEmpty (Cells (i, 1)) Cell (i, 1) .Interior.Color = RGB (255, 0, 0) i = i + 1 Loop End Sub 

Làm ... Vòng lặp cho đến khi Báo cáo

kiểm tra điều kiện ở cuối Vòng lặp.

 Sub do_Until () Dim i As Integer i = 1 Do Cells (i, 1) .Interior.Color = RGB (255, 0, 0) i = i + 1 Loop Until Not IsEmpty (Cell (i, 1)) End Sub