"Trong khi .. End While" không hoạt động trong VBA?

Question

Mã bên dưới là VBA cho Excel. Tôi đang sử dụng trình soạn thảo Visual Basic đi kèm với Excel 2007.

Dim counter As Integer 
counter = 1 
While counter < 20 
    counter = counter + 1 
end while '<- the compiler is complaining about this statement 

Mã không biên dịch. Phía trên mã tôi chỉ có khai báo. Theo MSDN điều này sẽ hoạt động nhưng không. Chuyện gì xảy ra vậy?

Answer 1

While cấu trúc được chấm dứt không bằng End While nhưng với Wend.

While counter < 20 
    counter = counter + 1 
Wend 

Lưu ý rằng thông tin này có sẵn trong tài liệu; chỉ cần nhấn F1. Các giao dịch page you link to với Visual Basic .NET, không phải VBA. Trong khi (không có ý định chơi chữ) có một mức độ chồng chéo nào đó trong cú pháp giữa VBA và VB.NET, người ta không thể giả định rằng tài liệu hướng dẫn có thể được áp dụng trực tiếp cho người khác.

Cũng trong tập tin trợ giúp VBA:

Mẹo Tuyên bố Do...Loop cung cấp một cách có cấu trúc hơn và linh hoạt để thực hiện vòng lặp.

Answer 2

VBA là không VB/VB.NET

Các tham chiếu chính xác để sử dụng là Do..Loop Statement (VBA). Xem thêm bài viết Excel VBA For, Do While, and Do Until. Một cách để viết những dòng này là:

Do While counter < 20 
    counter = counter + 1 
Loop 

(Nhưng một For..Next có thể thích hợp hơn ở đây.)

Chúc mừng mã hóa.