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:
-
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
-
Để 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.
-
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
-
Để 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