Tại bất kỳ thời điểm nào, chỉ một Sheet có thể là ActiveSheet trong Excel VBA. Tuy nhiên, có thể chọn nhiều Bảng tính cùng một lúc
Nếu nhiều Trang tính được chọn, thì Trang tính có mức độ ưu tiên cao nhất được coi là trang tính đang hoạt động
Chọn trang tính
Nếu bạn muốn chọn một trang tính thay vì kích hoạt nó, bạn có thể sử dụng. chọn trong các mã trên thay vì kích hoạt lệnh
Chọn Trang tính theo Tên tab
Dòng mã này chọn một Trang tính dựa trên Tên tab Trang tính của nó
Sheets["Select sheet].Select
Chọn Bảng tính theo Số Chỉ mục
Dòng mã này chọn một Trang tính dựa trên vị trí của nó so với các tab khác
Worksheets[1].Select
Chọn Worksheet với VBA Code Name
Để chọn trang tính bằng tên mã VBA, hãy nhập mã sau
Sheet1.Select
Chọn trang tính theo tên mã sẽ ngăn ngừa lỗi
Chọn trang tính hiện tại
Để chọn Worksheet hiện tại, bạn có thể sử dụng đối tượng ActiveSheet
ActiveSheet.Select
Thay đổi tên ActiveSheet
Để thay đổi tên trang tính đang hoạt động
ActiveSheet.Name = "New active sheet"
Tới trang tiếp theo
Để chuyển sang trang tiếp theo, hãy nhập mã sau. Nếu trang tính đang hoạt động là trang tính cuối cùng, lệnh này sẽ chuyển đến trang tính đầu tiên
Khi bạn đang làm việc với VBA bên trong Excel, nhiều khả năng bạn sẽ tự động hóa một số loại thay đổi đối với trang tính bên trong tệp của mình. Hướng dẫn VBA sau đây nhằm mục đích cho bạn thấy rằng bạn có thể nhắm mục tiêu các trang tính cụ thể trong sổ làm việc của mình để áp dụng các thay đổi cho chúng
Bảng tính tham khảo theo tên mã [BEST PRACTICE. ]
Tờ1. Phạm vi ["A1"]. Giá trị = 100
Bảng tính tham khảo theo tên
Sổ làm việc này. Trang tính ["Tab tóm tắt"]. Phạm vi ["A1"]. Giá trị = 100
Tài liệu tham khảo Trang tính đã xem hiện tại
Bảng hoạt động. Phạm vi ["A1"]. Giá trị = 100
Bảng tính tham khảo theo vị trí
Sổ làm việc này. Bảng tính[3]. Phạm vi ["A1"]. Giá trị = 100
Tham chiếu Trang tính cuối cùng trong Sổ làm việc
Sổ làm việc này. Bảng tính [ThisWorkbook. trang tính. Đếm]. Phạm vi ["A1"]. Giá trị = 100
Bảng tính tham khảo trong một bảng tính khác
Sổ làm việc["Book2"]. Trang tính ["Trang tính 1"]. Phạm vi ["A1"]. Giá trị = 100
Lưu trữ bảng tính thành một biến
Dim sht As Bảng tính
Set sht = ThisWorkbook.Worksheets["Summary Tab"]
Lưu trữ bảng tính mới được tạo vào một biến
Dim sht As Bảng tính
Set sht = ThisWorkbook.Worksheets.Add[After:=ThisWorkbook.Sheets.Count]
Lặp qua mọi trang tính trong sổ làm việc
Sub WorksheetLoop[]
Dim sht As . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính . Trang tính Worksheet
For Each sht In ThisWorkbook.Worksheets
sht. Phạm vi ["A1"]. Giá trị = 100
Tiếp theo sht
Kết thúc Phụ
Lặp qua mọi trang tính theo thứ tự đảo ngược
Sub WorksheetReverseLoop[]
Dim x As x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm x As . bảng tính. Đếm Long
'Reverse Loop Through Sheets
For x = ThisWorkbook.Worksheets.Count Đến 1 Bước -1
ThisWorkbook.Worksheets[x].Range["A1"].Value = 100
Tiếp theo x
Kết thúc Sub
Lặp qua danh sách tên trang tính
Sub WorksheetListLoop[]
Dim SheetList As SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 SheetList As . Trang tính [Danh sách trang tính [x]]. Phạm vi ["A1"]. Giá trị = 100 Variant
'List Sheet Names into an Array Variable
SheetList = Array["Sheet1", "Sheet4", "Sheet6"]
'Loop through list
For x = LBound[SheetList] To UBound[SheetList]
ThisWorkbook.Worksheets[SheetList[x]].Range["A1"].Value = 100
Tiếp theo x
Kết thúc Sub
Giới thiệu về tác giả
chào bạn. Tôi là Chris và tôi điều hành trang web TheSpreadsheetGuru khi rảnh rỗi. Ban ngày, tôi thực sự là một chuyên gia tài chính phụ thuộc khá nhiều vào Microsoft Excel trong thế giới doanh nghiệp. Tôi thích lấy những điều tôi học được trong “thế giới thực” và chia sẻ chúng với mọi người ở đây trên trang web này để bạn cũng có thể trở thành chuyên gia bảng tính tại công ty của mình
Qua nhiều năm làm việc trong thế giới doanh nghiệp, tôi đã có thể nắm bắt các cơ hội để làm việc với Excel tốt hơn và đã xây dựng nhiều phần bổ trợ Excel khác nhau, từ việc chèn ký hiệu dấu tích đến tự động sao chép/dán từ Excel sang PowerPoint. Nếu bạn muốn cập nhật những tin tức mới nhất về Excel và nhận trực tiếp các mẹo Excel có ý nghĩa nhất mà tôi đã học được qua email trong nhiều năm, bạn có thể đăng ký nhận bản tin miễn phí của tôi. Tôi hy vọng tôi có thể cung cấp cho bạn một số giá trị ngày hôm nay và tôi hy vọng sẽ sớm gặp lại bạn ở đây