Tóm tắt

Bài viết này bao gồm Microsoft Visual Basic cho ứng dụng macro (tiểu quy) vòng qua tất cả các trang tính trong sổ làm việc hoạt động. Macro này cũng sẽ hiển thị tên của mỗi bảng.

Thông tin Bổ sung

Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể, nhưng chúng sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn. Thử mẫu macro, làm theo các bước sau:

  1. Nhập mã macro sau vào trang mô-đun mới.

          Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub
  2. Để chạy macro, định vị điểm chèn vào dòng đọc "Tiểu WorksheetLoop()" và nhấn F5.

Macro lặp qua sổ làm việc và hiển thị hộp thư với tên bảng khác nhau mỗi khi chạy qua vòng. Lưu ý rằng macro này sẽ chỉ hiển thị bảng tên; nó sẽ không hiển thị tên của các loại tầng trong sổ làm việc. Bạn cũng có thể lặp qua tất cả các trang tính trong sổ làm việc bằng cách sử dụng một 'Cho mỗi' vòng lặp.

  1. Macro mã sau vào trang mô-đun mới.

          Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub
  2. Để chạy macro, định vị điểm chèn vào dòng đọc "Tiểu WorksheetLoop2()" và nhấn F5.

Macro này hoạt động giống nhau để WorksheetLoop macro, ngoại trừ nó sử dụng loại vòng lặp để xử lý tất cả các trang tính trong sổ làm việc hoạt động.

Tham khảo

Để biết thêm thông tin về việc trợ giúp với Visual Basic cho ứng dụng, hãy xem bài viết sau trong cơ sở kiến thức Microsoft:

163435 VBA: tài nguyên lập trình Visual Basic for Applications

226118 OFF2000: tài nguyên lập trình Visual Basic for Applications

Bạn cần thêm trợ giúp?

Phát triển các kỹ năng của bạn
Khám phá nội dung đào tạo
Sở hữu tính năng mới đầu tiên
Tham gia Microsoft dùng nội bộ

Thông tin này có hữu ích không?

Bạn hài lòng đến đâu với chất lượng dịch thuật?
Điều gì ảnh hưởng đến trải nghiệm của bạn?

Cảm ơn phản hồi của bạn!

×