Vba chọn sheet theo số

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