Đối tượng Worksheet trong Excel VBA là một trong những đối tượng được sử dụng thường xuyên nhất trong khi tự động hoá các tác vụ với VBA.
Đối tượng Worksheet đại diện cho các sheet trong Workbook, tức là mỗi Workbook chứa một hoặc nhiều Worksheet.
Các phương thức của đối tượng Worksheet Phương thức ActivatePhương thức Activate của đối tượng Worksheet trong VBA được sử dụng để kích hoạt một Worksheet cụ thể của một Workbook đang được kích hoạt.
Tại sao chúng ta cần phải kích hoạt một Worksheet bằng VBA?Khi chúng ta phải xử lý nhiều Worksheet (sheet trong một Workbook) và bạn muốn đọc hoặc ghi vào một Worksheet (sheet) cụ thể thì bạn phải kích hoạt Worksheet đó.
Cú pháp: Worksheets("Worksheet Name").Activate ' Or Worksheets("Worksheet Index").ActivateÁp dụng cú pháp trên bạn sẽ kích hoạt được đối tượng Worksheet cụ thể của một Workbook đang được kích hoạt.
Ví dụ 1: Activate Worksheet trong VBA với tên của Worksheet Sub ActiveWorksheetExample1() ' sử dụng tên của một Worksheet Worksheets("data").Activate 'Or Sheets("data").Activate End Sub Ví dụ 2: Activate Worksheet trong VBA với chỉ số của Worksheet Sub ActiveWorksheetExample1() ' sử dụng tên của một Worksheet Worksheets(2).Activate 'Or Sheets(2).Activate End Sub Cách tiếp cận tốt nhấtLưu ý: Luôn luôn sử dụng tên của Worksheet, thay vì chỉ số của Worksheet. Và cách tiếp cận tốt nhất là gán Worksheet cho một đối tượng và sau đó làm bất cứ nhiệm vụ nào bạn muốn làm với đối tượng Worksheet cụ thể đó.
Tạo biến tham chiếu đến WorksheetVấn đề: Khi bạn phải làm việc với nhiều Workshet (nhiều sheet), mỗi Workbook có nhiều Worksheet. Bạn phải sử dụng phương thức Activate với hết Workshet này đến Workshet khác để đọc hoặc ghi dữ liệu từ chúng, điều này có thể dẫn đến mã rối rắm, khó hiểu khiến bạn lúng túng.
Giải quyết vấn đềĐể giải quyết vấn đề trên, có một giải pháp cho bạn đó là với mỗi Worksheet bạn tạo ra một biến tham chiếu. Sau đó, bất cứ khi nào muốn sử dụng (Activate) Worksheet nào bạn chỉ cần tham chiếu đến biến tương ứng.
Ví dụ:
Sub vidu3() ' khai báo đối tượng wb Dim wb As Workbook ' khai báo đối tượng ws Dim wsInput As Worksheet Dim wsOutput As Worksheet ' gán wb cho active Workbook Set wb = Application.ActiveWorkbook ' gán wsInput cho đối tượng Worksheet có tên "input" Set wsInput = wb.Sheets("input") ' gán wsOutput cho đối tượng Worksheet có tên "output" Set wsOutput = wb.Sheets("output") End SubXem ví dụ cụ thể tại ví dụ đối tượng Workbook và Worksheet
Phương thức CopyPhương thức Copy của đối tượng Worksheet trong VBA được sử dụng để sao chép một Worksheet từ vị trí này sang ví trí khác trong cùng một Workbook hoặc Workbook đang tồn tại hoặc Workbook mới khác.
Cú pháp: Sheets("Worksheet Number").Copy([Before], [After]) Ví dụ 1: Copy Worksheet trong VBA với BeforeVí dụ sau sao chép sheet “Sheet3” tới vị trí trước sheet đầu tiên trong cùng Workbook. Trường hợp ‘1’ đại diện cho số chỉ mục Worksheet đầu tiên.
Sub CopySheet_Beginning1() Worksheets("Sheet3").Copy Before:=Worksheets(1) End SubVí dụ trên, chúng ta sao chép worksheet đang hoạt động đến vị trí đầu tiên trong cùng Workbook.
Sub CopySheet_Beginning2() chúng tôi Before:=Worksheets(1) End Sub Ví dụ 2: Copy Worksheet trong VBA với AfterVí dụ sau sao chép sheet “Sheet3” tới vị trí trước sheet cuối cùng trong cùng Workbook. Trường hợp Worksheets.Count đại diện cho số chỉ mục Worksheet cuối cùng.
Sub CopySheet_Ending1() Worksheets("Sheet3").Copy After:=Worksheets(Worksheets.Count) End SubVí dụ trên, chúng ta sao chép worksheet đang hoạt động đến vị trí cuối cùng trong cùng Workbook.
Sub CopySheet_Ending2() chúng tôi After:=Worksheets(Worksheets.Count) End Sub Phương thức Delete Cú pháp: Worksheets("Sheet Name").Delete Ví dụ 1: Xóa Worksheet trong VBAVí dụ sau xóa sheet có tên “Sheet2” từ một Workbook.
Sub DeleteSheetExample1() Sheets("Sheet2").Delete ' or Sheet2.Delete End SubVí dụ trên, sẽ hiển thị hộp thoại Excel và thông báo xác nhận tới người dùng để xóa “Sheet2”.
Ví dụ 2: Xóa Worksheet trong VBA Sub DeleteSheetExample1() ActiveSheet.Delete End SubVí dụ trên, chúng ta thực hiện xóa đối tượng Worksheet đang hoạt động từ một Workbook bằng cách sử dụng phương thức Delete của đối tượng Worksheet.
Ví dụ 3: Xóa Worksheet trong VBA – không hiển thị alert Sub DeleteSheetExample1() Application.DisplayAlerts = False Sheets("Sheet2").Delete Application.DisplayAlerts = True End SubVí dụ trên, xóa “Sheet2” nhưng KHÔNG hiển thị hộp thoại Excel thông báo xác nhận tới người dùng.
Tìm hiểu thêm: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/worksheet-object-excel