Excel cho phép bạn tạo trang tính mới theo một số cách khác nhau. Điều gì sẽ xảy ra nếu bạn muốn tạo một trang tính mới và đặt tên cho tất cả trong một bước? Cách dễ nhất để làm điều này là sử dụng macro. Sau đây là ví dụ về macro sẽ hỏi tên, sau đó tạo trang tính và đặt tên cho trang tính đó.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Macro này hoạt động tốt, miễn là người dùng nhập tên trang tính “hợp pháp” theo tiêu chuẩn Excel. Nếu tên mới không được Excel chấp nhận, trang tính vẫn được thêm vào, nhưng nó không được đổi tên như mong đợi.

Một macro mạnh mẽ hơn sẽ dự đoán các lỗi có thể xảy ra khi đặt tên trang tính. Mã ví dụ sau sẽ thêm trang tính, nhưng hãy tiếp tục yêu cầu tên trang tính nếu một tên được cung cấp không chính xác.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started     CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started     Sheets(CurrentSheetName).Select End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (10846) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: